Ｖｉｓｔａなら1回で行くのにＸＰだと２回

質問

エクセルＶＢＡで新たなエクセルアプリケーションを立ち上げるコードが知りたく
ネットで検索したら見つけました。

----------------------------------------
Sub test()
Dim oApp As Object
Set oApp = CreateObject("Excel.Application")
oApp.Visible = True
oApp.UserControl = True
Set oApp = Nothing
End Sub
----------------------------------------

上記のコードなのですが
ＸＰは2回このコードを実行しないと、新たなアプリケーションは立ち上がりません。
vistaなら1回で立ち上がります。

どちらもエクセルのバージョンは2003です。
XPがおかしいのか、2回やらないといけないコードなのかわかりません。

よろしくお願いします。

回答No.2

nicotinism · ベストアンサー

直接的な回答ではありませんけど
Excelから新たなExcelを立ち上げるのでしたら、実行時バインディングよりも
下記のようにした方が、自動メンバ表示なども出来て楽です。
Sub Test
Dim oXL As New Excel.Application
oxl.visible = true
oxl.usercontrol=true
以下省略

「事前バインディング 実行時バインディング」でググった一部
http://chaichan.web.infoseek.co.jp/vbtips/VBMemo2006120904.htm

お礼

有難うございます。
XP機は会社のパソコンなので月曜日に試してみます。ＵＲＬ先読んでみます。

回答No.1

okormazd

XP Excel2003で、実行してみましたが、1回でExcelが起動します。
Vistaはないので、
Win7 Excel2003でも1回です。
Win7　Excel2010も1回で起動します。

あなたのシステムはわからないのですが、なにか具合が悪いのかもしれません。
ただし、いずれもBOOKは開きません。BOOKを開くコードになっていないからです。

お礼

検証していただきありがとうございました。
XPが原因ではなく私のマシンの原因のようですね。