如何将目录中的多个.xls（Excel）文件导出到单个.csv文件中？

Question

因此，我正在寻找一种将目录中的所有.xls文件导出到单个.csv文件的方法。 关于如何处理这个问题有任何想法吗？

特别：

说我的目录包含-

wksht1.xls
wksht2.xls
wksht3.xls
...
wksht1000.xls

我如何将所有这些文件合并到单个.csv中（我们将其称为aggregate.csv）。 假设每个文件具有最大数量的工作表/行。

所有文件均已标准化为数据标准

非常感谢你！

Answer 1

这是NON .NET解决方案（尚不清楚“ .NET”标记是否暗示.NET是强制性的）。

我将像这样编写一个VBS / WSH脚本，然后从命令行运行它：

Dim oFSO
Dim oShell, oExcel, oFile, oSheet
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oShell = CreateObject("WScript.Shell")
Set oExcel = CreateObject("Excel.Application")
oExcel.DisplayAlerts = False

For Each oFile In oFSO.GetFolder("C:\").Files
  If LCase(oFSO.GetExtensionName(oFile)) = "xls" Then
    With oExcel.Workbooks.Open(oFile, 0, True, , , , True, , , , False, , False)
      For Each oSheet In .Worksheets
        oSheet.SaveAs ".\" & oFile.Name & "." & oSheet.Name, 6
      Next
      .Close False, , False
    End With
  End If
Next
oExcel.Quit
oShell.Popup "Conversion complete", 10

请注意，这是直接从此处摘录的内容： http : //www.computing.net/answers/programming/script-convert-excel-ss-to-csv/16265.html

但是在将Access表导出到CSV之前，我已经使用了几乎相同的方法很多次，因此我知道VBS脚本对此是一种可行的（可能是最简单的）方法。

根据需要修改目录名称（即，我认为您的文件不在“ C：\\”中。将其保存到名为export_to_csv.vbs的文件中，然后运行：

cscript export_to_csv.vbs

要么

wscript export_to_csv.vbs