複数のブックの特定シートを1つのブックにまとめたい

質問

複数のブックの特定のシートを1つのブックにまとめたいのですが
そのマクロは下記のように検索してでてきたのですが
Sub test()
Dim Fname As String
Dim Wbm As Workbook
Dim Wbs As Workbook

Application.ScreenUpdating = False

Set Wbs = ThisWorkbook
Fname = Dir(ThisWorkbook.Path & "\*.xlsx*")

Do While Fname <> ""
If Fname <> ThisWorkbook.Name Then
Workbooks.Open ThisWorkbook.Path & "\" & Fname
Set Wbm = ActiveWorkbook

Wbm.Worksheets("2016.03").Copy after:=Wbs.Worksheets(Wbs.Worksheets.Count)
ActiveSheet.Name = Left(Fname, InStr(Fname, ".") - 1)
Wbm.Close
End If
Fname = Dir()
Loop

Application.ScreenUpdating = True

End Sub
たとえば、特定のシートというのが毎回変わる場合今回は”2016.03"ですが
次回は”2016.04”という風に変わる時、どこかに入力したセルの値を元にシートを検索してくることなどは可能なのでしょうか？
よろしくお願い致します。

回答No.1

fmxBeem · ベストアンサー

Inputbox関数を利用されてはいかがでしょうか。

(1)
Dim sName as String 'シート名の変数の宣言
(2)
Fname = Dir(ThisWorkbook.Path & "\*.xlsx*")　の下に、以下を追加
sName=Inputbox("シート名を入力して下さい。")　’シート名を入力
(3)
Wbm.Worksheets("2016.03").Copy after:=～
　　↓変数に変更
Wbm.Worksheets(sName).Copy after:=～

※Inputboxに存在しないシート名を入力した時のエラー処理も必要です。

お礼

できました！！！ありがとうございました！！！