这段代码的速度增加xlswrite函数使用时在循环或多次。原始函数的问题是它打开和关闭Excel服务器每次所使用的函数。增加速度我刚刚编辑原始函数通过删除服务器打开和关闭功能从xlswrite功能以外的功能。使用第一个运行以下代码打开activex服务器并检查文件已经存在(如果没有创建):

Excel = actxserver (“Excel.Application”);
文件= C: \ YourFileFolder \文件名”;
如果存在~(文件,“文件”)
ExcelWorkbook = Excel.workbooks.Add;
ExcelWorkbook.SaveAs(文件,1);
ExcelWorkbook.Close(假);
结束
调用(Excel.Workbooks,“开放”,文件);

然后运行新的xlswrite1函数根据需要多次或在一个循环中(例如xlswrite1(文件、数据、位置)。然后运行下面的代码关闭activex服务器:

调用(Excel.ActiveWorkbook '保存');
Excel.Quit
Excel.delete
清晰的Excel

这是完全一样的原始xlswrite函数,只有很多很多倍。