Question

我正在使用MATLAB 2017a，过去一直在使用xlswrite来执行此操作。我遇到的问题是执行速度，我在寻找更好的方法。因此，我决定使用actxserver并使用来自MATLAB的get(obj)和来自ActiveX的Range.Value写入数据。代码如下所示：

e = actxserver('Excel.Application);
eWorkbook = e.Workbooks.Add;
e.Visible = 1;
eSheets = e.ActiveWorkbook.Sheets;
eSheet1 = eSheets.get('Item',1);
eSheet1.Activate;
A = ["Str1";"Str2";"Str3";];
eActivesheetRange = get(e.Activesheet, 'Range', 'A1:A3');
eActivesheetRange.Value = A;

这段不连续的代码不会执行，也不会发出警告或错误消息。在我看来，eActivesheetRange在ActiveX端的计算结果为：Range("A1:A3")。有趣的是，如果我替换

A = ["Str1";"Str2";"Str3";];

使用

A = char(["Str1";"Str2";"Str3";]);

然后程序将A char数组写入eActivesheetRange范围内的每个单元格。

是否可以使用MATLAB cells()连接来调用Range.Value？ cells().Value可以解决这个问题吗？

Answer 1

我认为writing to Excel using ActiveX无法正确处理string类型。在这种情况下，您只需使用cell array将字符串数组转换为character vectors的cellstr即可使其工作。将您的最后一行代码更改为以下代码对我而言有效（在R2016b中）：

eActivesheetRange.Value = cellstr(A);

用以下内容替换最后两行：

e.Activesheet.Range('A1:A3').Value = cellstr(A);

Answer 2

解决方案当然是for循环。

   alphacolumn=char(97:117);

% iterate through data array

for i=1:21
        str=string(alphacolumn(i))+2;
        str2=string(alphacolumn(i))+202;
        write1=char(str+":"+str2);
   if ~isreal(tsc{i,1})
        T = (tsc{i,1});
for j = 1:length(T)
        rrange = xl.ActiveWorkbook.Activesheet.Range(char(string(alphacolumn(i)) + string(j+1)));
            xlcompatiblestring1 = char(string(T(j,:,:)));
    rrange.Value= xlcompatiblestring1;

end
   else
        tsci=tsc{i,1};            
% write data to xl target file
        %xlswrite(xlfilepath,tsci,write1);
        xlActivesheetRange = get(xl.Activesheet,'Range',write1);
        xlActivesheetRange.Value = tsci;
   end
end

使用MATLAB通过ActiveX协议将字符串值写入Excel电子表格中。发现一个问题

2 个答案: