将Excel文件另存为CSV

Posted 2021-02-27

Sub saveExcelAsCsv(ExcelFileName As String)
 
    Dim objXlApp As New Excel.Application
    Dim objXlBook As Excel.Workbook
 
    ' Setup the Excel Workbook to save
    Set objXlBook = Excel.Workbooks.Open(ExcelFileName)
 
    ' Save the Excel file as a CSV file in a temp location
    objXlBook.SaveAs "c:WindowsTemp	mpCsvFromExcel.txt", xlCSVWindows
 
    ' Clean up
    objXlBook.Close True    ' Save changes
    objXlApp.Quit           ' Close Excel
    Set objXlBook = Nothing
    Set objXlApp = Nothing
 
End Sub