- 709 名前：デフォルトの名無しさん (ﾌﾞｰｲﾓ MM5e-43Dx) mailto:sage [2020/04/28(火) 17:53:56 ID:YPs9lugpM.net]
- Sub テキスト抽出()
ChDir "c:\tmp"
f = Dir("*.txt")
c = 1
Do While f <> ""
Open f For Input As #1
Line Input As #1,s
s = "s"
r = 1
Do While Not EOF(1) And s <> ""
Line Input #1, s
If s <> "" Then Cells(r, c) = Split(s, vbTab)(5)
r = r + 1
Loop
Close #1
f = Dir
c = c + 1
Loop
End Sub
