求助，就是各位仁兄有遇到过文本文件vba导入excel的时候成了乱码的情况经历吗？都....

风过天涯

我挺着急的，问题是我连乱码出现的原因都不是很清楚，有没有人比较了解的，赐教一二，拜谢各位

lss001

Sub  QueryTables方法导入文本文件()
fh = ThisWorkBook.Path '指定文件夹
fn =  Dir(fh & "\*.txt")
Do Until Len(fn) = 0
    f = fh & "\" & fn
    i = i + 1
    With ActiveSheet.QueryTables.Add _
    (Connection:="Text;" & f, _
    Destination:=Cells(1, 1)) '导入指定位置
    .TextFilePlatform = 65001 '指定编码
    .Refresh '刷新
    f = Dir
Loop
End  Sub

TuskAi

你可以搜VBA TEXT CreateObject("ADODB.Stream")

gwjkkkkk

应该文本编码的问题。。。

风过天涯

lss001 发表于 2023-2-5 10:57
Sub  QueryTables方法导入文本文件()
fh = ThisWorkBook.Path '指定文件夹
fn =  Dir(fh & "\*.txt")

我试试，哈哈哈哈确实是编码的问题

风过天涯

gwjkkkkk 发表于 2023-2-5 12:07
应该文本编码的问题。。。

确实，有没有什么好的解决方案

风过天涯

TuskAi 发表于 2023-2-5 11:51
你可以搜VBA TEXT CreateObject("ADODB.Stream")

谢谢，我会去了解一下

gwjkkkkk

风过天涯 发表于 2023-2-5 19:43
确实，有没有什么好的解决方案

上传附件看一下。。。