| |
エクセルのVBAでユーザーフォームを作り、
ユーザーフォーム上にボタンを配置して、
そのボタンを押すと、test.xlsファイルが開く処理。
※ユーザーフォームはモーダルで開いています。
・windowsXP、エクセル2003
・windowsXP、エクセル2007
で動かしたときは、test.xlsファイルは、
最前面（ユーザーフォームの上）に表示されます。
しかし、
・windows７、エクセル2003
・windows７、エクセル2007
で動かしたときは、test.xlsファイルが画面左下の
タスクバーに最小化されてしまいます。
windowsXPのときのように、
最前面に表示されるようにしたいのですがご教授お願いします。
ボタンを押したときの処理−−−−−−−−−−
myFName = "D:\test.xls"
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True '1.
xlApp.Workbooks.Open Filename:=myFName '2.
−−−−−−−−−−−−−−−−−−−−−
ネットでいろいろ調べたりして、
1.と2.の処理の間に下記の処理を入れたのですが、
ダメでした。
xlApp.WindowState = xlMaximized
xlApp.Run 3
CreateObject("WScript.Shell").AppActivate xlApp.Caption
|
|
ひろ
- 12/4/1(日) 3:15 -
