VBAで、テキストファイルの編集

質問

プログラムの初心者です。
困ってます。お教え下さい。

VBA上の制御で、あるテキストファイルのデータをコピーして、
別のテキストファイルに貼り付けして、別保存したいのですが、
分かりません。

テキストファイルを開くだけでしたらできたのですが、
それからが・・・・
Call Shell("C:\WINNT\system32\notepad.exe c:\text1.txt")

すいません、お教え下さい。

回答No.3

yanmaa

１～１０のファイルを一つのファイルにしたいということですか？
であれば

関数として
Function AppendFile(InputFile as string,Fp as Integer) as Integer
dim Fp2 as Integer

Fp2 = freefile
OPEN InputFile for Input As fp2
Do While Not EOF(fp2)
Line Input #fp2, TextLine1
Print #fp, TextLine1
Loop

close fp2

End Function
を作成して

呼び出し側
sub Main()
dim Fp as Integer
dim rtn as integer

Fp = freefile
OPEN "最終ファイル" for Output As fp

rtn = AppendFile("file1.txt",fp)
rtn = AppendFile("file2.txt",fp)
rtn = AppendFile("file3.txt",fp)
rtn = AppendFile("file4.txt",fp)
・
・
・

close fp

end Sub
とするのかな

DOSのコマンドを呼び出しするなら
shell("COPY FILE1.TXT+FILE2.TXT+FILE3.TXT 結合ファイル名")