質問: excelをもう一つ立ち上げたい マクロを使用して sub 関数1 shell "c:\program files\microsoft office\office\excel.exe", 1 end sub と記述すれば excelがもう一つたちあがります。 また、 sub 関数2 workbooks.open filename:="c:\mydocuments\aa.xls" end sub と記述すればmydocments配下のaa.xls というファイルがたちあがります。 そこで、ここから本題なのですが、 aa.xlsというexcelファイルをもう一つのexcelに立ちげる方法を教えて頂けませんでしょうか? よろしくお願いします。
回答: 新しいモジュールを作成して、下記の内容を貼り付けてください exceltestは、 sub 関数1の応用ですね exceltest2は、オブジェクトを使ったやり方です。 excelappオブジェクトを操作して、呼び出し側でさまざまな操作を実行してやることができます。 closeexceltest2 はその応用例で、作成したexcelのウインドウを(保存してから)閉じています。 なんかあれば、補足してくださいね。 option explicit dim excelapp as excel.application sub exceltest() dim strexcelpath as string dim strfilename as string '開くファイルを設定 strfilename = "aa.xls" 'excelのパスを調べる strexcelpath = application.path '実行 shell strexcelpath & "\excel.exe """ & strfilename & """" end sub sub exceltest2() dim strfilename as string '開くファイルを設定 strfilename = "aa.xls" '新しいexcelのインスタンスを作成する set excelapp = new excel.application '開く excelapp.workbooks.open strfilename '表示 excelapp.visible = true end sub sub closeexceltest2() 'exceltest2で作成したインスタンスを破棄する on error resume next '変更点の保存 excelapp.workbooks(1).save 'ウインドウを閉じる excelapp.workbooks.close 'インスタンスを破棄 set excelapp = nothing end sub