如何在access 2000 VBA中将xls文件转换为csv文件？

Question

我需要一段可以将xls文件转换为csv文件的代码。 我正在使用ms access 2000并使用VBA在其中编写代码。

我搜索了谷歌，许多解决方案都失败了。任何帮助表示赞赏。感谢。

编辑：我尝试了解决方案但失败了。它说错误1004无法访问该文件（哪个文件？它没有说）。

我的代码：

Sub XlsToCsv(Fullname As String)
    filename = Left(Fullname, InStrRev(Fullname, "."))

    Set objExcel = CreateObject("Excel.application")
    Set objExcelBook = objExcel.Workbooks.Open(Fullname)

    objExcel.Application.Visible = False
    objExcel.Application.DisplayAlerts = False

    objExcelBook.SaveAs filename & "csv", 23

    objExcel.Application.Quit
    objExcel.Quit

    Set objExcel = Nothing
    Set objExcelBook = Nothing


End Sub

如何调用：

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "getInboundCdr", strPathToSave, True
XlsToCsv (strPathToSave)

getInboundCdr是查询的名称。

Answer 1

此VBScript解决方案

http://www.go4expert.com/forums/showthread.php?t=18188

应该很容易移植到Access VBA。如果您在移植方面遇到困难，请详细说明您遇到的问题。