Excel Workbooks.OpenText错误“；预期函数或变量“；

为什么我下面的代码不起作用？它突出显示了

.OpenText

部分并说明：

期望函数或变量

---

您试图在使用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

---

这应该可以解决这个问题——尽管很奇怪-

'...
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文件时，我发现

非常有效，谢谢大家。我会尝试一下。请在答案满足您的答案后检查绿色标记，最重要的是，尝试一下，如果您“突然”（一周后、一个月后）更改原始要求或要求新的要求，这里的大多数用户将无法提供帮助。我讨厌这是答案。它应该只返回一个工作簿。

'...
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
'...