vba在文间中间插入行

要在VBA中在文本文件中间插入行，可以使用FileSystemObject对象和TextStream对象来实现。以下是一个示例代码：

Sub InsertLineInTextFile()
    Dim fso As Object
    Dim inputFile As Object, outputFile As Object
    Dim inputFilePath As String, outputFilePath As String
    Dim tempFilePath As String
    Dim tempFileContent As String
    Dim insertLine As String
    
    ' 设置输入文件路径和输出文件路径
    inputFilePath = "C:\input.txt"
＊＊＊