我正在尝试打开（.xls）文件，并通过Microsoft访问将其另存为文本文件。无法弄清楚为什么这会引起摇摆不定。
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"
下面的行是红色的，并给我错误“期望的命名参数”
wbk.SaveAs FileName:="C:\Users\" & Environ("UserName") & "\Desktop\Test.txt", _
FileFormat:=xltextwindows, CreateBackup:=False**
Set xlApp = Nothing
从对象浏览器：
Const xlTextWindows = 20 (&H14)
Element of Excel.XlFileFormat
如果尚未设置对Excel对象库的引用（如后期绑定的使用所建议），则需要在代码中添加以下声明：
Const xlTextWindows = 20
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句