Q&A
前提・実現したいこと
エクセル２０１６にてVBAマクロを利用してファイルからデータを拾って貼り付ける集計をしようとしています。
Win10Homeの６４ビットです。
４０個のファイルから特定の範囲をコピーして貼り付け先に
貼り付けていくマクロなのですが
実行を押しても何も起こらずエラーも起きずに止まってしまいます。
発生している問題・エラーメッセージ
エラーメッセージなし
該当のソースコード
VBA
1Sub Macro1() 2' 3' Macro1 Macro 4' テスト 5' 6 7' 8 9 Dim strBookName As String 10 Dim i, j, k As String 11 i = 10 12 j = 10 13 k = 10 14 Dim myPath As String, myBook As String 15 myPath = "C:\Users\aaa\Desktop収納先" 16 myBook = Dir(myPath & "＊報告書.xlsx") 17 18 Do Until myBook = "" 19 Workbooks.Open myPath & myBook 20 21 Windows("＊報告書.xlsx").Activate 22 Sheets("報告書（YO）").Select 23 Range("C11:AL20").Select 24 Application.CutCopyMode = False 25 Selection.Copy 26 27 Windows("集計表.xlsm").Activate 28 Sheets("YO貼付先").Select 29 Range("C" & Format(i)).Select 30 ActiveSheet.Paste 31 i = i + 10 32 33 Windows("＊報告書.xlsx").Activate 34 Sheets("報告書（A）").Select 35 Range("C11:M20").Select 36 Application.CutCopyMode = False 37 Selection.Copy 38 39 Windows("集計表.xlsm").Activate 40 Sheets("A貼付先 ").Select 41 Range("C" & Format(j)).Select 42 ActiveSheet.Paste 43 j = j + 10 44 45 Windows("＊報告書.xlsx").Activate 46 Sheets("報告書（YK）").Select 47 Range("C10:AO24").Select 48 Application.CutCopyMode = False 49 Selection.Copy 50 51 Windows("集計表.xlsm").Activate 52 Sheets("YK貼付先 ").Select 53 Range("C" & Format(k)).Select 54 ActiveSheet.Paste 55 k = k + 15 56 57 Workbooks(myBook).Close SaveChanges:=False 58 myBook = Dir 59 Loop 60 61End Sub
補足情報（FW/ツールのバージョンなど）
貼り付け先の指定に関する部分はおそらく問題がないことは動作確認済です。
Workbooks.Open myPath & myBookで本来であれば指定のブックが開くはずなのですが
開いている気配はありません。
開くブックの指定の仕方が間違っているのではないかと予想しています。
上記で開いたブックをWindows("＊報告書.xlsx").Activateでアクティブにすることは可能なのでしょうか？
自分でも若干横着をしてしている印象を受けております。（動作していないので確認ができておりません）
VBAをコーディングは初めてなので拙い部分も多いかと思われますがコメントをいただけると幸いです。
回答1件
0
ベストアンサー
これは
VBA
1myPath = "C:\Users\aaa\Desktop収納先"
こうではないですか？
VBA
1myPath = "C:\Users\aaa\Desktop\収納先\"
デスクトップに収納先フォルダを置いているならこうなると思います。
投稿2020/12/10 07:13
総合スコア1923
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2020/12/10 07:17
2020/12/10 07:22
2020/12/10 07:24
2020/12/11 07:20