Excel VBA質問箱 IV

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

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


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

4064 / 76734

←次へ　｜　前へ→


	【78298】Re:名称未定のテキストファイルの読込み方

macmac - 16/6/17(金) 22:41 -


	引用なし

	パスワード

▼γ さま
お返事ありがとうございます。

所定のファイルの中にある文字"JAC"から始まる文字を見つけて
エクセルのセルE1に書き出す内容を作っております。

（所定のファイルは、C:\Tempに保存されているtxtファイルで名称は、日々更新されるものです。）

Sub Sample()
　Dim PartsID As String
　Dim i As Integer
　For i = 6 To 6 'Cells(Rows.Count, 3).End(xlUp).Row
　PartsID = Cells(i, 3)
　PartsID = Left(PartsID, 11)
　Debug.Print PartsID
　Call FileSearch("C:\Temp", PartsID & "*.txt")
　　　
　Next
End Sub

Sub FileSearch(Path As String, Target As String)
　　Dim FSO As Object, Folder As Variant, File As Variant
　　Dim strFILENAME As Variant
　　Dim info As String
　　Dim s As String
　　Dim a As String
　　Dim fNo As Integer
　　
　　Set FSO = CreateObject("Scripting.FileSystemObject")
　　For Each Folder In FSO.GetFolder(Path).SubFolders
　　　　Call FileSearch(Folder.Path, Target)
　　Next Folder
　　For Each File In FSO.GetFolder(Path).Files
　　　　If File.Name Like Target Then
　　　　strFILENAME = File.Path

'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
　　　　
　　 fNo = FreeFile
　　 s = "JAC"
　　 Debug.Print strFILENAME
　　 Open strFILENAME For Input As #fNo
　　 While Not EOF(1)
　　 Line Input #1, a
　　 If InStr(1, a, s) <> 0 Then
　　 info = Mid(a, 1, InStr(1, a, s) + 30)
　　 Debug.Print info
　　 End If
　　 Wend
　　 Close #fNo
　　　　
'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
　　 End If
　　 Next File

　　 End Sub

5 hits

▼

【78279】名称未定のテキストファイルの読込み方 macmac 16/6/15(水) 22:05