Access VBAでExcelファイルを開くには

Question

Access VBAでExcelファイルを開きたいのですが、
既に開いているエクセルがあって（A)、Aに新しく開いた
ファイル（B)のシートをAに移動したいのですが、下記コードだと、

Sub rr
Dim Objxls　As Object
Dim strFile　As String

kyou = Format(Date, "yymmdd")
strFile = "D:\LocalData" & kyou & ".xlsx"

Set Objxls = CreateObject("Excel.Application")
With Objxls
.Visible = True
.Workbooks.Open strFile
End With
End Sub

これだと、CreateObject("Excel.Application")のせいか、
別ブックで開いているようで、シートの移動ができません。
シートの移動が出来るように開きたいのですが、
どうすればよいかわかる方がいらっしゃいましたら、
ご教示よろしくお願いいたします。

Comments

[koneko-neko]

jinoji様、できました^^！
ありがとうござました！

Answer 1

これでどうでしょう。

Set Objxls = GetObject(, "Excel.Application")

Comments

[koneko-neko]

jinoji様、できました^^！ ありがとうござました！