How to use xlswrite and Excel = actxserver​('Excel.Ap​plication'​) together

12 次查看（过去 30 天）
Suresh S
Suresh S 2018-2-26
评论： Suresh S 2018-3-2
I want to write many values in the Excel sheet with two different color based on the condition. So I am using for loop. with in the for loop xlswrite used for write the value in xls and Excel = actxserver('Excel.Application') used for color the particular cell based on the condition. But I am getting the error that ".xls is not writable.It may be locked by another process." could you help me to resolve the issue. help me to use xlswrite and Excel = actxserver('Excel.Application') together (or) how to write a value in the particular cell by Excel = actxserver('Excel.Application')
The code is below
for intration1=1:row
for intration2=1:column
% logic for Calculate the values
% logic for Calculate the values
range_ip=strcat(sprintf('%c','D'+(intration2)),num2str(10+intration1));
if condition
Excel = actxserver('Excel.Application');
Excel.Workbooks.Open(strcat(pwd,'\',file));
Range= Excel.Range(range_ip);
Range.Interior.ColorIndex = 4;
else
Excel = actxserver('Excel.Application');
Excel.Workbooks.Open(strcat(pwd,'\',file));
Range= Excel.Range(range_ip);
Range.Interior.ColorIndex = 3;
end
end
end
Thanks in Advance,
Regards, Suresh.S

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

采纳的回答

Meade
Meade 2018-2-26
编辑：Stephen23 2018-2-28
xlswrite automatically closes the ACTX session at the end of the call.
Try xlswrite1 from the FEX. This just leaves the connection open so that you can continue to invoke calls (as in your example).
You must close the connection when you are done (example code in the FEX submission). Best of luck.
  3 个评论
显示 1更早的评论
Meade
Meade 2018-2-28
How about this:
% Write headers
xlswrite1(FID,YourString,sheetName,'A1');
% Clean up appearance
ExcelSheets_curr = get(ExcelSheets, 'Item', sheetName);
ExcelSheets_curr.Activate;
ExcelSheets_curr.Range('A1').Font.Bold = 1; %Bold
ExcelSheets_curr.Range('A:B').HorizontalAlignment = 2; %Left justify
ExcelSheets_curr.Range('A:B').EntireColumn.AutoFit; %Autofit

请先登录，再进行评论。

更多回答（0 个）

类别

在 Help Center 和 File Exchange 中查找有关 Spreadsheets 的更多信息

标签

Community Treasure Hunt

Find the treasures in MATLAB Central and discover how the community can help you!

Start Hunting!

Translated by