ACCESS指定格式导出到EXCE.doc

反过来谈ACCESS数据导出到EXCEL的方法 2推荐ACCESS指定格式导出到EXCEL请各路高手协助解决此难题。采用SQL语句（一定需要采用SQL语句）将ACCESS数据库导出为EXCEL比较容易，但要将MDB数据库的字段和记录数据指定导出到相应的EXECL单元格中，是个较难的问题。本问题的难点不仅在于一处。首先，为什么有了AEECSS数据库后我们还需要EXCEL表格呢，毫无疑问的EXCEL的优势在AEECSS中是无法体现的，那么，我们事先对此EXCEL表格肯定就有了一个所需的模式或格式，那么，提出此问题，就是要解决按照既定的模式或格式需求来作导出工作。详细请见附件中EXCEL表格。此问题解决关键在于：“如何应用VBA 调用EXCEL 对象并执行该操作，同时离不开ADO 或 DAO 技术！”测试环境：OFFICE2003 具体VBA 代码如下: (由于空间的关系在此就上传 用于测试的实例，有需要者可以EMAIL与本联系) Coder : 萧云 / ycyhjj28652 Coder Mail: Coder QQ: 80388928 Made in : ExquisteSound StudioOption Compare DatabaseDim xlApp As Excel.ApplicationDim xlBook As Excel.WorkBookDim xlSheet As Excel.WorksheetDim Appstr As StringDim sheetX As String Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim stSql As String Dim recordcount As Integer Dim fieldx As ADODB.Field Dim i As Integer Dim j As IntegerPrivate Sub Command0_Click()Call MoKuai_A 调用模块AxlBook.Application.Run GeShi_a 运行EXCEL文件中的一个宏!End SubPrivate Sub Command7_Click()Call MoKuai_A 调用模块AxlBook.Application.Run HuiFu 运行EXCEL文件中的一个宏!End SubPrivate Sub Form_Load()读取及操作EXCEL的一般用法Set xlApp = CreateObject(Excel.Application) 创建EXCEL对象Set xlBook = xlApp.Workbooks.Open(文件名) 打开已经存在的EXCEL工件簿文件xlApp.Visible = True 设置EXCEL对象可见（或不可见）Set xlSheet = xlBook.Worksheets(表名) 设置活动工作表xlSheet.Cells(row, col) = 值 给单元格（row,col）赋值xlSheet.PrintOut 打印工作表xlBook.Close (True) 关闭工作簿xlApp.Quit 结束EXCEL对象Set xlApp = Nothing 释放xlApp对象 Set cn = Application.CurrentProject.Connection 创建数据集ADO连接 stSql = SELECT 合同大类, 本年度累计签订份数,本年度累计金额, 本月度累计签订份数, 本月度累计金额, 已履行完毕份数, 已履行完毕金额 FROM 月表02; stSql = 月02 rs.Open stSql, cn, adOpenKeyset, adLockPessimistic 打开ADO数据集End SubPrivate Sub Form_Unload(Cancel As Integer)rs.Close 关闭数据集End SubPrivate Sub MoKuai_A()Appstr = Application.CurrentProject.PathAppstr = Appstr & / & Me.Text1MsgBox AppstrsheetX = Me.Text3Set xlApp = CreateObject(Excel.Application) 创建EXCEL对象Set xlBook = xlApp.Workbooks.Open(Appstr) 打开已经存在的EXCEL工件簿文件xlApp.Visible = True 设置EXCEL对象可见（或不可见）Set xlSheet = xlBook.Worksheets(sheetX) 设置活动工作表recordcount = rs.Fields.Count 获取记录集的字段个数i = 1For Each fieldx In rs.FieldsxlSheet.Cells(4, i) = fieldx.Name 填充标题栏名称i = i + 1Nextrs.MoveFirst 将记录指针定位到记录集中的第一条记录If rs.EOF = False And rs.BOF = False Then For j = 1 To recordcount + 1 For i = 1 To rs.Fields.Count xlSheet.Cells(4 + j,