Function ConvertXlsToCSV(sXlsFile As String)
    On Error GoTo Error_Handler
    Dim objExcel      As Object
    Dim objExcelWrkBk As Object
    Const xlCSV = 6    'CSV

    Set objExcel = CreateObject("excel.application")
    objExcel.ScreenUpdating = False
    objExcel.Visible = False
    objExcel.Application.DisplayAlerts = False

    Set objExcelWrkBk = objExcel.Workbooks.Open(sXlsFile)
    objExcelWrkBk.SaveAs Left(sXlsFile, InStrRev(sXlsFile, ".")) & "csv", xlCSV
    objExcelWrkBk.Close False
    objExcel.Quit

    MsgBox "Convert Complete!"
Error_Handler_Exit:
    On Error Resume Next
    Set objExcelWrkBk = Nothing
    Set objExcel = Nothing
    Exit Function
Error_Handler:
    MsgBox Err.Description, vbInformation, "错误提示"
    Resume Error_Handler_Exit
End Function

附   件:

点击下载此附件