質問: 6 to 11 range(strbase & intage).select selection.copy windows(strmastername).activate sheets(strbase).select range(strbase & intage & "_" & strno).select selection.pastespecial paste:=xlvalues, operation:=xlnone, blanks:= _ false, transpose:=false windows(strfilename).activate sheets(strbase).select next intage 2つのファイルを開いていて、1つのファイルから別のファイルにデータを連続してコピーしています。 windowsをactivateして、sheetsをselectしてからrangeをselectしているのですが、 直接、windowsのsheetsのrangeをselectする方法はないのでしょうか? windows(strfilename).sheets(strbase).range(strbase & intage).select としたらエラーが発生してダメでした。 わかる方いらっしゃいましたら、よろしくお願いいたします。 (これで十分動いているのですが、もう少し、簡潔な文にしたいのです)
回答: 簡略し過すぎたでしょうか・・・・ windows(strfilename).sheets(strbase).range(strbase & intage) = workbooks(strmastername).sheets(strbase).range(strbase & intage & "_" & strno).text という意味だったのですが。。。