cutebe

我也写一个

'将 Csv 文件拖入此文件图标即生成同名的 Xls 文件
CsvFile = WScript.Arguments(0)
Set ExcelApp = CreateObject("Excel.Application")
Set fso = CreateObject("Scripting.FileSystemObject")
If UCase(Right(CsvFile,4)) = ".CSV" Then
  XlsFile = Left(CsvFile,instrrev(CsvFile,".")) & "XLS"
  Set CsvBook  = ExcelApp.Workbooks.open(CsvFile)
  Set CsvSheet = CsvBook.Worksheets(1)
  Set XlsBook  = ExcelApp.Workbooks.Add
  Set XlsSheet = XlsBook.Worksheets(1)
  CsvSheet.UsedRange.Copy
  XlsSheet.Range("A1").PasteSpecial
  ExcelApp.DisplayAlerts = False
  XlsBook.SaveAs(XlsFile)
  XlsBook.Close
  CsvBook.Close(False)
End If
WScript.Echo ".Csv 转 .Xls 完成！"
WScript.Quit
复制代码