请教VB高手：关于用VB将查询的结果存入Excel表中问题 点击：5154 | 回复：31
发表于：2004-02-16 13:55:00
楼主
我Adodc1和DataGrid1用2个控件完成了对SQL数据库的查询功能,现在想用一个命令按钮Command1实现将查询结果发送到Excel2000中的功能,程序代码已经写好,也将Microsoft Excel 9.0 Object Library导入了工程1中,但运行时,如果查询结果的记录总数比较少,可以正常发送到Excel表中,当查询结果的记录数比较多时,发送10来个数据后,程序就出现错误了,这是怎么回事?请高手指点指点我,谢了!!!
还有,存入Excel表后,各列的名字能自动改吗?现在显示的是A1,B1,C1,,,,,,而不是日期,流量,液位,压力,,,,,我改怎么做???
我对按钮Command1编程如下:
Private Sub Command1_Click()
Dim i As Integer, j As Integer
Dim xlapp As Excel.Application
Dim xlbook As Excel.Workbook
Dim xlsheet As Excel.Worksheet
Set xlapp = CreateObject("Excel.Application")
xlapp.Visible = True
Set xlbook = xlapp.Workbooks.Add
Set xlsheet = xlbook.Worksheets(1)
For i = 0 To Adodc1.Recordset.RecordCount - 1
For j = 0 To Adodc1.Recordset.Fields.Count - 1
DataGrid1.Row = i (编译后,运行一会就提示出错的语句)
DataGrid1.Col = j
xlsheet.Cells(i + 1, j + 1) = DataGrid1.Text
Next j
Next i
Set xlapp = Nothing
Set xlbook = Nothing
End Sub
热门招聘
相关主题
- WINCC报警时间问题!
[4251] - 组态王怎样播放声音啊[2830]
- 求助：关于HoneyWell EBI组态...[2573]
- 安装WINCC6.0，请教无法启动M...[5305]
- Modbus调试软件,VC版本开发[2224]
- 国产组态软件[4139]
- 求助:如何解决vb中不是已加载...[3611]
- 大家谈谈工控人本本装双系统...[2505]
- RSView用户手册[3584]
- PC控制与PLC控制[5240]
官方公众号
智造工程师
-
客服
-
小程序
-
公众号
工控网智造工程师好文精选
