批量导出excel工作簿到“prn”文本格式？

我已经编写了一个脚本，用于将excel工作簿导出为“.prn”样式纯文本格式，工作簿中每个工作表的一个文本文件。 该脚本是从一个外部的批处理器中调用的，该脚本使用windows'cscript'script hosting命令定期运行。

脚本基本上可以正常工作，但在较大的工作簿上速度很慢。 我希望有人能够给我一些指示，让我可以让它跑得更快，甚至提供更好的替代方法。

脚本在这里： http : //www.visualbasicscript.com/tm.aspx? high=&m= 106086

提前致谢。

Answer 1

而不是手动导出每个值，你可以简单地保存在所需的格式的工作表：

Set fso = CreateObject("Scripting.FileSystemObject") filename = "..." foldername = fso.GetParentFolderName(filename) Set xl = CreateObject("Excel.Application") Set wb = xl.Workbooks.Open(filename) For Each ws In wb.Sheets prn = fso.BuildPath(foldername, ws.Name & ".prn") ws.SaveAs prn, 36 Next wb.Close xl.Quit