Excel VBA質問箱 IV

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

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


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

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

【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 お礼[未読]

【78995】Re:最前面
発言  TW  - 17/4/4(火) 7:44 -

引用なし
パスワード
   γ さん、説明不足で申し訳ありません

batでエクセルを起動してます、会社でマクロ無効が標準設定なので
マクロ無効でも、マクロが動くようにしたつもりです。

BAT等作業用のファイルがフォルダに入れてあり、
フォルダを開いて、BATをクリックすると
フォルダの後ろになってしまいます。

他のアプリは開いていても、フォルダを開くので
その時フォルダが最前面なので、フォルダの後ろ
その他のアプリの前に開きます。


BATは

Spa = WScript.ScriptFullName
 Fpath = Left(Spa, InStrRev(Spa, "\") - 1)
  OPFL = Fpath & "\sagyou.xlsm"
  On Error Resume Next
  Set ExlApp = GetObject(, "Excel.Application")
   If ExlApp Is Nothing Then
   Set ExlApp = CreateObject("Excel.Application")
   Else
  End If
 ExlApp.Visible = True
 AppActivate ExlApp.Caption
  ExlApp.DisplayAlerts = False
  ExlApp.EnableEvents = False
  ExlApp.Workbooks.Open OPFL
  ExlApp.Run ("'" & OPFL & "'!Auto_Open")
  ExlApp.EnableEvents = True

sagyouと言うエクセルを開きます。
このsagyouにマクロが複数有り仕事しますが
どうしても、最前面になりません。
アドバイスをよろしくお願いします


▼γ さん:
>>batでエクセルを起動してますが、色々調べても、
>>どうしても最前面に表示されません
>
>・どのようなbatなのか、
>・Excelよりも前面に出るアプリケーションは何か、
>などを説明されたらいかがですか?
>今のままだと説明不足で、回答のしようがないように思います。

【78997】Re:最前面
発言  β  - 17/4/4(火) 8:25 -

引用なし
パスワード
   ▼TW さん:

回答ではありません。

h tp://www.excel.studio-kazu.jp/kw/20170329095243.html

ここでは具体的に役に立つ回答をすることができていない状況ですけど
何らかのレスを返していただくなり、継続してQ/Aを続けられても
よかったのではと、ちょっと残念です。

【78998】Re:最前面
発言  β  - 17/4/4(火) 8:33 -

引用なし
パスワード
   ▼TW さん:

回答ではない連投で失礼します。

>会社でマクロ無効が標準設定なので
>マクロ無効でも、マクロが動くようにしたつもりです。

私がどうこう申し上げる立場ではないのですが、具体的にどのような設定なのかは別にして
会社のセキュリティポリシーとしてエクセルマクロを禁止しているとすれば、
テクニックとして、それをかいくぐって、マクロブックのマクロを実行するということが
どうなのかなぁ? と思ったりします。

【78999】Re:最前面
発言  TW  - 17/4/4(火) 8:43 -

引用なし
パスワード
   β さん
御忠告ありがとうございます

マクロは会社から許可を取って、信頼される・・と言う形です
マクロを有効にすることができなかったり
間違えたり、無効にするのを忘れる社員がいるので、
仕方なくの対応です。

説明不足で申し訳ありませんでした。


▼β さん:
>▼TW さん:
>
>回答ではない連投で失礼します。
>
>>会社でマクロ無効が標準設定なので
>>マクロ無効でも、マクロが動くようにしたつもりです。
>
>私がどうこう申し上げる立場ではないのですが、具体的にどのような設定なのかは別にして
>会社のセキュリティポリシーとしてエクセルマクロを禁止しているとすれば、
>テクニックとして、それをかいくぐって、マクロブックのマクロを実行するということが
>どうなのかなぁ? と思ったりします。

【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を起動するなんていうのもありかも。
>
>========== 以下参考コード ====================

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

引用なし
パスワード
   ▼β さん

色々お手数をおかけしましたが 
参考コードを頂き、思うような動作ができました
お忙しいところお手数かけました、よろしくお願いいたします。


▼β さん:
>▼TW さん:
>
>回答ではない連投で失礼します。
>
>>会社でマクロ無効が標準設定なので
>>マクロ無効でも、マクロが動くようにしたつもりです。
>
>私がどうこう申し上げる立場ではないのですが、具体的にどのような設定なのかは別にして
>会社のセキュリティポリシーとしてエクセルマクロを禁止しているとすれば、
>テクニックとして、それをかいくぐって、マクロブックのマクロを実行するということが
>どうなのかなぁ? と思ったりします。

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