我正在寻找一种批量转换一系列 .csv
的方法文件到 .xlsx
使用命令行。
我尝试了一堆我发现的不同的 VBScript,但它们似乎都在转换 .xlsx
至 .csv
而不是相反。
这是我能找到的最接近的,但同样是 .xlsx
至 .csv
:
if WScript.Arguments.Count < 2 Then
WScript.Echo "Error! Please specify the source path and the destination. Usage: XlsToCsv SourcePath.xls Destination.csv"
Wscript.Quit
End If
Dim oExcel
Set oExcel = CreateObject("Excel.Application")
Dim oBook
Set oBook = oExcel.Workbooks.Open(Wscript.Arguments.Item(0))
oBook.SaveAs WScript.Arguments.Item(1), 6
oBook.Close False
oExcel.Quit
WScript.Echo "Done"
有任何想法吗?
最佳答案
唯一的先决条件是文件名中的“.csv”必须是小写:
Dim file, WB
With CreateObject("Excel.Application")
On Error Resume Next
For Each file In WScript.Arguments
Set WB = .Workbooks.Open(file)
WB.SaveAs Replace(WB.FullName, ".csv", ".xlsx"), 51
WB.Close False
Next
.Quit
End With
WScript.Echo "Done!"
关于csv - 使用命令行将 .CSV 转换为 .XLSX,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/31606394/