Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

50483 / 76732

←次へ　｜　前へ→


	【31138】Re:実行時エラー '1004':　で

ichinose - 05/11/12(土) 8:23 -


	引用なし

	パスワード

▼かずぴちさん：
おはようございます。

>済みません。教えてください。
>実行時エラー '1004':
>そのコマンドは複数の選択範囲に対して実行できません。
>と出るんです
>マクロの記録を使って試したものと記述がそう違いがないのに、動かないのです
>マクロは"a.xls"に保存してます。
テスト問題だとすると、面白い問題ですね。

>
>　　Windows("a.xls").Activate
>　　Cells.Select
>　　Selection.Copy
>　　Workbooks.Open Filename:="b.xls"
'　 ↑ここでb.xlsが開かれたとき、アクティブシートの複数のセル範囲を
'　　選択していませんか？　
'　　複数のセル範囲を選択して保存すれば、複数のセル範囲を選択したまま
'　　開いてしまいます（便利な場合もあるから、開いてくれます）。
　　 range("a1").select '一度、Ａ１を選択し直してから・・・ペースト
>　　ActiveSheet.Paste
>　　Application.CutCopyMode = False
>　　Windows("b.xls").Activate
>
でいかがですか？
もうちょっと短い記述もできますが、
それは、次の機会に・・・。

2 hits

▼

【31135】実行時エラー '1004':　で かずぴち 05/11/11(金) 23:38