VBA：需要从文本文件中读取带重音的字符并将其保留
盖·霍奇斯
我想使用VBA读取文本文件，提取相关数据并将其转换为Excel文件。这是我正在使用的代码类型：
Sub ReadText()
Dim myFile As String, textline As String
myFile = Application.GetOpenFilename()
Open myFile For Input As #1
LineNumber = 0
Do Until EOF(1)
LineNumber = LineNumber + 1
Line Input #1, textline
'do stuff to extract the info I want and transfer to Excel
Loop
Close #1
End Sub
我住在一个说西班牙语的国家，所以我需要保留许多带有重音符号的字符。问题在于这些带重音符号的字符正在转换为其他字符。例如，应理解为INGLÉS的应理解为INGLÉS
我已经看到了替换重音字符的解决方案，但是我不想这样做，因为我想对Excel中的信息进行处理时仍然需要重音。
我在某处缺少格式选项吗？
潘卡·贾朱（Pankaj Jaju）
另一种方法是使用ADO。
Sub ReadUTFFile()
Dim objADO As ADODB.Stream
Dim varText As Variant
Set objADO = New ADODB.Stream
objADO.Charset = "UTF-8"
objADO.Open
objADO.LoadFromFile "C:\Users\pankaj.jaju\Desktop\utftest.txt"
varText = Split(objADO.ReadText, vbCr)
Range("A1").Resize(UBound(varText) - LBound(varText)).Value = Application.Transpose(varText)
End Sub
注意-不要忘记引用Microsoft ActiveX DataObjects。
样品测试
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
编辑于
相关文章
Related 相关文章
- 1
从文本文件中读取字符数组并将其转换为整数参数
- 2
我想从文本文件中读取特定的字符串并将其存储在Excel工作表中
- 3
读取文本文件中的所有行并将其保存到字符串中（不使用List）
- 4
如何从文本文件中读取单词并将其添加到字符串数组中？
- 5
读取文本文件，将每个字符都转换为小写并将其存储在数组中
- 6
PDFBox - 从多个 PDF 中读取文本并将其加载到多个文本文件中
- 7
需要从文本文件中删除引号
- 8
从文本文件读取并将其写入XML
- 9
同时读取多个文本文件中的文本并将其拆分为单词数组
- 10
从文本文件中读取数据并将其存储在python中的数组中
- 11
从文本文件中读取测量数据，并将其放入Fortran中的数组中
- 12
从文本文件中读取信息并将其正确存储在数组int中
- 13
如何在python 3.3.3中读取文本文件并将其存储在变量中？
- 14
从文本文件中读取整数并将其存储在列表中
- 15
如何从文本文件中读取数据并将其存储在C语言变量中？
- 16
从文本文件中读取行并将其存储在多维数组php中
- 17
如何在python 3.3.3中读取文本文件并将其存储在变量中？
- 18
使用PHP从文本文件中读取数据并将其显示在表格中
- 19
从文本文件中读取值并将其存储到列表中
- 20
Perl：如何从文本文件中读取不同的值并将其放置在数组中？
- 21
从文本文件中读取网格并将其存储在二维数组中？
- 22
如何从文本文件中读取数据并将其加载到向量中？
- 23
从文本文件中读取整数并将其放入已排序的数组中
- 24
如何从文本文件中读取并将其显示为 html 中的下拉列表（选择）
- 25
从文本文件中读取数据并将其显示在textview上
- 26
使用PHP从文本文件读取数据并将其显示在表中
- 27
从文本文件中读取python函数并将其分配给变量
- 28
如何在Java Spark中读取文本文件并将其转换为数据集？
- 29
使用JQuery读取文本文件并将其存储在数据库中
我来说两句