【VBA】ファイルを開く→シートをコピー→保存

質問

VBAを使って、複数ファイルを一気に編集したいです。

あるフォルダ内に、複数のエクセルブックと
VBAを登録したブックが入っています。

VBAの内容としては、
(1)フォルダ内のエクセルファイルをすべて開く
(2)各ファイル1ページ目のシートを複製（コピー）する
(3)上書き保存して閉じる
(4)VBAを登録したブックを閉じる
です。

下記のように書いてみたのですが、まったく動かないので
どこが間違っているかのアドバイスをいただければと思います。

-----------------------------------------------------
Sub test()

Dim Myfile, Filepath As String
Filepath = ThisWorkbook.Path 'フォルダ名取得
Myfile = Dir(Filepath & "\") 'フォルダ内のファイル名取得

Do While Myfile <> ""
Workbooks.Open Filename:=Filepath & "\" & Myfile
Workbooks(Myfile).Activate

Sheets(1).Select
Sheets(1).Copy after:=Sheets(1)

Workbooks(Myfile).Close SaveChanges:=True

Myfile = Dir()
Loop

ThisWorkbook.Close SaveChanges:=True

End Sub
-----------------------------------------------------
よろしくお願いいたします。

回答No.1

end-u · ベストアンサー

>まったく動かない
とは？
エラーメッセージか何か出ますか？

とりあえず何点かアドバイスするとしたら。

１）エクセルファイルを指定する。
Myfile = Dir(Filepath & "\*.xls")
としてxlsファイルに限定しないと別の種類のファイルがあると
Workbooks.Openメソッドでエラーになります。

２）自ブックは除外する。
Do While Myfile <> ""
　　If Myfile <> ThisWorkbook.Name Then

　　　　（ここで目的の処理）

　　End If
　　Myfile = Dir()
Loop

ThisWorkbookも同一フォルダ内にあるわけですから
ThisWorkbookを開こうとするとエラーになります。
除外しなければいけません。

３）ScreenUpdatingプロパティなどを制御する。
多数のファイルのOpenCloseを繰り返す処理ですから、
画面更新は止めておいたほうが良いです。
他にも、イベント制御をしておいたほうが良い場合もありますし、
ご自身の状況に応じて対応してみてください。

お礼

＞エラーメッセージか何か出ますか？
何もメッセージ等出ないのですが、処理がされないという状態でした。

＞２）自ブックは除外する。
こちらを試してみたところ、無事動きました！
的確なアドバイスありがとうございます。

まだまだVBA初心者なので、これからも勉強したいと思います。
ありがとうございました！