新人求助 ： txt 文件 导入到EXCEL中出现乱码

8901392

第一列为姓名 ，第二列为单位，第三列为性别，第四列为个人简要事迹，每个人个人简要事迹为一个txt 文件，文件名为姓名
将txt 文件合并到 excel 中出现乱码。txt编码为ANSI 时出现乱码，txt 编码为 “UTF-8”不出现乱码
求 txt 文件编码为ANSI 的VBA 代码。
谢谢！






求助附件.rar (12.32 KB, 下载次数: 6)

2019-12-13 21:19 上传

点击文件名下载附件

lovemh1987

.type =2  删了试试

8901392

lovemh1987 发表于 2019-12-14 10:29
.type =2  删了试试

感谢回复，我试试

lovemh1987

8901392 发表于 2019-12-14 10:33
感谢回复，我试试

不行 我试过了

8901392

感谢：http://club.excelhome.net/forum. ... 10&pid=10178305
给修改的代码
Sub 按钮1_Click()
    Set fso = CreateObject("scripting.filesystemobject")
    Application.ScreenUpdating = False
    r = 2
    For Each f In fso.getfolder(ThisWorkbook.Path).Files
        If InStr(f.Name, ".txt") > 0 Then
            
            For c = 2 To 1000
                If Cells(c, 1) = Split(f.Name, ".txt")(0) Then Cells(c, 4) = ReadUTF(f)
            Next
            r = r + 1
        End If
    Next f
    Application.ScreenUpdating = True
End Sub
Function ReadUTF(ByVal FileName As String) As String
    With CreateObject("ADODB.Stream")
        .Type = 2
        .Mode = 3
        .Open
        .LoadFromFile FileName
        .Charset = "gbk"
        .Position = 2
        ReadUTF = .ReadText
        .Close
    End With
End Function

lovemh1987

.Charset = "gbk"  这个可以读出来

8901392

lovemh1987 发表于 2019-12-14 10:54
.Charset = "gbk"  这个可以读出来

非常感谢热心帮助。