我正在寻找一种方法,使用命令行将一系列.csv文件批量转换为.xlsx.
我尝试了一些不同的VBScripts,但我们似乎都将.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"
有任何想法吗?