Workbooks.OpenText 错误“预期的函数或变量”

Question

为什么我下面的代码不起作用？它突出显示了该.OpenText部分并指出：

预期的函数或变量

Dim Indata As Excel.Workbook

Set Indata = Workbooks.OpenText(Filename:="C:\Users\thePunter\Desktop\Count_Types_062016.txt", DataType:=xlDelimited, Tab:=True)

Answer 1

您在使用 OpenText 方法时尝试设置工作簿变量，但 OpenText 不返回工作簿引用。改为这样做

Dim Indata As Excel.Workbook
 Workbooks.OpenText(Filename:="C:\Users\thePunter\Desktop\Count_Types_062016.txt", DataType:=xlDelimited, Tab:=True)
Set Indata = ActiveWorkBook