真诚求教：如何将数据集输送到EXCEL中。

Question

我的窗体中有一个查询操作，将从ACCESS数据库1.MDB（包括两个字段A、B）查询数据，生成数据集RS，如何编程将RS中内容输送到EXCEL文档中。

Answer 1

《一》我市车辆记分管理系统--------------VB6+SQL-Server2000 源代码+3万条示例数据库。光盘，邮购价300元/份。附送全套XP控件源程码。
1、内包含MSHFlexGrid的用法，支持鼠标滚轮；
2、支持自定义权限。
3、支持老格式数据库的导入（Dbase,FoxBase,Excel,Mdb,SysBase,文本，SQL-server,Oracle等众多格式）
4、支持数据汇总、备份。
5、支持异地远程记分，示例远程数据库工作原理。
6、各种查询汇总。
7、驾驶员档案，记分，记分修正，打卡，打袋，培训，调驾，换/补卡及，操作员，车辆，本地，远程，远程操作，远程连接基本功能及相应查询，扩展功能一应具全。
8、详尽的代码注示，封装了一般应用程序所要使用的大部分功能的函数库，如设置打印机，纸张的走向，注册表，INI，网卡，各种对话框，基本Windows，图标菜单等等
9、DataReport的用法。
10、支持多用户，附加密码修改器，可随时修改连接密码。
11、支持数据表的导出（文本或Excel）
12、SQL-Server2000存储过程、触发器，视图、用户、游标的示例用法。《二》我公司用的人事管理系统.VB6+Access2000数据库。
  原代码+示例数据库。光盘邮购价100元。附送全套XP控件源程码。
1、支持远程工资表申报，
2、工资表格打印，自由选择报表格式。
3、员工历程。
4、各种查询
5、DatarePort报表的另类用法（绝对经典！！将其发挥到了极至）
6、支持滚轮鼠标。有源代码。
7、示例MsHFlexGrid的电子表格功能。《三》我公司用的价签打印系统及斑马条码机打印系统。VB6+Oracel 8.16
光盘邮购价150元.（只有VB代码，不含数据库）
1、有自定义价签格式功能，模板自定义。
2、双行数据打印，精确无误。
3、超另类的DataReport用法（推荐试试，经典至及）
4、可按商品类别，柜组，品牌，供应商，及输入操作
5、排序。排序后，可以使输出按照一定的类别顺序打印。6、斑马条码打印系统完全XP界面。（含XP全套控件）
注意：虽不含数据库，但程序可以支持任意类的的意数库，只须修改少量的代码即可，（SQL语句）
-------------------------------------------------------
注意：
   以上程序已正常运行数月，是少有的商业数据库系统代码，如安装我市《车辆记分管理系统》我们收取5000元（含技术支持和升级）,其它各县城为8000元;我公司用的价签打印系统及斑马条码机打印系统是数据库外接件，可以修改为任何系统，它示例了，如何为商业软件作二次开发的功能。当然对天下两大Win数据库您可都得精通啊（SQL-Server和Oracle）1、以上程序代码均是<邱瑜>自行编写，如若购买即为汝所有，可以自行修改。
2、不得以任何型式分发源代码和示例数据库（XP控件源码除外）。
3、经您修改的“编译程序”可以用作任何用途。
4、技术支持请与我们联系（要收银两）
5、汇款地址：河南省信阳市西亚商业有限公司<总部>微机中心 邱瑜  <收>
   直接转账：全国建行  4367422580090014895 ，在csdn给2sowrd 用户留言即可.
6、款到即寄光盘。信誉100%。
7、三套一齐购400元。

Answer 2

2sword(笛之侠) 太不讲公德，请斑竹注意他。

Answer 3

首先声讨一下 2sword(笛之侠)*****Panxuejian START*****
Dim xlExcel As Excel.Application
Dim xlSheet As Excel.Worksheet
Set xlExcel = CreateObject("excel.application")
xlExcel.Workbooks.Open (CommonDialog1.FileName)
Set xlSheet = xlExcel.Worksheets("Sheet1")
xlExcel.Visible = True
With xlSheet
    .Cells(4, 2) = rstA!A
    .Cells(6, 5) = rstA!B
end With
****Panxuejian END*****Cell(Row,Col)

Answer 4

http://www.csdn.net/develop/read_article.asp?id=14952

Answer 5

2sword(笛之侠) 太不讲公德，请斑竹注意他。and 首先声讨一下 2sword(笛之侠)************正题****************************
On Error GoTo error
sql = "select* from Y_YSDWBH "
Set rs = ExecuteSQL(sql)
Set MSHFlexGrid1.DataSource = rs
With MSHFlexGrid1
   .TextMatrix(0, 0) = "单位编号"
   .TextMatrix(0, 1) = "单位名称"
   .TextMatrix(0, 2) = "单位简称"
   .TextMatrix(0, 3) = "单位类别"
   .TextMatrix(0, 4) = "单位级数"
   .TextMatrix(0, 5) = "单位明细"
   .TextMatrix(0, 6) = "备注"
