|
kanabun様
たびたび申し訳ありません。
とりまとめ用のブックのシートにボタンを作って、そちらにご教示いただいたコードをセットしました。
そして実行すると、やりたいことはできたのですが、以下の場所で引っかかってしまいます。
おそらく、「もう検索できるファイルがない」ということで出たんだと思いますが、すべてのファイルを転記し終わったあと、このエラーを出さないようにするにはどのようにすればよろしいでしょうか?
とりまとめ用のブックはアクティブになっており、こちらにマクロをセットしたかったので、
Dim WB0 As Workbook
Set WB0 = ActiveWorkbook
というふうにしています。
エラーの出る個所は、
Set WB = Workbooks.Open(FoundFiles(i))
です。
申し訳ありませんが、どうぞよろしくお願いいたします。
**************************************
Sub ファイル取得ボタン_Click()
:
(中略)
:
''検索パスとファイルパターンを指定してファイル検索
FoundFiles = GetFile(myPath, FileName)
If UBound(FoundFiles) < 0 Then
MsgBox "該当ファイルが見つかりません"
Exit Sub
End If
Dim WB0 As Workbook
Set WB0 = ActiveWorkbook
Dim WB As Workbook
Dim ws As Worksheet
For i = 0 To UBound(FoundFiles)
Set WB = Workbooks.Open(FoundFiles(i))
For Each ws In WB.Worksheets
Select Case ws.Name
Case "東京", "大阪", "名古屋"
このシートより転記 ws, WB0
End Select
Next
WB.Close False
Set WB = Nothing
Next
MsgBox "転記終了!"
End Sub
|
|