Using cell offset in Excel sheet from Matlab

Question

Renish Ramegowda 2014-10-10

0
链接

此问题的直接链接

https://ww2.mathworks.cn/matlabcentral/answers/158134-using-cell-offset-in-excel-sheet-from-matlab

编辑： Andreas Martin 2017-5-22

ExcelFileName = 'Results.xls';
% COM Object for Excel application
h = actxserver('Excel.Application');
set(h, 'DisplayAlerts', 0);
set(h, 'visible', 0);
exlWkbk = h.Workbooks;
exlOpen = exlWkbk.Open([pwd,'\',ExcelFileName], 0, false);
exlSheets = h.ActiveWorkbook.Sheets;
exlsheetObj = exlSheets.get('Item', 'Header');
exlsheetObj.Activate;
Addr = exlsheetObj.Range('B:B').Find('Renish').Address;
ActiveRange = get(h.Activesheet, 'Range', Addr);
ActiveRange.Select;
ActiveRange.Offset(1,1).Value;

With this code, I get the value in the cell as 'Renish'. When I need to get the value of neighbouring cell, I used offset as in VB script

ActiveRange.Offset(1,2).Value;

But it throws error as "Index exceeds matrix dimensions."

If you specify "Offset(1,0)" or "Offset(1,-1)" in the same code, it throws error as "Subscript indices must either be real positive integers or logicals."

Can anybody help me to find the values of neighbouring cells.

Also how can "Subscript indices" be given "logicals"? Is it a incorrect information display from mathworks?

I even tried below steps and nothing is working

h.ActiveCell.Offset(1,2).Value;
h.Selection.Offset(1,2).Value;

0 个评论
显示 -2更早的评论隐藏 -2更早的评论

请先登录，再进行评论。

请先登录，再回答此问题。

Answer 1

Andreas Martin 2017-5-22

0
链接

此回答的直接链接

https://ww2.mathworks.cn/matlabcentral/answers/158134-using-cell-offset-in-excel-sheet-from-matlab#answer_267907

编辑：Andreas Martin 2017-5-22

在 MATLAB Online 中打开

Hi,

maybe it's outdated, but for completeness: using the function 'get' does the trick.

ExcelFileName = 'Results.xls';
% COM Object for Excel application
h = actxserver('Excel.Application');
set(h, 'DisplayAlerts', 0);
set(h, 'visible', 0);
exlWkbk = h.Workbooks;
exlOpen = exlWkbk.Open([pwd,'\',ExcelFileName], 0, false);
exlSheets = h.ActiveWorkbook.Sheets;
exlsheetObj = exlSheets.get('Item', 'Header');
exlsheetObj.Activate;
Addr = exlsheetObj.Range('B:B').Find('Renish').Address;
ActiveRange = get(h.Activesheet, 'Range', Addr);
ActiveRange.Select;
ActiveRange. *get*( 'Offset', 1, 1 ).Value; % ActiveRange.Offset(1,1).Value;

I think some calls are superfluous (and time expensive) and may be omitted:

ExcelFileName = 'Results.xls';
% COM Object for Excel application
h = actxserver('Excel.Application');
set(h, 'DisplayAlerts', 0);
set(h, 'visible', 0);
exlWkbk = h.Workbooks;
exlOpen = exlWkbk.Open([pwd,'\',ExcelFileName], 0, false);
exlSheets = h.ActiveWorkbook.Sheets;
exlsheetObj = exlSheets.get('Item', 'Header');
Cell = exlsheetObj.Range('B:B').Find('Renish');
value = Cell.get( 'Offset', 1, 1 ).Value;