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

Answer 2

不过，这应该可以解决-odd问题了-

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

但是，在使用csv和txt文件时，我发现EOF命令。非常有效。