vba将html文件转化为Excel,【源码示例】-VBA转换Excel文件类型为CSV

时　间: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源码网店