Private Sub Command1_Click()
Dim i As Integer, j As Integer, G As Integer
Dim fn As Long, strT As String, arr() As String
'新建EXCL工作薄
Set ex = CreateObject("Excel.Application")
Set wb = ex.workbooks.Add
Set sh = wb.Sheets(1)

For i = 0 To File1.ListCount - 1
    fn = FreeFile
    Open File1.Path & "\" & File1.List(i) For Input As #fn    '打开File1.List中的所有文件进行提取
        For j = 1 To 3
            Line Input #fn, strT    '把数据文件中的第三行数据读出给STRT变量
        Next j
    arr = Split(strT, ",")          
    sh.cells(1, 1) = "线路名"         'sh.cells(1, 1)  分别指定数据在工作薄中的第1行第1列
    sh.cells(1, 2) = "导线长度"
    sh.cells(1, 3) = "Ｆb"
    sh.cells(1, 4) = "Ｆb(max)"
    sh.cells(1, 5) = "相对闭合差"
    sh.cells(1, 6) = "站数"
    sh.cells(i + 2, 1) = arr(7)
    sh.cells(i + 2, 2) = arr(4)
    sh.cells(i + 2, 3) = arr(0)
    sh.cells(i + 2, 4) = arr(1)
    sh.cells(i + 2, 5) = arr(6)
   G = 0
        Do Until EOF(1)
            Line Input #fn, strT
            G = G + 1
        Loop

        Close #fn
   sh.cells(i + 2, 6) = G
Next i
ex.Visible = True
End Sub