Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

53182 / 76735

←次へ　｜　前へ→


	【28372】Re:外部ファイルの自動読み込みについて

Hirofumi - 05/9/4(日) 10:36 -


	引用なし

	パスワード

取り合えず、以下を確認したいのですが？

>１、Private Sub Workbook_Open()　に変更させて頂きました。

何を、「Private Sub Workbook_Open()　に変更させて頂きました。」に変更したのですか？
此れが解らないと、マクロが正常に動くのか動かないのか解りません
至急お知らせ下さい

>２、読み込むファイル名が間違っていましたのでマクロを修正しました。
>　　ファイル名は、その日の１番最初が050901da.txt、２番目が050901da~1.txt
>　　３番目が050901da~2.txtという具合で追加されていきます。

此れに就いて、渡しは、正規表現を余り使った事が無いのでこれから確認して見ます

>３、また下記の部分でsubまたはfunctionが定義されていません。
>　　と表示されます。何が原因でしょうか？
>
>　'日付を探索
>　 lngCol = GetDateColumn(vntField(0), rngDate, _
>　　　 rngResult.Offset(, clngTop)) + clngTop

此れに就いて、今回、新規、修正プロシージャがUpするには、
かなり大きく成ってしまいましたので全文で載せていません
前半部に書いたのですが、以下のプロシージャは、
ミツコさんがUpした物と変更が無いので其方からCopyして
同じ標準モジュールに入れて下さい

以下のプロシージャは、変更が無いので其のまま使用
Private Function GetDateColumn
Private Function GetTagNoRow
Private Function DataSearch

0 hits

▼

【28362】外部ファイルの自動読み込みについて ミツコ 05/9/3(土) 17:46