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。第一行有特殊字符。
有什么想法?感谢。