フォルダ内の特定ブックだけを1つのブックにまとめる

質問

はじめましてマクロ超初心者です。
会社のシステム（ツール？）で同じフォルダに1案件につき2つのブックが作成されます。
毎回約30案件、すなわち同じフォルダに60ブックあります。

(1)同じフルダ内に60ブック
(2)その内、同じ案件が2つ。ブック名「1_****」と「2_****」　****は毎回かわる
(3)ブックには2つのシート。シート名「1」と「2」
(4)ブック「1_****」のシート「1」が開いた状態、ブック「2_****」のシート「2」が開いた状態になってる
(5)必要なのはブック「1_****」のシート「1」とブック「2_****」のシート「2」

この「1_****」のシート「1」と「2_****」シート「2」を「1_****」にまとめる作業を毎回手作業でやっています。これをなんとかマクロで出来ないでしょうか？同じフォルダにある複数ブックをまとめるマクロは見つけました、複数＝全てのブックに実行されてしまいます。フォルダ内の特定のブックをまとめるマクロがみつからず。。。どなたかご教授して頂けませんか？

回答No.2

keithin · ベストアンサー

＞このマクロをコピーして実行してみました
　↓
＞何もおこりませんでした

まぁホントにそうしたのかはこちらには判りませんけど文字通りに読むしかないので、それじゃそうなるのは当然の成り行きですね。

まずここから出来てない：

＞Dir関数で所定のフォルダの中のファイルを巡回する

mypath = "c:\test\"　　
当たり前のことですが、あなたのフォルダをちゃんと指定しなきゃダメです。

フォルダの指定の書き方が分からないなら、
１．新しいマクロの記録を開始する
２．実際に１＿ブックを開く操作を一回記録してみて、マクロを読んで書き振りを参考にする

次の可能性：
＞ブック名「1_****」と「2_****」　****は毎回かわる

たとえば半角の1や2や_と全角の１や＿で情報提供が間違っているとか。

次の可能性：
＞ブックには2つのシート。シート名「1」と「2」

１＿ブックと２＿ブックがそれぞれともにシート「１」と「２」の２枚のシートを持っている前提で書かれていますが、その情報が間違ってるかも。

次はエラーが起きてマクロが止まるかもしれませんが、その時はせめて「どこの行がエラーになった」をキチンと情報提供してください。
また何も考えずに追加質問する前に、せめてその止まった行は一体何をしている行なのか当たりを付けて、何の情報が足りてないのか、説明に間違いがなかったか、一回立ち止まって考えてみてから追加ご質問してみてください。

お礼

根本的な事をわかってなく、私のフォルダを指定していませんでした。それでちゃんと実行できました！ありがとうございます助かりました。

回答No.1

keithin

＞この「1_****」のシート「1」と「2_****」シート「2」を「1_****」にまとめる

１．Dir関数で所定のフォルダの中のファイルを巡回する
２．ブックをそれぞれ開き、シートを移動し、保存して閉じる

sub macro1()
　dim myPath as string
　dim myFile as string
　dim myFile2 as string

　mypath = "c:\test\"
　myfile = dir(mypath & "1_" & "*.xl*")

　do until myfile = ""
　　myfile2 = "2" & mid(myfile,2,99)
　　workbooks.open mypath & myfile
　　workbooks.open mypath & myfile2

　　application.displayalerts = false
　　workbooks(myfile).worksheets("2").delete
　　application.displayalerts = true
　　workbooks(myfile2).worksheets("2").move after:=workbooks(myfile).worksheets("1")

　　workbooks(myfile).close true
　　workbooks(myfile2).close false

　　myfile = dir()
　loop
end sub

補足

このマクロをコピーして実行してみましたが何もおこりませんでした。どこかに何かを書き足さないとダメなんでしょうか？myfile = dir(mypath & "1_" & "*.xl*")
の部分”1_"の部分に実際のブック名をいれないとダメですか？すみませんホント超初心者です。