­ã´£³¡ªL

Sub ¸ü¤J¤å¦rÀÉ()
Dim PH$, FN$, Arr(1 To 30000, 1 To 3), j%, N&, T, TR
ActiveSheet.UsedRange.ClearContents
PH = ThisWorkbook.Path & "\GRD File\"
Do
   If FN = "" Then FN = Dir(PH & "*.grd") Else FN = Dir
   If FN = "" Then Exit Do
   Open PH & "\" & FN For Input As #1
   While Not EOF(1)
         Line Input #1, T
         TR = Split(T & "  ", " "): N = N + 1
         For j = 0 To 2
             Arr(N, j + 1) = TR(j)
         Next j
   Wend
   Close #1
Loop
If N > 0 Then [a1].Resize(N, 3) = Arr
End Sub

TEST001.rar (8.44 KB)

¤U¸ü¦¸¼Æ: 7

2021-7-17 07:47

======================