Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

10437 / 76734

←次へ　｜　前へ→


	【71843】Re:エクセルVBAで、エクセルファイルを開いたときに最前面に表示させたい。

ひろ - 12/4/16(月) 20:20 -


	引用なし

	パスワード

回答ありがとうございます。

DoEventsをはさんでみましたがうまくいきませんでした。
しかし、いろいろ調べていたら下記のようなやり方がある
ことがわかり試してみたところ、
うまくユーザーフォームの上に
エクセルが表示されるようになりました。

Private Declare Function ShowWindow Lib "user32" (ByVal hwindow As Long, ByVal cmdshow As Long) As Long

Set xlApp = CreateObject("Excel.Application")
xlApp.Workbooks.Open Filename:=myFName
ret = ShowWindow(xlApp.Hwnd, 3)

いろいろと本当にありがとうございました。

9 hits

▼

【71707】エクセルVBAで、エクセルファイルを開いたときに最前面に表示させたい。 ひろ 12/4/1(日) 3:15