End With
Dim i, j As Integer
Dim Exl As Variant
 Set Exl = CreateObject("Excel.Application")
     Exl.Workbooks.Add
     '由EXCEL里面的宏得来的
     Range("A1:A65536").Select
     Selection.NumberFormatLocal = "@"
   '将网格中的数据导入到EXCEL表中
For i = 0 To MSHFlexGrid1.Rows - 1
     For j = 0 To MSHFlexGrid1.Cols - 1
       Exl.Cells(1 + i, j + 1) = MSHFlexGrid1.TextMatrix(i, j)
     Next j
Next i
      DeleteFile ("c:\Documents and Settings\Administrator\My Documents\Resume.xlw")
      DeleteFile (" c:\My Documents \Resume.xlw")
      Exl.SaveWorkspace
      '退出Excel Application
      Exl.Quit
      MsgBox "数据已导出至Excel文件中,同时请注意导出的数据禁止对其操作！                ", vbInformation, "提示"error:
    opt_all.Value = False
    opt_exit.Value = False
    Exit Sub
    Me.Show紧供楼主参考

Answer 6

这些代码是别人的：
将下文加入到一个模块中,屏幕中调用如下ExporToExcel("select * from table")则实现将其导出到EXCEL中Public Function ExporToExcel(strOpen As String)
'*********************************************************
'* 名称：ExporToExcel
'* 功能：导出数据到EXCEL
'* 用法：ExporToExcel(sql查询字符串)
'*********************************************************
Dim Rs_Data As New ADODB.Recordset
Dim Irowcount As Integer
Dim Icolcount As Integer
    
    Dim xlApp As New Excel.Application
    Dim xlBook As Excel.Workbook
    Dim xlSheet As Excel.Worksheet
    Dim xlQuery As Excel.QueryTable
    
    With Rs_Data
        If .State = adStateOpen Then
            .Close
        End If
        .ActiveConnection = Cn‘这个Cn需要自己定义
        .CursorLocation = adUseClient
        .CursorType = adOpenStatic
        .LockType = adLockReadOnly
        .Source = strOpen
        .Open
    End With
    With Rs_Data
        If .RecordCount < 1 Then
            MsgBox ("没有记录!")
            Exit Function
        End If
        '记录总数
        Irowcount = .RecordCount
        '字段总数
        Icolcount = .Fields.Count
    End With
    
    Set xlApp = CreateObject("Excel.Application")
    Set xlBook = Nothing
    Set xlSheet = Nothing
    Set xlBook = xlApp.Workbooks().Add
    Set xlSheet = xlBook.Worksheets("sheet1")
    xlApp.Visible = True
    
    '添加查询语句，导入EXCEL数据
    Set xlQuery = xlSheet.QueryTables.Add(Rs_Data, xlSheet.Range("a1"))
    
    With xlQuery
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = True
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
    End With
    
    xlQuery.FieldNames = True '显示字段名
    xlQuery.Refresh
    
    With xlSheet
        .Range(.Cells(1, 1), .Cells(1, Icolcount)).Font.Name = "黑体"
        '设标题为黑体字
        .Range(.Cells(1, 1), .Cells(1, Icolcount)).Font.Bold = True
        '标题字体加粗
        .Range(.Cells(1, 1), .Cells(Irowcount + 1, Icolcount)).Borders.LineStyle = xlContinuous
        '设表格边框样式
    End With
    
    With xlSheet.PageSetup
        .LeftHeader = "" & Chr(10) & "&""楷体_GB2312,常规""&10公司名称："   ' & Gsmc
        .CenterHeader = "&""楷体_GB2312,常规""公司人员情况表&""宋体,常规""" & Chr(10) & "&""楷体_GB2312,常规""&10日 期："
        .RightHeader = "" & Chr(10) & "&""楷体_GB2312,常规""&10单位："
        .LeftFooter = "&""楷体_GB2312,常规""&10制表人："
        .CenterFooter = "&""楷体_GB2312,常规""&10制表日期："
        .RightFooter = "&""楷体_GB2312,常规""&10第&P页 共&N页"
    End With
    
    xlApp.Application.Visible = True
    Set xlApp = Nothing  '"交还控制给Excel
    Set xlBook = Nothing
    Set xlSheet = NothingEnd Function

Answer 7

在工程的属性里引用microsoft excel 9.0 object library ,然后按上边的方法去做

Answer 8

迟来了...但还是说几句吧.
要在工程引用中找到microsoft excel 9.0 object library,是要先安装EXCEL的.