时 间:2014-03-11 09:49:22
作 者:摘 要:VBA转换Excel文件类型为CSV
正 文:
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
附 件:
Access软件网官方交流QQ群(群号:39785885)
Access源码网店