|
▼かずぴち さん:
おはようございます。
>済みません。教えてください。
>実行時エラー '1004':
>そのコマンドは複数の選択範囲に対して実行できません。
>と出るんです
>マクロの記録を使って試したものと記述がそう違いがないのに、動かないのです
>マクロは"a.xls"に保存してます。
テスト問題だとすると、面白い問題ですね。
>
> Windows("a.xls").Activate
> Cells.Select
> Selection.Copy
> Workbooks.Open Filename:="b.xls"
' ↑ここでb.xlsが開かれたとき、アクティブシートの複数のセル範囲を
' 選択していませんか?
' 複数のセル範囲を選択して保存すれば、複数のセル範囲を選択したまま
' 開いてしまいます(便利な場合もあるから、開いてくれます)。
range("a1").select '一度、A1を選択し直してから・・・ペースト
> ActiveSheet.Paste
> Application.CutCopyMode = False
> Windows("b.xls").Activate
>
でいかがですか?
もうちょっと短い記述もできますが、
それは、次の機会に・・・。
|
|