Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

30158 / 76732

←次へ　｜　前へ→


	【51843】Re:ファイルの合成

りん

- 07/10/7(日) 12:27 -


	引用なし

	パスワード

ロンさん、こんにちわ。
>見よう見真似でDドライブに在る
>AAA.001（001は拡張子）と　BBB.002を合成して
>CCC.003というファイルにするバッチファイルを作りました。

>　COPY　/B　D:\AAA.001+D:\BBB.002　D:\CCC.003

>この工程をVBAで同じように作業をさせるには
>どのようにマクロを書けばよろしいですか？
>宜しくお願いいたします。

そのバッチファイルの名前が D:\TEST.BAT として、

Sub test()
　 'バッチコマンド実行
　 Shell "D:\TEST.BAT"
End Sub

という方法もあります。

テキストファイルなら、FSOを使用する方法も。

Sub test2()
　 Dim FSO As Object, buf As String
　 '
　 Set FSO = CreateObject("Scripting.FileSystemObject")
　 'Ａをコピー(C)
　 FSO.GetFile("D:\AAA.001").Copy "D:\CCC.003"
　 'Ｂを全部読み込む
　 buf = FSO.OpenTextFile("D:\BBB.002").ReadAll
　 'Ｃに追加書き出し
　 With FSO.GetFile("D:\CCC.003").OpenAsTextStream(8)
　　　.Write buf
　　　.Close
　 End With
　 '
　 Set FSO = Nothing
End Sub

こんな感じです。

0 hits

▼

【51841】ファイルの合成 ロン 07/10/7(日) 10:47