Excel VBA質問箱 IV

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

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


9 / 12975 ツリー ←次へ | 前へ→

【78976】最前面 にゃんた 17/4/3(月) 12:43 質問[未読]

【79000】Re:最前面 γ 17/4/4(火) 21:26 発言[未読]
【79001】Re:最前面 TW 17/4/5(水) 7:43 お礼[未読]

【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

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

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

【79001】Re:最前面
お礼  TW  - 17/4/5(水) 7:43 -

引用なし
パスワード
   γ さん

  大変に失礼いたしました。おっしゃるとおりです
  また。参考コード大変ありがとうございました。
  思うとおりの動作ができました。
  お忙しいところお手数かけますが、よろしくお願いいたします。


▼γ さん:
>時間がとれずやっつけですが、こんなふうなことですか?
>テスト検証を十分していません。そちらでよろしく願いたい。
>
>なお、Wscript.Shell の Runメソッドで Excelを起動するなんていうのもありかも。
>
>========== 以下参考コード ====================

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