Sub GetAllTextData()
'
'【変数の宣言】
'
Dim Fname
Dim FSO As Object
Dim Folder As Variant
Dim File As Variant
Dim FilePath As Variant
Dim Hozon As Variant
Dim GetData As Variant
'フォルダ指定用のダイアログを表示します
With Application.FileDialog(msoFileDialogFolderPicker)
'カレントディレクトリを指定します
.InitialFileName = ThisWorkbook.path
'設定しなかったら終了します
If .Show = False Then Exit Sub
'設定したフォルダを表示します
'Dim Fname
Fname = .SelectedItems(1)
End With
'参照設定
'Dim FSO As Object, Folder As Variant, File As Variant
Set FSO = CreateObject("Scripting.FileSystemObject")
'Dim FilePath As Variant
ReDim FilePath(1 To 100) As Variant
'指定フォルダ内の.logファイルを探索します
i = 0
For Each File In FSO.GetFolder(Fname).Files
If InStr(File.Name, "sh") > 0 Then
i = i + 1
Else
If InStr(File.Name, ".log") > 0 Then
i = i + 1
FilePath(i) = File.path 'ファイルのフルパスを取得
MsgBox FilePath(i)
End If
End If
Next
'配列の大きさは状況に応じ変更してください
'Dim Hozon, GetData As Variant
ReDim GetData(1 To 100, 1 To 100) As Variant
'全テキストファイルの任意行のデータを取得する
m = 0
For k = 1 To UBound(FilePath, 1)
'テキストファイルが存在する場合に実行
If IsEmpty(FilePath(k)) = False Then
'保存する配列を空にする
ReDim Hozon(1 To 100, 1 To 100) As Variant
'テキストを開いて配列にデータを保存
Open FilePath(k) For Input As #1
Line Input #1, buf
tmp = Split(buf, vbLf) '改行コードで分割
For i = 1 To UBound(tmp) - 1 'インデックス番号の最大値-1まで繰り返し
LogDate = Left(tmp(i), 23)
'FileType = workbok(FilePath).Name
'件数の取得
abc = Mid(tmp(i), InStr(tmp(i), "件数＝") + 1)
CaseNum = Left(abc, InStr(abc, ")") - 1)
Cells(i + 1, 1).Resize(1, UBound(tmp) + 1).Value = LogDate
'Cells(i + 1, 2).Resize(2, UBound(tmp) + 1).Value = FileType
Cells(i + 1, 3).Resize(3, UBound(tmp) + 1).Value = CaseNum
' Cells(i + 1, 1).Resize(1, UBound(tmp) + 1).Value = abc
Next i
End If
Next
End Sub
Q&A
