Excel VBA質問箱 IV

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

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


13261 / 13644 ツリー ←次へ | 前へ→

【6302】メール添付から開いたブックのイベント kawata 03/6/23(月) 11:46 質問
【6303】Re:メール添付から開いたブックのイベント JuJu 03/6/23(月) 12:27 回答
【6304】Re:メール添付から開いたブックのイベント kawata 03/6/23(月) 12:33 お礼
【6306】できました! kawata 03/6/23(月) 13:08 お礼

【6302】メール添付から開いたブックのイベント
質問  kawata  - 03/6/23(月) 11:46 -

引用なし
パスワード
   kawataです、お世話になってます、よろしくお願いします。
(Windows2000/Excel2000)

メールで送られてきたExcelブックを取り込むという流れの作業です。

現在は、添付されてきたブックを開いたあと、メニューとしているブック
へ移動し、そこから開いたブックのデータを取り込むという手順にして
います。

これを開いたブック上でのダブククリック等のイベントを取得できれば
いちいちメニューに戻らなくてもいいと考えたのですが・・・・。

Personal.xlsは過去のウイルス(もうかなり以前ですよね)問題で
使用していません、ただしメニューブックは常時開いていることと
いうのが前提なので、メニューブックに書き込むことになります。

ぜひよろしくお願い致します。

【6303】Re:メール添付から開いたブックのイベント
回答  JuJu E-MAIL  - 03/6/23(月) 12:27 -

引用なし
パスワード
   kawataさん、こんにちはぁ

>これを開いたブック上でのダブククリック等のイベントを取得できれば
>いちいちメニューに戻らなくてもいいと考えたのですが・・・・。

ダブルクリックは取れませんが、開いたのは分かります。

開くのを監視するVBAのThisWorkbookに書いてね。
ちょっとWithEventsの使い方に戸惑うかも知れませんが、使えるようになると便利ですよ。

Private WithEvents objExcel As Excel.Application

Private Sub objExcel_WorkbookOpen(ByVal Wb As Workbook)

  MsgBox Wb.Name & "を開いたよ"
  ' ここでファイル名とかブック名とかで判断して処理を続けてね。
End Sub

Private Sub Workbook_Open()

  Set objExcel = Application
End Sub

ではではぁ

【6304】Re:メール添付から開いたブックのイベント
お礼  kawata  - 03/6/23(月) 12:33 -

引用なし
パスワード
   kawataです、よろしくお願いします。

JuJuさん、こんにちわ、いつもありがとうございます。

>ちょっとWithEventsの使い方に戸惑うかも知れませんが、使えるようになると便利ですよ。

なんか、すごい・・・・・・・・・(^^;。
早速使えるように、チェック&トライしてみます。
まずはお礼まで、ありがとうございました。

結果、遅くなるかもわかりませんが(^^;、報告しますね。
また、よろしくお願いします。

【6306】できました!
お礼  kawata  - 03/6/23(月) 13:08 -

引用なし
パスワード
   kawataです、よろしくお願いします。

JuJuさん、ありがとうございました、とりあえずそのままコピーで
動作確認しました。
やりたいことができそうです、感謝です、ありがとうございました。

で、ヘルプもじっくり・・・・・・読みました、
けど、どうも意味がわからない(情けない(^^;)。

実際にあれこれやりもって習得していこうと思います。
ありがとうございました!!。

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