正在阅读：用DLL实现把数据库的记录导出到EXCEL中用DLL实现把数据库的记录导出到EXCEL中

2004-02-14 09:34 出处：PConline 作者：pcwak/CSDN 责任编辑：linjixiong

Next i 　　 For j = 1 To Rsquery.RecordCount 　　 For i = 0 To Rsquery.Fields.Count - 1 　　 ObjRange.Cells(j + 1, i + 1) = Rsquery.Fields(i).Value 　　 Next i 　　 Rsquery.MoveNext 　　 Next j 　　 ObjExcel.Quit 　　 Set ObjWorkBook = Nothing 　　 Set ObjRange = Nothing 　　 Set ObjSheet = Nothing 　　 Set ObjExcel = Nothing 　　Err: 　　 MsgBox Err.Number & " " & Err.Description 　　 Set ObjWorkBook = Nothing 　　 Set ObjRange = Nothing 　　 Set ObjSheet = Nothing 　　 Set ObjExcel = Nothing 　　End Sub 　　　　'文件-->生成DbToExcel.dll 　　　　'新建一个标准EXE工程　　'工程-->引用Microsoft ActiveX Data Objects 2.6 Library 　　浏览，加载刚才生成的DLL文件　　　　Option Explicit 　　　　Dim Conn As ADODB.Connection 　　Dim Rs As ADODB.Recordset 　　　　Dim DE As New DbtoExcel.Class1 '定义一个类，DbToExcel.DLL内Class1类的一个实例　　　　Private Sub Command1_Click() 　　 DE.DbtoExcel Conn, Rs, "c\1.xls" 　　End Sub 　　　　Private Sub Form_Load() 　　 Set Conn = New ADODB.Connection 　　 Set Rs = New ADODB.Recordset 　　 Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data 　　Source=C:\db.mdb;Persist Security Info=False" 　　 Conn.Open 　　 Rs.Open "select * from users", Conn, adOpenKeyset, adLockBatchOptimistic 　　End Sub 　　　希望看到更多更经典的开发技巧，请随时刷新《开发特区》栏目。

察看评论详细内容我要发表评论