使用 VBA 在 Access 中将 Excel 文件另存为文本

Question

我正在尝试打开一个 (.xls) 文件并通过 Microsoft Access 将其另存为文本文件。无法弄清楚为什么这会摇摇欲坠。

Dim xlApp As Object 

Set xlApp = CreateObject("Excel.Application")

xlApp.Visible = True

Dim strFile As String, Table As String Dim wbk As Object

Set wbk = xlApp.Workbooks.Open(FileName:="C:\Test.xls")
ChDir "C:\Users\" & Environ("UserName") & "\Desktop"

下面一行是红色的，给我报错"Expected Named Parameter"

wbk.SaveAs FileName:="C:\Users\" & Environ("UserName") & "\Desktop\Test.txt", _
FileFormat:=xltextwindows, CreateBackup:=False** 

Set xlApp = Nothing

Answer 1

来自对象浏览器：

Const xlTextWindows = 20 (&H14)
  Element of Excel.XlFileFormat

如果您还没有设置对 Excel 对象库的引用（正如您使用后期绑定所建议的），您需要在代码中添加此声明：

Const xlTextWindows = 20

使用 VBA 在 Access 中将 Excel 文件另存为文本

Save Excel File as Text in Access using VBA

ms-access

vba

xlsx

text-files