- ベストアンサー
※ ChatGPTを利用し、要約された質問です（原文：Excelマクロでオートフィルターからコピペ）
Excelマクロでオートフィルターからコピペ
このQ&Aのポイント
- Excelマクロでオートフィルターを使用して、B列の0以外の値を抽出し、別のファイルのD列の一番下に貼り付けるマクロを作成しています。
- フィルターで0以外の値を抽出してコピーするまでは成功していますが、貼り付けるところでエラーが発生しています。
- エラーメッセージは「Microsoft Visual Basic 400」と表示されており、原因がわかりません。詳しい方に助けていただきたいです。
- shosho2222
- お礼率28% (7/25)
- その他MS Office製品
- 回答数2
- ありがとう数0
- みんなの回答 （2）
- 専門家の回答
質問者が選んだベストアンサー
こんばんは！ お役に立てるかどうか判りませんが・・・ 貼り付けるBookのSheetを指定してはどうでしょうか？ ＞Windows("貼りつけるファイル名").Worksheets("sheet1").Activate といったような感じで。 的外れならごめんなさいね。m(_ _)m
その他の回答 (1)
- merlionXX
- ベストアンサー率48% (1930/4007)
回答No.1
Windows("貼りつけるファイル名.xls").Activate のように拡張子を入れたらどうなりますか？ （2007以降なら拡張子も変わっていますが。）
質問者
補足
すいません、元のコードには拡張子は入っています。 分かりやすく変えたつもりだったのですが…。
補足
返答ありがとうございます。 やってみましたが、駄目でした・・・。