Excel VBA質問箱 IV

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

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


272 / 73641 ←次へ | 前へ→

【79000】Re:最前面
発言  γ  - 17/4/4(火) 21:26 -

引用なし
パスワード
   時間がとれずやっつけですが、こんなふうなことですか?
テスト検証を十分していません。そちらでよろしく願いたい。

なお、Wscript.Shell の Runメソッドで Excelを起動するなんていうのもありかも。

========== 以下参考コード ====================

fname = "test.xlsm"

Spa = WScript.ScriptFullName
Fpath = Left(Spa, InStrRev(Spa, "\") - 1)
OPFL = Fpath & "\" & fname

On Error Resume Next
Set ExlApp = GetObject(, "Excel.Application")
If ExlApp Is Nothing Then
  Set ExlApp = CreateObject("Excel.Application")
End If
On Error GoTo 0

ExlApp.Visible = True
ExlApp.DisplayAlerts = False
ExlApp.EnableEvents = False
ExlApp.Workbooks.Open OPFL
'  ExlApp.Run ("'" & OPFL & "'!Auto_Open")
ExlApp.EnableEvents = True
ExlApp.Windows(fname).Visible = True

CreateObject("WScript.Shell").AppActivate ExlApp.Caption

========== コード終わり =========

なお、コメントをいただいておきながら放置は頂けない。
社会人としていかがなものか。
今からでもきちんと対応しておくべきだ。

66 hits

【78976】最前面 にゃんた 17/4/3(月) 12:43 質問[未読]
【78993】Re:最前面 γ 17/4/4(火) 7:33 発言[未読]
【78995】Re:最前面 TW 17/4/4(火) 7:44 発言[未読]
【78997】Re:最前面 β 17/4/4(火) 8:25 発言[未読]
【78998】Re:最前面 β 17/4/4(火) 8:33 発言[未読]
【78999】Re:最前面 TW 17/4/4(火) 8:43 発言[未読]
【79002】Re:最前面 TW 17/4/5(水) 7:44 お礼[未読]
【79000】Re:最前面 γ 17/4/4(火) 21:26 発言[未読]
【79001】Re:最前面 TW 17/4/5(水) 7:43 お礼[未読]

272 / 73641 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free