なぜ開かない？

質問

VBScriptでブラウザからEXCELのシートを開くプロシージャを作りたいのですが、以下のようにしても開けません。ただし、実際に手動でこのEXCELファイルを開くと、「すでに開かれています」とのメッセージが出るので、開かれているけど表示されないといった、おかしな現象が起きていると思われます。どこが間違っているのでしょうか。

Dim objExcel
Set objExcel = CreateObject("Excel.Application")

sub openExcel
Dim objFs
Set objFs = CreateObject("Scripting.FileSystemObject")
if true = objFs.FileExist("C:\・・ファイル名.xls") Then
objExcel.WorkBooks.Open("C:\・・ファイル名.xls")
end If
end sub

回答No.1

FlossenEngel · ベストアンサー

Openの後にでも
objExcel.Visible = true
を入れて下さい。

お礼

できました。
大変助かりました。