Excel VBA質問箱 IV

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

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


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

53181 / 76732

←次へ　｜　前へ→


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

ミツコ - 05/9/4(日) 9:13 -


	引用なし

	パスワード

Hirofumi さんありがとうございます。前半より１、Private Sub Workbook_Open()　に変更させて頂きました。２、読み込むファイル名が間違っていましたのでマクロを修正しました。　　ファイル名は、その日の１番最初が050901da.txt、２番目が050901da~1.txt 　　３番目が050901da~2.txtという具合で追加されていきます。３、また下記の部分でsubまたはfunctionが定義されていません。　　と表示されます。何が原因でしょうか？　'日付を探索　 lngCol = GetDateColumn(vntField(0), rngDate, _ 　　　 rngResult.Offset(, clngTop)) + clngTop CSVファイル（C:\system） 20050901,1001,0,0,1,003,1800 20050901,1003,0,0,1,001,1850 20050901,1005,0,0,1,005,1780 20050901,1010,0,0,1,002,1600 20050901,1015,0,0,1,013,1700 20050901,1020,0,0,1,008,1760 20050901,1025,0,0,1,012,1690 20050901,1030,0,0,1,006,1730 エクセルフォーマット（シート１）　Ａ　Ｂ　　Ｃ　　Ｄ　　Ｅ　・・・Ｍ　　　　Ｎ　　・・・１・・・７ No　名称　区分　分類　・・・・日付読込　日付読込　・・・８ 001　　　　　　　　　　　　　　deta読込　出た読込　・・・　９ 002　　　　　　　　　　　　　　deta読込　出た読込　・・・　 10 003　　　　　　　　　　　　　　deta読込　出た読込　・・・　 11 004　　　　　　　　　　　　　　deta読込　出た読込　・・・　 12 005　　　　　　　　　　　　　　deta読込　出た読込　・・・　 13 006　　　　　　　　　　　　　　deta読込　出た読込　・・・　　　・　　・マクロは後半に掲載します。