问题已解决!
Set openfile = openfso.OpenTextFile(CommonDialog1.FileName)
Static i As Integer
i = 0
Do While Not openfile.AtEndOfLine
openfile.ReadLine
i = i + 1
Loop
MsgBox "共" & i & "行", vbOKOnly, "hello"
Set openfile = openfso.OpenTextFile(CommonDialog1.FileName)
Static i As Integer
i = 0
Do While Not openfile.AtEndOfLine
openfile.ReadLine
i = i + 1
Loop
MsgBox "共" & i & "行", vbOKOnly, "hello"
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货