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