前提・実現したいこと
業務で2つのPCでシミュレーションした結果をひとつにまとめるプログラムを作りたい。
現在、1つにまとめることはできていますが、2つ目のシートの目次のようなもの(x,y,zのような1つ目のシートで
記載されている部分がまた出てしまっています。)
VBAに詳しくなく、ソースコードを見ても、セルのどこから読み取るなど(A2セルみたいな感じ)の情報がないため、
(たぶんシート内すべてを読み取っていると思いますが、、、)、その1行を消す方法がわかりません。
下記に簡単なシートの情報を記載します。
シート1 シート2
x y パターン数 x y パターン数
1 2 1 5 4 1
5 4 2 3 7 2
7 1 3 9 7 3
↓マージ後
x y パターン数
1 2 1
5 4 2
7 1 3
5 4 1
3 7 2
9 7 3
このようにしたいです。
現状はエラーメッセージの部分に記載。
シート1,2どちらもA1セルから始まっています。
よろしければ教えてください。
プラスαでパターン数を1.2.3.4.5.6.………のようにしたいですが、
今回はまず、マージできることが最優先なので余裕があれば教えていただきたいです。
発生している問題・エラーメッセージ
↓マージ後 x y パターン数 1 2 1 5 4 2 7 1 3 x y パターン数 5 4 1 3 7 2 9 7 3
該当のソースコード
VBA
1Sub 結合() 2 wpath = Range("B3") 3 wfile = Dir(wpath & "\") 4 flag = 0 5 Do While wfile <> "" 6If InStr(wfile, ".csv") Then 7flag = flag + 1 8If flag = 1 Then 9FileCopy wpath & "\" & wfile, ThisWorkbook.Path & "\output.csv" 10Open ThisWorkbook.Path & "\output.csv" For Output As #1 11Close #1 12End If 13Open ThisWorkbook.Path & "\output.csv" For Append As #1 14Open wpath & "\" & wfile For Input As #2 15Do Until EOF(2) 16Line Input #2, w_str 17Print #1, w_str 18Loop 19Close #2 20Close #1 21End If 22wfile = Dir() 23 Loop 24 25 MsgBox "マージ完了", vbInformation 26 27 End Sub
試したこと
補足情報(FW/ツールのバージョンなど)
回答4件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。