vba在文本文件中间插入行

要在VBA中在文本文件中间插入行，你可以使用FileSystemObject对象来读取和写入文件。下面是一个示例代码，演示如何在文本文件的指定行之后插入新行：

Sub InsertLineInFile()
    Dim filePath As String
    Dim lineToInsert As String
    Dim lineToFind As String
    Dim tempFilePath As String
    Dim tempFileName As String
    
    ' 设置文件路径
    filePath = "C:\path\to\your\file.txt"
    
    ' 设置要插入的行
    lineToInsert = "This is the new line to insert"
    
    ' 设置要找到的行
    lineToFind = "This is the line after which you want to insert the new line"
    
    ' 创建FileSystemObject对象
    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    ' 检查文件是否存在
    If Not fso.FileExists(filePath) Then
        MsgBox "文件不存在!"
        Exit Sub
    End If
    
    ' 创建一个临时文件以保存修改后的内容
    tempFilePath = fso.GetParentFolderName(filePath)
    tempFileName = fso.GetBaseName(filePath) & "_temp" & fso.GetExtensionName(filePath)
    
    ' 打开原始文件和临时文件
    Dim originalFile As Object
    Set originalFile = fso.OpenTextFile(filePath, 1) ' 1 表示只读模式
    
    Dim tempFile As Object
    Set tempFile = fso.CreateTextFile(tempFilePath & "\" & tempFileName, True) ' True 表示创建新文件
    
    ' 逐行读取原始文件并写入临时文件
    Do Until originalFile.AtEndOfStream
        Dim line As String
        line = originalFile.ReadLine
        
        ' 找到要插入行的位置
        If line = lineToFind Then
            ' 在找到的行之后插入新行
            tempFile.WriteLine line
            tempFile.WriteLine lineToInsert
        Else
            ' 其他行直接写入临时文件
            tempFile.WriteLine line
        End If
    Loop
    
    ' 关闭文件
    originalFile.Close
    tempFile.Close
    
    ' 删除原始文件并重命名临时文件为原始文件名
    fso.DeleteFile filePath
    fso.MoveFile tempFilePath & "\" & tempFileName, filePath
    
    MsgBox "新行已成功插入文件!"
End Sub

请确保将上述代码中的`filePath`、`lineToInsert`和`lineToFind`替换为你实际的文件路径、要插入的行和要找到的行。

此代码将在指定行之后插入新行，并将修改后的内容保存回原始文件中。请注意，在处理大型文件时，此方法可能会对性能产生一些影响。