Excel VBA質問箱 IV

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

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


56432 / 76738 ←次へ | 前へ→

【25059】witheventsのオープンで・・
質問  kawata  - 05/5/19(木) 9:26 -

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

お世話になっております。
ずっと以前に、ここで教えていただいたWithEventsについて。

Public WithEvents objExcel As Excel.Application

Private Sub objExcel_WorkbookOpen(ByVal wb As Workbook)

  If wb.Name like "aa*" Then
    〜

メール添付でくるExcelブックの処理に使用するパターンで
実に重宝しており、ほんとうに助かっております。

で、今回、このロジックにCSVファイルの読込を加えたいということに
なりました。
単純にCSVファイルを読み込んで前ゼロが消されてしまうのは
システム上マズイので、文字として読み込まなくてはなりません。
ファルダからオープンしての読込む場合のコードは解決しておりますが
メール添付できた「CSVファイル」の読込の場合、ExcelブックかCSVファイルか
を判断させて、処理を分岐したいのですが、この場合、どういうコード
になるのでしょうか?。

ぜひ、よろしくお願いします。
(情報が足らなければ追記します、ご指摘ください)
0 hits

【25059】witheventsのオープンで・・ kawata 05/5/19(木) 9:26 質問
【25060】Re:witheventsのオープンで・・ ウッシ 05/5/19(木) 9:52 回答
【25062】Re:witheventsのオープンで・・ kawata 05/5/19(木) 10:00 お礼
【25068】Re:witheventsのオープンで・・ ウッシ 05/5/19(木) 10:46 発言
【25069】Re:witheventsのオープンで・・ kawata 05/5/19(木) 10:51 発言
【25070】Re:witheventsのオープンで・・ ウッシ 05/5/19(木) 11:16 発言
【25072】Re:witheventsのオープンで・・ kawata 05/5/19(木) 11:28 発言

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