vb记录集数据导入到excel

 Public Sub DGToExcel(DataGrid1 As DataGrid, Optional ProgressBar1 As ProgressBar, Optional ByVal intFirst As Integer, Optional ByVal intLast As Integer, Optional strTitle As String)
'--将DataGrid导出至Excel,ProgressBar1为进度条,intFirst为从哪一列开始打印,intLast为打印到哪一列
On Error Resume Next
    Dim I As Long
    Dim J As Integer
    Dim K As Integer
    Dim sLast As String
    Dim xlApp As Excel.Application
    Dim xlBook As Excel.Workbook
    Dim xlSheet As Excel.Worksheet
    Set xlApp = New Excel.Application
    Set xlBook = xlApp.Workbooks.Add
    Set xlSheet = xlBook.Worksheets(1)
    xlSheet.Name = "查询结果"
    xlApp.Visible = False '--先隐藏
    ProgressBar1.Value = 0
    Screen.MousePointer = 11
    ProgressBar1.Max = DataGrid1.ApproxCount + 3
    '--设置标题
    sLast = Chr(Asc("A") + intLast - intFirst)
    xlApp.Range("A1:" & sLast & "2").Select
    With xlApp.Selection '--合并单元格
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
    End With
    ProgressBar1.Value = 1
    xlApp.Selection.Merge
    With xlApp.Selection.Font '--字体
        .FontStyle = "加粗"
        .SIZE = 24
    End With
    xlApp.Range("A1:" & sLast & "2").Select
    xlApp.ActiveCell.FormulaR1C1 = strTitle
    ProgressBar1.Value = 2
    '--设置列
    For K = 0 To intLast - intFirst '显示选中的列