將文件追加到一個文件中

Question

我是VBA和Shell中的新手，但我需要使用一些文件。

我想幾個文件追加在一起：

這是我走到這一步：

Dim fso As Object 
Dim oFile As Object 

Set fso = CreateObject("Scripting.FileSystemObject") 
Set oFile = fso.CreateTextFile(ThisWorkbook.Path & "\allFiles.py", True) 

Shell "copy /b " & ThisWorkbook.Path & "\file1.py + " & ThisWorkbook.Path & "\file2.py + " & ThisWorkbook.Path & "\file3.py " & ThisWorkbook.Path & "\allFiles.py" 

Answer 1

使用VBA而已，這裏是你可以做什麼：

Sub GetOneFile() 
    Dim fso As Object, oFile As Object, pathFileAllFiles As String 
    pathFileAllFiles = ThisWorkbook.Path & "\allFiles.py" 
    Set fso = CreateObject("Scripting.FileSystemObject") 
    Set oFile = fso.CreateTextFile(pathFileAllFiles, True) 

    Dim pathsFiles(3) As String, i As Integer, textToWrite As String, pathFile As Variant 
    pathFiles(0) = ThisWorkbook.Path & "\file1.py" 
    pathFiles(1) = ThisWorkbook.Path & "\file2.py" 
    pathFiles(2) = ThisWorkbook.Path & "\file3.py" 

    For Each pathFile As String In pathFiles 
     textToWrite = GetFileText(pathFile) 
     oFile.WriteLine textToWrite 
    Next 
    oFile.Close 
    Set fso = Nothing 
    Set oFile = Nothing  
End Sub 

Function GetFileText(pathFile) as String 
    Dim lineData As String, result As String 
    Dim ff As Integer 
    ff = FreeFile 
    Open pathFile For Input As #ff 
    Do Until EOF(ff) 
     Line Input #ff, lineData 
     result = result & VbCrlf & lineData 
    Loop 
    Close #ff 
    GetFileText = result 
End Function