| 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 希望看到更多更经典的开发技巧，请随时刷新《开发特区》栏目。 |
鏀惰棌鎴愬姛鏌ョ湅鏀惰棌>>
正在阅读：用DLL实现把数据库的记录导出到EXCEL中用DLL实现把数据库的记录导出到EXCEL中
2004-02-14 09:34
出处：PConline
责任编辑：linjixiong
键盘也能翻页，试试“← →”键
