質問: Excel vbaのエラー回避 excel vbaで あるフィルダにある複数bookから特定シートを抽出する
回答: こんばんは。 コードを拝見する限り、新規に作成したシート名を元データのファイル名で置き換える所でエラーが出ると思われます。 ならば、元ファイルのファイル名を書き換えなくても、シート名を書き換える所で連番を付けてしまえばよいと思います。 例えば Dim Cnt As Long ' 変数追加 ... With ThisWorkbook Cnt = 1 '変数初期化追加 Do While ファイル名 <> "" ... ws.Name = "Book" & Format(Cnt , "000") ... ファイル名 = Dir() Cnt = Cnt + 1 '変数インクリメント Loop といった具合です。