[[20100630102911]]　『Excelが最前面にならない』（kyuu）　ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

　

『Excelが最前面にならない』（kyuu）

 エクスプローラからtest1.vbsをダブルクリックしExcelを起動するようにしていますが、
 Excelがエクスプローラの背面に表示されます。
 最前面にする方法はありませんか。
 Excel2000では最前面になりますが2007/Vistaでは最前面になりません。

 [test1.vbs]
Dim exApp
Set exApp = CreateObject("Excel.Application")
exApp.Visible = True
exApp.Workbooks.Add
Set exApp = Nothing

 [Excel2007 / Windows Vista]

---

 たぶん。
 >exApp.Workbooks.Add
 の前か後に
 CreateObject("WScript.Shell").AppActivate exApp.Caption
 BJ

---

 BJさん、ありがとうございます。
CreateObject("WScript.Shell").AppActivate exApp.Caption
 で、解決しました。
 (kyuu)

---

コメント返信：

---

[ 一覧(最新更新順) ]

---

YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.