エクセルのマクロでDOSのコマンドを記述するには？

質問

デスクトップにa.prnとb.prnというファイルがあります。a.prnとb.prnを結合しa.prnを作成したのちb.prnを削除する作業をエクセルのマクロに記入したいのですがどうしらいいでしょうか？おしえてください。

回答No.3

Wendy02 · ベストアンサー

#2 の Wendy02です。
#1 さんのおっしゃっていたものを作ってみました。ただし、アペンドモードにしました。
結合中にエラー（バイナリコードが入るなど)が、でると、最初のファイルはアペンドモードですから、戻しが利きませんので、バックアップファイルが必要です。

なお、#2 の
　TmpFn = " tmp.prn"
製作中の段階で、作っていたもので、これは不要の行ですから、削除してしまってください。
別に試さなくてもよいです。こちらのほうが確実です。

Sub FileCombine()
Dim Fn1 As String
Dim Fn2 As String
Dim msg As String

Dim Fno1 As Integer
Dim Fno2 As Integer
Dim LineText As String

'ファイル名設定
Fn1 = "a.prn"
Fn2 = "b.prn"

If Len(Dir(Fn1)) = 0 Or Len(Dir(Fn2)) = 0 Then
　 msg = Left$(Fn1, Len(Fn1) - Len(Dir(Fn1))) & " " & _
　　　　 Left$(Fn2, Len(Fn2) - Len(Dir(Fn2)))
　 MsgBox msg & "のファイルがありません。"
　 Exit Sub
End If

Fno2 = FreeFile()
Open Fn2 For Input As #Fno2

Fno1 = FreeFile()
Open Fn1 For Append As #Fno1

Do Until EOF(Fno2)
　Line Input #Fno2, LineText
　Print #Fno1, LineText
Loop
Close #Fno1
Close #Fno2

'ファイル削除
Kill Fn2

MsgBox "結合しました。", vbInformation

End Sub

お礼

ありがとうございます。参考にさせていただきました。