|
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ファイルか
を判断させて、処理を分岐したいのですが、この場合、どういうコード
になるのでしょうか?。
ぜひ、よろしくお願いします。
(情報が足らなければ追記します、ご指摘ください)
|
|