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

时间:2016-06-23 10:25:58

标签: vba

Windows 10,Excel 2013。 我使用以下代码将文本文件打开到excel中。该文件被编码为UTF-8,我的目标是使用特殊字符导入文本(它是西班牙语),所以我必须"告诉"擅长原产地:= 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

问题是,如果我运行代码,它会打破' 1004'方法Opentext od对象"工作簿"

的错误消息

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

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

有什么想法?感谢。

0 个答案:

没有答案