本帖最后由 CrLf 于 2014-9-18 18:05 编辑
- const xlCSV = 6
-
- Set objExcel = CreateObject("Excel.Application")
- Set objWorkbook = objExcel.Workbooks.Open("C:\Scripts\Testsheet.xls")
- objExcel.DisplayAlerts = FALSE
- objExcel.Visible = TRUE
-
- Set objWorksheet = objWorkbook.Worksheets("Sheet1")
- objWorksheet.SaveAs "c:\scripts\test.csv", xlCSV
- objWorksheet.ActiveWorkBook.Saved = True
-
- objExcel.Quit
复制代码
|