Как преобразовать файл XLS в CSV-файл в доступе 2000 VBA?

Question

Мне нужен кусок кода, который может конвертировать файл xls в файл csv. Я использую MS Access 2000 и пишу код внутри него с VBA.

Я искал в Google, и многие решения не удалось. Любая помощь приветствуется. Спасибо.

Редактировать: я пробовал решение, и оно не удалось. Он сказал, что Ошибка 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. Если у вас возникли проблемы с переносом, подробно опишите, какая у вас проблема.