修改vba代码，

施学明

支取现金业务预约信息单

预约日期：2024/02/04 业务序号：2024020422075单位：元

券 别类 型金 额拟 办 理 时 间
纸100元(2015版)原封新券 4,000,000.00 2024-02-05 09:00
纸100元(2015版)未清分完整券 300,000,000.00
纸50元（2019年版）原封新券 2,000,000.00
纸20元（2019年版）原封新券 1,600,000.00
纸10元（2019年版）原封新券 1,200,000.00
纸5元（2020年版）原封新券 200,000.00
硬1元（2019年版）原封新券 160,000.00
合 计 309,160,000.00

制单：打印日期：2024/02/05
Sub ImportDataFromTextFile()
    Dim filePath As String
    Dim fileContent As String
    Dim dataArray() As String
    Dim row As Integer
    Dim col As Integer

    '选择文本文件
    With Application.FileDialog(msoFileDialogFilePicker)
        .Title = "选择文本文件"
        .Filters.Clear
        .Filters.Add "文本文件", "*.txt"
        If .Show = -1 Then
            filePath = .SelectedItems(1)
        Else
            Exit Sub
        End If
    End With

    '读取文本文件内容
    Open filePath For Input As #1
    fileContent = Input$(LOF(1), 1)
    Close #1

    '将文本内容按行分割为数组
    dataArray = Split(fileContent, vbCrLf)

    '在Excel表中创建新的工作表
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets.Add

    '复制数据到Excel表中
    row = 1
    col = 1
    For i = 6 To UBound(dataArray) - 1
        Dim lineData() As String
        lineData = Split(dataArray(i), " ")
        For j = 0 To UBound(lineData)
            ws.Cells(row, col).Value = lineData(j)
            col = col + 1
        Next j
        row = row + 1
        col = 1
    Next i

    '调整列宽
    ws.Columns.AutoFit

    MsgBox "数据导入完成！"
End Sub
代码运行错误62，输入超出文件尾

施学明

麻烦告诉我哪错了，谢谢！

boyayes

我是来打酱油的。

文件超出文件尾？这是由于文件内容中含有双字节字符造成的。
语句：fileContent = Input$(LOF(1), #1)
这句代码，如果文件中完全是英文内容的话，是没有问题的。
但是如果文件中含有中文等双字节的字符，就会出现你遇到的问题。
改为这句即可：
fileContent = StrConv(InputB(LOF(1), #1), vbUnicode)
可以祝我新年快乐么

ykcbf1100

施学明 发表于 2024-2-8 15:11
麻烦告诉我哪错了，谢谢！

建议上个附件吧

gwjkkkkk

上传附件，模拟结果。。。

施学明

我试下，万分感谢，祝楼上所有朋友春节快乐，新的一年心想事成！