请问下 我用VB6.0设计了一个程序 已经可以和EXCEL关联了 现在我希望点击按钮 然后能够把数据保存为一个EXCEL文件 求保存那里的详细代码  因为本人是个新手 所以希望答案尽量有注释 谢谢大家了

解决方案 »

  1.   

    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够详细吧,如果还不行给我邮箱,我把整个发给你,呵呵。