質問: false activeworkbook.save activewindow.close windows("book1.xls").activate end sub book2を開くところまではうまくいきますが、その後の貼り付けがうまくできません。 デバックでは activesheet.pastespecial format:="xml スプレッドシート", link:=false, displayasicon:=false が黄色く表示され、「実行時エラー1004 worksheetクラスのpastespecialメソッドが失敗しました。」 となります。 どこをどう訂正したらよいか、あるいは他のうまくいくコードをご存知でしたら教えてください。よろしくお願いします。
回答: 名前を新たに定義してみては range("a1:a10").copy workbooks.open filename:=(ファイルの保存先) range("a1").select activesheet.paste activeworkbook.names.add name:="日付", referstor1c1:="=" & activesheet.name & "!r1c1:r10c1"