关于VB输出成XECEL

请问下 我用VB6.0设计了一个程序 已经可以和EXCEL关联了 现在我希望点击按钮 然后能够把数据保存为一个EXCEL文件 求保存那里的详细代码  因为本人是个新手 所以希望答案尽量有注释 谢谢大家了 --------------------编程问答-------------------- Private Sub cmdExport_Click()
    Dim i As Integer, r As Integer, c As Integer '声明局部变量
    Dim newxls As New Excel.Application '声明Excel的Application对象的实例
    Dim newbook As New Excel.Workbook '声明Excel的Workbook对象的实例
    Dim newsheet As New Excel.Worksheet '声明Excel的Worksheet对象的实例
    Set newbook = newxls.Workbooks.Add   '创建工作簿
    Set newsheet = newbook.Worksheets(1) '创建工作表
    If Adodc1.Recordset.RecordCount > 0 Then '如果ADO控件的记录集大于0
        For i = 0 To DataGrid1.Columns.Count - 1 ' 循环添加表头
            newsheet.Cells(1, i + 1) = DataGrid1.Columns(i).Caption 'Excel的表头为DataGrid控件的表头
        Next i
        '指定表格内容
        Adodc1.Recordset.MoveFirst '把ADO控件的指针移到第一条记录
        Do Until Adodc1.Recordset.EOF '复制所有的记录
            r = Adodc1.Recordset.AbsolutePosition '指定Recordset对象当前记录的序号位置。
            For c = 0 To DataGrid1.Columns.Count - 1 '循环读取每一行的数据
                DataGrid1.Col = c '读取第c列的数据
                newsheet.Cells(r + 1, c + 1) = DataGrid1.Columns(c) '复制单元格的内容
            Next c
            Adodc1.Recordset.MoveNext 'ADO控件的指针移到下一条记录
        Loop
        newxls.Visible = True '显示创建的Excel应用文件
    End If
End Sub

够详细吧，如果还不行给我邮箱，我把整个发给你，呵呵。

补充：VB ,  基础类