|
取り合えず、以下を確認したいのですが?
>1、Private Sub Workbook_Open() に変更させて頂きました。
何を、「Private Sub Workbook_Open() に変更させて頂きました。」に変更したのですか?
此れが解らないと、マクロが正常に動くのか動かないのか解りません
至急お知らせ下さい
>2、読み込むファイル名が間違っていましたのでマクロを修正しました。
> ファイル名は、その日の1番最初が050901da.txt、2番目が050901da~1.txt
> 3番目が050901da~2.txtという具合で追加されていきます。
此れに就いて、渡しは、正規表現を余り使った事が無いのでこれから確認して見ます
>3、また下記の部分でsubまたはfunctionが定義されていません。
> と表示されます。何が原因でしょうか?
>
> '日付を探索
> lngCol = GetDateColumn(vntField(0), rngDate, _
> rngResult.Offset(, clngTop)) + clngTop
此れに就いて、今回、新規、修正プロシージャがUpするには、
かなり大きく成ってしまいましたので全文で載せていません
前半部に書いたのですが、以下のプロシージャは、
ミツコさんがUpした物と変更が無いので其方からCopyして
同じ標準モジュールに入れて下さい
以下のプロシージャは、変更が無いので其のまま使用
Private Function GetDateColumn
Private Function GetTagNoRow
Private Function DataSearch
|
|