Excel VBA質問箱 IV

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

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


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

41673 / 76735

←次へ　｜　前へ→


	【40141】Re:フォルダ内のファイル読み込み

ひげくま - 06/7/7(金) 14:12 -


	引用なし

	パスワード

ファイルの読み込み方が違うので、こういうやり方もある、という程度に読んでください。

　　Dim TS As Object
　　Dim FileName As String
　　Dim LineData As String

　　'ファイル内容を取り込む
　　FileName = "xxxxxxxx.xxx"
　　Set TS = CreateObject("Scripting.FileSystemObject").OpenTextFile(FileName)

　　'ファイル内容(テキストストリーム)の最後までループ
　　Do Until TS.AtEndOfStream
　　　　'1行を読み込む
　　　　LineData = TS.ReadLine

　　　　'1行ごとの処理

　　Loop

　　Set TS = Nothing

これは1つのファイルに関しての処理なので、複数のファイルを処理する場合は、それなりに、工夫してください。

また、必要なデータの抽出に関しては、条件が解らないので、何ともアドバイスできません。

0 hits

▼

【40136】フォルダ内のファイル読み込み みぽりん 06/7/7(金) 13:47