エクセルファイル”202112xx集計表.xlsm"のシート名"マクロ"のA1に”20211212.csv"を事前に記入してあり、シート名"マクロ"のシート内のマクロ実行ボタンを押すとエクセルファイル”20211212.csv"を選択し、そのcsvファイルのB29を"202112xx集計表.xlsm"のF18にコピペしたいと考えています。
変更前のコードはマクロ内で名前を指定しています。
変更後の最初のコード部分でセル内と同じファイル名を選択すると思うのですが、うまくいきません。
エクセルファイルはすべて開かれている状態です。
変更後のコードが間違っている理由も簡単に説明していただけると幸いです。
よろしくお願いいたします。
・変更前
Windows("20211212.csv").Activate
Range("B29").Select
Selection.Copy
Windows("202112xx集計表.xlsm").Activate
Range("F18").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
・変更後
Windows(ThisWorkbook.Sheets("マクロ").Range("A1") & ".csv").Activate
Range("B29").Select
Selection.Copy
Windows("202112xx集計表.xlsm").Activate
Range("F18").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
No.2ベストアンサー
- 回答日時:
No1です。
>インデックスが有効範囲にありませんというエラーが出ます。
「指定したブック名のウィンドウが存在しない」という意味と考えられます。
ご提示のマクロがどこに記述されているのか不明ですが、
MsgBox ThisWorkbook.Sheets("マクロ").Range("A1") & ".csv"
としてみれば、どのようなブック名で指定しているかを確認できるでしょう。
また、指定されたブックが開いた状態でなければ、当然ながらエラーになります。
No.1
- 回答日時:
こんにちは
>うまくいきません。
ではなくて、エラーが出る部分と、その時のエラー内容をきちんと確認しましょう。
想像するところ、
>A1に”20211212.csv"を事前に記入してあり、~~
というのが正しいとしてよいのなら、
>ThisWorkbook.Sheets("マクロ").Range("A1") & ".csv"
の結果は、"20211212.csv.csv"となると考えられますので、「そのようなウィンドウはないよ」と言われるかと・・・
そのような内容のエラーになってはいませんか??
これまた想像ですが、多分、そこを修正すれば、一応動作するのではないでしょうか。
コメントありがとうございます。
".csv"を抜いて、ThisWorkbook.Sheets("マクロ").Range("A1") で試しまたが、型が一致しませんというエラーで実行できません。
また、ThisWorkbook.Sheets("マクロ").Range("A1") & ".csv"でA1に”20211212"と記入して実行すると、インデックスが有効範囲にありませんというエラーが出ます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・14歳の自分に衝撃の事実を告げてください
- ・架空の映画のネタバレレビュー
- ・「お昼の放送」の思い出
- ・昨日見た夢を教えて下さい
- ・ちょっと先の未来クイズ第4問
- ・【大喜利】【投稿~10/21(月)】買ったばかりの自転車を分解してひと言
- ・メモのコツを教えてください!
- ・CDの保有枚数を教えてください
- ・ホテルを選ぶとき、これだけは譲れない条件TOP3は?
- ・家・車以外で、人生で一番奮発した買い物
- ・人生最悪の忘れ物
- ・【コナン30周年】嘘でしょ!?と思った○○周年を教えて【ハルヒ20周年】
- ・ハマっている「お菓子」を教えて!
- ・最近、いつ泣きましたか?
- ・夏が終わったと感じる瞬間って、どんな時?
- ・10秒目をつむったら…
- ・人生のプチ美学を教えてください!!
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・都道府県穴埋めゲーム
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
excelファイルに使われているVB...
-
エクセル終了時の保存確認メッ...
-
Excelが勝手にシート移動してし...
-
アクセスでファイルを開いたと...
-
VBAを一度起動するとずっと出て...
-
昨日まで動いていたエクセルの...
-
マクロを消すマクロは不可能?
-
エクセル2013vbaで、見えない名...
-
コピーしたファイルのマクロを...
-
excelが別プロセスで起動してし...
-
EXCEL右上のバッテンでは保存で...
-
アクセス ファイルの重さの限界
-
サクラエディタのマクロ設定を...
-
【マクロ】エラーが発生⇒実行時...
-
ファイルリネームの良い知恵を...
-
外部データを取り込むマクロ
-
別のパソコンでエクセルのマク...
-
VBA マクロ実行時エラー’1004Ra...
-
エクセルマクロが海外PCで開けない
-
Wordで貼り付け(ペースト)機能...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBAを一度起動するとずっと出て...
-
コピーしたファイルのマクロを...
-
エクセル終了時の保存確認メッ...
-
マクロを消すマクロは不可能?
-
別のパソコンでエクセルのマク...
-
昨日まで動いていたエクセルの...
-
VBA マクロ実行時エラー’1004Ra...
-
excelファイルに使われているVB...
-
Excelが勝手にシート移動してし...
-
マクロでマクロを削除する
-
外部データを取り込むマクロ
-
アクセスでファイルを開いたと...
-
エクセル2013vbaで、見えない名...
-
EXCEL マクロ クリップボードク...
-
Excelマクロ ファイル名が変わ...
-
エクセルファイルを自身のファ...
-
excelが別プロセスで起動してし...
-
Excelからnotesメールを自動で...
-
エクセルマクロ実行中に別ファ...
-
Excel2010 PERSONAL.xlsbの挙動...
おすすめ情報