Matlab对excel循环写入操作

startYear2 = 1981; %创建excel服务器句柄 try excel = actxGetRunningServer('Excel.Application'); catch excel = actxserver('Excel.Application'); end; %excel.Visible = 1; headers = {'年份', '站点', '纬度', '经度', '海拔', '生长季温度', '非生长季温度'}; for ii = 1:interval1 fileName = ['D:\yuyang\seasonTemperature1', num2str(startYear2+ii), '.xlsx']; if exist(fileName, 'file') workBook = excel.WorkBooks.Open(fileName); else workBook = excel.WorkBooks.Add; workBook.SaveAs(fileName); end

sheets = excel.ActiveWorkbook.Sheets;
sheet1 = sheets.Item(1);
sheet1.Activate;

sheet1.Range('A1:G1').Value = headers;
sheet1.Range('A2:G84').Value = temp3(:, :, ii);

workBook.Save;

end %关闭和删除对象 excel.Quit; excel.delete;

转载于:https://my.oschina.net/chengwei426/blog/1113904