各位老师，使用VBA打开任意位置的TXT并复制内容到表，但是内容是乱码，需要修改哪...

154856200

Sub HONG5()

    Dim filePath As String
    Dim wbSource As Workbook
    Dim wsSource As Worksheet
    Dim wsTarget As Worksheet

    ' 提示用户选择文件
    filePath = Application.GetOpenFilename("Text Files (*.txt), *.txt", , "请选择一个文本文件")

    ' 如果用户取消选择，则退出子程序
    If filePath = "False" Then
        MsgBox "未选择文件，操作已取消", vbExclamation, "提示"
        Exit Sub
    End If



    ' 打开选定的文件
    On Error GoTo ErrorHandler
    Set wbSource = Workbooks.Open(filePath)
    Set wsSource = wbSource.Sheets(1)
    Set wsTarget = ThisWorkbook.Sheets("卷1")

    ' 复制内容到目标工作表
    wsSource.Cells.Copy Destination:=wsTarget.Range("A1")

    ' 关闭源工作簿，不保存更改
    'wbSource.Close SaveChanges:=False

    ' 提示完成
    MsgBox "文件已成功导入", vbInformation, "提示"
    Exit Sub

ErrorHandler:
    MsgBox "发生错误：" & Err.Description, vbCritical, "错误"
    On Error GoTo 0
End Sub

154856200

Sheets("卷1").Select                           Dim objStream, strData, Arr33, i111 As Long         Dim pathX As String, strX As String, N As Long     '第一部分选中需要读取的txt文件         With Application.FileDialog(msoFileDialogFilePicker)                     With .Filters                             .Clear                             .Add "txt文件", "*.txt"                     End With                     .AllowMultiSelect = False                     If Not .Show Then Exit Sub                     pathX = .SelectedItems(1)         End With     '第二部分读取UTF-8格式的txt文件内容保存至strData变量中         '创建ADODB.Stream对象         Set objStream = CreateObject("ADODB.Stream")         '指定字符集为UTF-8         objStream.Charset = "utf-8"         '使用Open方法打开流对象         objStream.Open         '加载文本文件         objStream.LoadFromFile (pathX)         '使用ReadText返回文件内容         strData = objStream.ReadText()     '第三部分用Split函数按行来分割字符串存至数组中，处理数据，然后通过循环填写至sheet表中         Arr33 = Split(strData, vbCrLf)         objStream.Close         Set objStream = Nothing         N = 1         For i111 = 0 To UBound(Arr33)             strX = Arr33(i111)             If strX <> "" Then                 Range("A" & N) = strX             End If             N = N + 1         Next

154856200

Sheets("卷1").Select
        
        
        Dim objStream, strData, Arr33, i111 As Long
        Dim pathX As String, strX As String, N As Long
    '第一部分选中需要读取的txt文件
        With Application.FileDialog(msoFileDialogFilePicker)
                    With .Filters
                            .Clear
                            .Add "txt文件", "*.txt"
                    End With
                    .AllowMultiSelect = False
                    If Not .Show Then Exit Sub
                    pathX = .SelectedItems(1)
        End With
    '第二部分读取UTF-8格式的txt文件内容保存至strData变量中
        '创建ADODB.Stream对象
        Set objStream = CreateObject("ADODB.Stream")
        '指定字符集为UTF-8
        objStream.Charset = "utf-8"
        '使用Open方法打开流对象
        objStream.Open
        '加载文本文件
        objStream.LoadFromFile (pathX)
        '使用ReadText返回文件内容
        strData = objStream.ReadText()
    '第三部分用Split函数按行来分割字符串存至数组中，处理数据，然后通过循环填写至sheet表中
        Arr33 = Split(strData, vbCrLf)
        objStream.Close
        Set objStream = Nothing
        N = 1
        For i111 = 0 To UBound(Arr33)
            strX = Arr33(i111)
            If strX <> "" Then
                Range("A" & N) = strX
            End If
            N = N + 1
        Next

赵桢0611

我运行代码正常，可以导出一个题库工作表，但提示下标越界，不影响使用，可以试试
用记事本打开，另存，下面有个编码选择，可以改一下格式试试

154856200

百度一下解决了