access vbaでExcelファイル作成に関する質問

質問

こんにちは
ACCESS　VBAでExcelの帳票作成に関する質問です
下記のコーディングで帳票を作成して値を書き込む。そして帳票オブジェクトを開放する
FileCopy c:\template.xls c:\Report.xls
Set xlWB = GetObject("c:\Report.xls")
Set xlSH = xlWB.Workssheets(1)
xlSH.Cells(1,1) = 100
xlWB.Save
xlWB.Close
set xlSH = nothing
set xlWB = nothing

しかし、作成したReport.xlsが開くとしても中身が見えない。
必ずReport.xlsをダブルクリックして、開いたExcelのメニューの「ウィンドウ」→「再表示」→「Report.xls」を操作しなければ帳票が見えないのです。作成した帳票は普通のようにダブルクリックしたら開けるようになってほしい。どうすればいいでしょうか、詳しい達人がいらっしゃいましたら、ぜひ教えてください。
どうもありがとうございます。

回答No.2

imogasi

質問のコードはうまく動きましたか。
何か書きなぐった風ですが。
下記で私なりにやってみました。
質問の意味は良く取れないが、
objxl.Visible = True
のあたりのことではないですか。
Sub test01()
Dim objxl As Object
Dim xlbk As Workbook
Dim xlsh As Worksheet
Set objxl = CreateObject("Excel.Application")
Set xlbk = objxl.Workbooks.Open("C:\Documents and Settings\xxxx\My Documents\01化.xls")
objxl.Visible = True
Set xlsh = xlbk.Worksheets(1)
xlsh.Cells(10, 1) = 11111
xlbk.SaveAs Filename:="C:\Documents and Settings\xxxx\My Documents\01化B.xls"
xlbk.Close
Set xlsh = Nothing
Set xlbk = Nothing
Set objxl = Nothing
End Sub
アクセスVBAにご堪能でも、エクセルVBAは文法的にはともかく、対象が別で、別物だと思いますよ。

回答No.1

fumufumu_2006

Set xlWB = CreateObject("Excel.Application").Workbooks.Open("c:\Report.xls")

では？