Q&A
このプログラムはコピー元のエクセルに記載されているのですか？
それともまた別のエクセルなのでしょうか。
このプログラムの実行方法も含めて知りたいです。
タイトルの通りなのですが、試行錯誤しても中々うまくいきません。
助けてください。
現在の作成途中のコードは以下です。
Sub Sample()
Dim myPath As String
Dim myBook As String
Dim myActiveBook As Workbook
Dim myOpenBook As Workbook
Set myActiveBook = ActiveWorkbook myPath = "C:\Users\swprj\Desktop\test\ myBook = Dir(myPath & "*.xlsx") Do Until myBook = "" Workbooks.Open myPath & myBook Set myOpenBook = ActiveWorkbook myActiveBook.Worksheets(1).Copy After:=myOpenBook.Worksheets(1) Workbooks(myBook).Close SaveChanges:=True myBook = Dir Loop
End Sub
やりたいことは、
現在開いているブックのシートを対象フォルダ内にある全てのブックにコピー（追加）したいです。
よろしくお願いします。
回答2件
0
何がどうダメなのか詳細をお書きください。
先走って回答しますが、アクティブ前提の作りになっているのが原因かもしれません。
以下のように修正してみました。
内容ご確認ください。
但し、動作未検証です。
VBA
1Sub Sample() 2 Dim myPath As String 3 Dim myBook As String 4 Dim myActiveBook As Workbook 5 Dim myOpenBook As Workbook 6 7 Set myActiveBook = ActiveWorkbook 8 myPath = "C:\Users\swprj\Desktop\test\ 9 myBook = Dir(myPath & "*.xlsx") 10 Do Until myBook = "" 11 'Workbooks.Open myPath & myBook 12 Set myOpenBook = Workbooks.Open myPath & myBook 13 'Set myOpenBook = ActiveWorkbook 14 myActiveBook.Worksheets(1).Copy After:=myOpenBook.Worksheets(1) 15 'Workbooks(myBook).Close SaveChanges:=True 16 myOpenBook.Close SaveChanges:=True 17 myBook = Dir 18 19 Loop 20End Sub 21
投稿2019/11/18 07:06
総合スコア17000
回答ありがとうございます。
修正頂いたコードでは
Set myOpenBook = Workbooks.Open myPath & myBook
の所が構文エラーですとなってしまいました。
修正前のコードでは、コピー先のブックのシート１がコピー（複製）されてしまう点が問題でした。
こうですね。
Set myOpenBook = Workbooks.Open(myPath & myBook)
返答ありがとうございます。
修正をしてやってみたのですが、今度は修正前と同じく、何も作成していないプレーンのブックにはSheet1がもう一つ増え、Sheet1(2)が作成され、他の記入済み（Sheet名も変更済み）ブックには何も追加されていませんでした。
全て開かれてから保存はされているので、一応動いてはいます。
手元の環境で試してみましたが、きちんとコピーはできていました。
何か特殊な環境的なものとか、シートが特殊な何かなどの条件はないですか？
了解です。
少し色々試してみます。
また疑問点が見つかったらコメントさせてください。
同じ内容の前回の質問のコメントにも書いてますが、エクセルのバージョン含めて書きだせる環境情報全て書いてみてはどうでしょうか？
回答されている内容で動かないならやはり環境依存じゃないかと疑ってしまいます
調べたところExcelは２０１６でした。
回答ありがとうございます。
当方は2013ですが、特別トリッキーなことをやっているわけでもないのでバージョンの違いは気にすることはなくてよさそうです。
シートの構成とかは影響しそうです。
本番環境ではなくテスト用にシンプルな環境を作って、まずはそちらで試してみるのもよいですね。
一応プレーンのファイルを２つ（コピー元とコピー先）作って試してみたのですが、
結果は同じでした。なにかExcelの設定に問題があるのでしょうか。。
コードは元のファイルのどこに置いていますか？コピー元シートに置くと当然マクロ付きになってしまってダメかと思うので、標準モジュールか別のシートに置く必要はあると思います。
コードは標準モジュールの下に置いています。
マクロ付きになってしまってダメとはどういう事でしょうか？
コピー先は"*.xlsx"のファイルなのでマクロが付いていると保存できないか、何か警告が出ると思います。
コピー元またはコピー先がマクロ有効ブックだとだめという事なのでしょうか？
現在は両方ともに有効ブックです。コピー先の方は有効無効試してみましたがダメでした。
あ、コピー先を変えた時はxlsxも変更していました。
ん？どういうことでしょうか。
見せてない処理もあるってことですか？
いえ、コピー先をマクロ有効ブックと普通のブックで試してみたことを伝えたかったというだけです。
その際にxlsxをxlsmに書き換えたけど結局処理としては同じで出来ませんでした。
分かりにくくて申し訳ないです。
以下の手順でやってもダメですか？
1. 新規にワークブックを作成
2. Sheet1に何か適当に値を入力
3. 標準モジュールに回答のコードをコピペ（追加の修正もお願いします）
4. Sampleを実行
5. Sheet1が各Excelファイルの2シート目にコピーされているはず
基本これだけのはずです。
もしこれでもダメなら、myOpenBook.Closeの行をコメントアウトして処理が終わった状態で各Excelファイルがどのような状態かを確認してみてください。
0
私の環境ではうまく動いているように見えます。
同じシート名がすでにある、ベースとなるパスがそもそも間違っているなど、失敗している原因は凡ミスの可能性がありますね。
投稿2019/11/19 05:51
総合スコア48
あなたの回答
tips
プレビュー
