如何将记录集直接保存成EXCEL文件

2005-08-05 09:38:11 297 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Kettle8.2连接组件之记录集连接 Kettle8.2连接组件之记录集连接一、相关说明二、设计转换三、转换配置四、运行转换五、结果分析一、相关说明连接组件说明：连接是结果集通过关键字进行连接。记录集连接组件说明：记录集连接就像数据库的左连接、右连接、内连接、外连接。注意：在进行记录集连接之前，应该要对记录集进行排序。需求说明：从数据库中的sys_user表和sys_dept中读取数据，进行内关键，左关联，右关联，全关联，把数据保存到Excel。测试数据源和如下博文中的数据源是一样的： Kettle8.2 阅读详情

VB中如何将记录集直接保存成EXCEL文件？急用。谢谢！

...全文

直接通过DAO读写Access文件直接利用DAO来创建、读写Access文件，总的说来，比直接通过ODBC读、写Excel文件来讲，要简单一些。在下面的示例中，我们将用到两种方法：SQL和DAO类函数来混合实现它们，这样做的目地，我想可以使大家更加方便灵活的运用它们来完成你想要做的东西。在示例程序中默认指定创建数据库名为：demo.mdb，内部表名为：demo，写入两个字段：Name和Age，采用和读写Excel类似的操作，你也可阅读详情

xuedaniel

数据库(包含打印，安装，报表) 1,217 成员 55,949 内容

+ 关注 + 加入社区

切换为时间正序

henry_gz 2005-08-21

打赏
举报

Use Method CopyFromRecordset

Example
------------------------
Private Sub cmdLoad_Click()
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim excel_app As Excel.Application
Dim excel_sheet As Excel.Worksheet

Screen.MousePointer = vbHourglass
DoEvents

' Open the Access database.
Set conn = New ADODB.Connection
conn.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & txtAccessFile.Text
conn.Open

' Select the Access data.
Set rs = conn.Execute("Books")

' Create the Excel application.
Set excel_app = CreateObject("Excel.Application")

' Uncomment this line to make Excel visible.
' excel_app.Visible = True

' Open the Excel workbook.
excel_app.Workbooks.Open txtExcelFile.Text

' Check for later versions.
If Val(excel_app.Application.Version) >= 8 Then
Set excel_sheet = excel_app.ActiveSheet
Else
Set excel_sheet = excel_app
End If

' Use the Recordset to fill the table.
excel_sheet.Cells.CopyFromRecordset rs
excel_sheet.Cells.Columns.AutoFit

' Save the workbook.
excel_app.ActiveWorkbook.Save

' Shut down.
excel_app.Quit
rs.Close
conn.Close

Screen.MousePointer = vbDefault
MsgBox "Ok"
End Sub

奔跑9999 2005-08-08

打赏
举报

打開Excel直接寫入即可阿！

xuedaniel 2005-08-08

打赏
举报

这样效率太低了呵

xuedaniel 2005-08-08

打赏
举报

如果是自己使用就很简单，关键我是要做成程序的方式给用户，有错误时叫用户导出数据给我看呵。

zuoxingyu 2005-08-08

打赏
举报

我曾经尝试过一个比较方便的办法来解决
1：把你的记录查询语句复制到SQL查询分析器里，执行查询，得到结果
2：把得到的结果写如一个临时表里，
3：其实1，2可以放到一起写的。。右击这个临时表，选择所有任务，然后选择导出数据，进入导出数据向导，选择导出到EXCEL，里面有很多可以选择的。]
4：完成操作

of123 2005-08-05

打赏
举报

使用CopyFromRecordset语句，可以直接把记录集写入Excel工作表。
使用DAO的用意是支持Excel 97；如果使用ADO记录集，则仅支持Excel 2000。
下面是完整的例子：

Dim db As dao.Database
Dim rs As dao.Recordset
Dim fd As dao.Field
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim cellCnt As Integer

' Open the destination Excel workbook.
Set xlApp = New Excel.Application
Set xlBook = xlApp.Workbooks.add
Set xlSheet = xlBook.ActiveSheet

xlBook.PrintPreview
' Open the recordset.
Set db = DBEngine.Workspaces(0).OpenDatabase(App.Path & "\bmkq.mdb")
Set rs = db.OpenRecordset("SELECT ......")
' Title
xlSheet.Cells(1, 1).Value = "考勤汇总表"
' Tabel Heads
cellCnt = 1
For Each fd In rs.Fields
Select Case fd.Type
Case dbBinary, dbGUID, dbLongBinary, dbVarBinary
' This type of data can't export to excel
Case Else
xlSheet.Cells(2, cellCnt).Value = fd.Name
xlSheet.Cells(2, cellCnt).Interior.ColorIndex = 33
xlSheet.Cells(2, cellCnt).Font.Bold = True
xlSheet.Cells(2, cellCnt).BorderAround xlContinuous
cellCnt = cellCnt + 1
End Select
Next
' This is all it takes to copy the contents
' of the recordset into the first worksheet
' of Book1.xls.
xlBook.Worksheets(1).Range("A3").CopyFromRecordset rs
xlApp.ActiveWindow.DisplayZeros = False

xlBook.Worksheets(1).Range("A3").Select

xlApp.Visible = True
' Clean up everything.
'xlBook.Save
'xlBook.Close False
'xlApp.Quit
rs.Close
db.Close
'Set xlBook = Nothing
'Set xlApp = Nothing
Set rs = Nothing
Set db = Nothing
exitsub:

如何将记录集直接保存成EXCEL文件

相关推荐