CreateObjectでファイルを開く

お世話になります。

下記のVBAで作成した「oApp」をその後の処理で使用しています。

---------------------------------------------------------
Set oApp = CreateObject("Excel.Application")
oApp.Workbooks.Open FileName:=CurrentProject.Path & "\メイン.xls"
---------------------------------------------------------
現在は、閉じたメイン.xlsを開いて「oApp」を取得しているのですが、
わざわざメイン.xlsを閉じるのではなく、開かれたままメイン.xlsをoAppとして
処理したいのです。

どのよにすれば、すでに開かれているメイン.xlsをoAppに
割り当てることができるでしょうか？

なにとぞよろしくお願いします。

No.2 ベストアンサー 回答者： kmetu 回答日時： 2013/10/19 13:11

No1の補足です。

Sub Sample2()

Dim oApp As Workbook

Set oApp = Workbooks("Book1.xls")

oApp.Sheets("Sheet3").Range("A1").Value = "AAA"

End Sub

こちらでもよろしいのではないでしょうか。

この回答へのお礼

ありがとうございます！！！！！
正常に開けました！！！

お礼日時：2013/10/21 12:20

No.1 回答者： kmetu 回答日時： 2013/10/19 12:44

Sub Sample()

Dim oApp As Object

Set oApp = CreateObject("C:\test\Book1.xls")

oApp.Sheets("Sheet3").Range("A1").Value = "AAA"

End Sub

でいけそうですけど。開いてないとバッググラウンドの非表示で開きます。

この回答へのお礼

ありがとうございます！！！

お礼日時：2013/10/19 14:08