关于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 , 基础类