我听人说在VB里面可以用ADO+EXCEL建报表

Question

我想不一定是什么ADO+EXECL，
也就是创建EXECL的对象，（可以先创建一个EXECL的模版）然后向其中添加数据，
至于数据的来源，ADO或者是其他文件的数据，应该是这样了

Answer 1

我的建议：
开发工具用VB不错，利用VB+ADO访问数据库最好。
但通过ADO访问EXECL不是很好的选择，数据库可以选用Access。

Answer 2

ba_saner说的对，我是用SQLSERVER当数据库，现在在设计报表，听说VB可以实现，请问怎么搞呢？能不能讲的详细点？最好给点代码，多谢！

Answer 3

一个实例：Dim oExcel As New Excel.Application
Dim o As Excel.Worksheet
Dim ii As IntegeroExcel.Workbooks.Open (App.Path & "\xls\pselist.xls")Set o = oExcel.ActiveWorkbook.ActiveSheet
'o.cells(2, 1).Value = "制表日期: " + GetData()
o.Cells(2, 1).Value = "日期从:" & DTPicker1.Value & " 至:" & DTPicker2.ValueoExcel.Visible = True
adoPrimaryRS.MoveFirstii = 4Do Until adoPrimaryRS.EOF()
    o.Cells(ii, 1).Value = adoPrimaryRS!fid
    o.Cells(ii, 2).Value = adoPrimaryRS!cu_no
    o.Cells(ii, 3).Value = adoPrimaryRS!cu_name
    o.Cells(ii, 4).Value = adoPrimaryRS!st_time
    o.Cells(ii, 5).Value = adoPrimaryRS!setype
    o.Cells(ii, 6).Value = adoPrimaryRS!zkou
    o.Cells(ii, 7).Value = adoPrimaryRS!camt
     
    ii = ii + 1
    adoPrimaryRS.MoveNext
LoopoExcel.ActiveWorkbook.SaveAs (Trim(txtfile.Text))
oExcel.Quit