你没说明白你用什么表格控件，我给你个ListView导入Exl的函数，你自己研究把

Public Sub ToExl(ExlFile As String)
    Dim Xl As Object           ' OLE自动化对象
    Dim i As Long              ' 循环计数器
    Dim j As Long
    Dim n As Long
    Dim rCount As Long         ' 记录的个数
    Screen.MousePointer = 11
    Set Xl = CreateObject("excel.Sheet.8")
    If LV.ListItems.Count > 0 Then
        '表头
        n = 1
        j = 1
        Do Until n = LV.ColumnHeaders.Count
            If LV.ColumnHeaders(n).Width <> 0 Then
                Xl.Worksheets(1).cells(1, j).Value = LV.ColumnHeaders(n).Text
                j = j + 1
            End If
            n = n + 1
        Loop
        ' 在记录中循环
        For i = 1 To LV.ListItems.Count
            If LV.ColumnHeaders(1).Width <> 0 Then
                Xl.Worksheets(1).cells(i + 1, 1).Value = LV.ListItems(i).Text
                j = 2
            Else
                j = 1
            End If
            n = 1
            Do Until n = LV.ColumnHeaders.Count - 1
                If LV.ColumnHeaders(n + 1).Width <> 0 Then
                    Xl.Worksheets(1).cells(i + 1, j).Value = LV.ListItems(i).SubItems(n)
                    j = j + 1
                End If
                n = n + 1
            Loop
        Next
        ' 保存工作表
        Xl.SaveAs ExlFile
        '从内存中删除Excel对象
        Xl.Application.Quit
    End If
    Set Xl = Nothing
    Screen.MousePointer = 0
    MsgBox "已经将当前数据储存到[" & ExlFile & "]", vbOKOnly, "提示"
End Sub