Dim strf As String, strLine As String, arrF As Variant, colf As Long, rowf As Long Open "c:\1.txt" For Input As #1 Do While Not EOF(1) Line Input #1, strLine strf = strf & strLine & vbCrLf Loop Close #1 arrF = Split(strf, vbCrLf) colf = UBound(arrF) 'rowf = UBound(Split(arrF(0), " ")) + 1 rowf = UBound(Split(arrF(0), ",")) + 1 Debug.Print strf & " " & colf & " " & rowf
如果是類似:A,B,C;1,2,3;a,b,c
就可以用雙重split的方法求得
如果是類似:
A,B,C
1,2,3
a,b,c
則用split可以求出列數
文件的行數就是數組的行數
Open "c:\1.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, strLine
strf = strf & strLine & vbCrLf
Loop
Close #1
arrF = Split(strf, vbCrLf)
colf = UBound(arrF)
'rowf = UBound(Split(arrF(0), " ")) + 1
rowf = UBound(Split(arrF(0), ",")) + 1
Debug.Print strf & " " & colf & " " & rowf