Question

我正在尝试打开（.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

Answer 1

从对象浏览器：

let statusBarHeight = UIApplication.sharedApplication().statusBarFrame.size.height
let navBarHeight = self.navigationController!.navigationBar.frame.height
let offset = statusBarHeight + navBarHeight

如果您尚未设置对Excel对象库的引用（如使用后期绑定所建议的那样），则需要在代码中添加此声明：

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

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

1 个答案: