如何用Excel VBA提取文本文件前200列并生成新文本文件？

完全可以用Excel VBA实现这个需求，下面是直接可用的代码，你只需要修改几个参数就能运行：

Sub ExtractFirst200Columns()
    Dim originalPath As String, newPath As String
    Dim delimiter As String
    Dim fileNumIn As Integer, fileNumOut As Integer
    Dim lineText As String, splitArr() As String
    Dim i As Integer, colCount As Integer
    
    ' --------------- 请修改以下参数 ---------------
    originalPath = "C:\YourOriginalFile.txt" ' 原文本文件路径
    newPath = "C:\YourNewFile.txt" ' 生成的新文件路径
    delimiter = vbTab ' 文本文件的分隔符，制表符用vbTab，逗号用","，根据实际情况改
    ' -------------------------------------------
    
    ' 打开原文件和新文件
    fileNumIn = FreeFile
    Open originalPath For Input As #fileNumIn
    fileNumOut = FreeFile
    Open newPath For Output As #fileNumOut
    
    ' 逐行读取处理
    Do While Not EOF(fileNumIn)
        Line Input #fileNumIn, lineText
        ' 分割行内容为列数组
        splitArr = Split(lineText, delimiter)
        colCount = UBound(splitArr) + 1 ' 计算当前行的列数
        
        ' 拼接前200列（如果实际列数不足200就取全部）
        Dim newLine As String
        newLine = ""
        For i = 0 To IIf(colCount - 1 < 199, colCount - 1, 199)
            If newLine <> "" Then newLine = newLine & delimiter
            newLine = newLine & splitArr(i)
        Next i
        
        ' 写入新文件
        Print #fileNumOut, newLine
    Loop
    
    ' 关闭文件
    Close #fileNumIn
    Close #fileNumOut
    
    MsgBox "处理完成！新文件已生成：" & newPath
End Sub

使用步骤： #

1. 打开Excel，按Alt + F11打开VBA编辑器
2. 右键点击左侧的工作簿名称，选择「插入」→「模块」
3. 将上面的代码粘贴到模块窗口中
4. 修改代码里的originalPath、newPath和delimiter参数，匹配你的实际文件情况
5. 按F5运行宏，或者回到Excel界面，通过「开发工具」→「宏」选择这个宏运行

注意事项： #

• 如果你的文本文件是用其他分隔符（比如分号;），直接修改delimiter的值即可
• 代码会自动处理行内列数不足200的情况，不会报错
• 生成的新文件可以直接导入Access，不会有255列的限制问题

内容的提问来源于stack exchange，提问作者Adam0000007