VBA Workbooks.OpenText方法仅在第二次运行代码

Question

Windows 10，Excel 2013。 我使用以下代码将文本文件打开到excel中。该文件被编码为UTF-8，我的目标是使用特殊字符导入文本（它是西班牙语），所以我必须＆＃34;告诉＆＃34;擅长原产地：= 65001

Sub abrirarchivotexto()
Dim FiletoOpen As String
FiletoOpen = Application.GetOpenFilename("Text Files (*.txt;*.csv), *.txt;*.csv")
Workbooks.OpenText Filename:=FiletoOpen, DataType:=xlDelimited, comma:=False, Local:=True, Origin:=65001

问题是，如果我运行代码，它会打破＆＃39; 1004＆＃39;方法Opentext od对象＆＃34;工作簿＆＃34;

的错误消息

好吧，我完成了Visual Basic的执行，再次运行代码，它运行得很好。我无法理解从第一次执行到第二次执行的变化。不知道为什么它第一次没有工作，因为它是我在几个地方稍微修改过的代码。

这里是sample file。第一行有特殊字符。

有什么想法？感谢。