Office中国论坛/Access中国论坛

标题: 如何将ACCESS报表导出到指定格式的EXCEL文件中 [打印本页]

作者: LSM216 时间: 2004-6-22 03:04
标题: 如何将ACCESS报表导出到指定格式的EXCEL文件中
如何将ACCESS报表导出到指定格式的EXCEL文件中？

在线等候！！！！

作者: myheyou 时间: 2004-7-15 06:06
Private Sub 短期全_Click()

On Error GoTo Err_短期全_Click Dim oApp As Object

Set oApp = CreateObject("Excel.Application")

oApp.Visible = False

Set oappwork = oApp.Workbooks.Open("d:\避孕药具管理\bbmb\短期用药明细.xlt")指定报表名称

Set oappwork_sheet1 = oappwork.Worksheets("sheet1")

With Me.tppbzct.Form.Recordset    导入窗体名称

      .MoveFirst

      nn = .Fields.Count

      j = 6                   由第几行导入

      Do

         If .EOF Then

            Exit Do

         Else



            For i = 1 To nn - 1

                  oappwork_sheet1.cells(j, 0 + i) = .Fields(i)

            Next i

            j = j + 1

            .MoveNext



         End If

      Loop

      MsgBox "报表已经导入EXCEL", vbOKOnly + vbInformation

      oApp.Visible = True

End With

On Error Resume Next

oApp.UserControl = TrueExit_运行_Click:

Exit SubErr_短期全_Click:

MsgBox Err.Description

Resume Exit_运行_Click

End Sub

作者: lyd888888 时间: 2006-4-19 01:12
大哥,帮忙做个示例看看

作者: kiowa 时间: 2006-5-2 19:44
我也有楼主同样的问题，请问有没有可以不用代码来完成的，小弟语言实在是烂哪，很急，谢了哈

作者: zxwgc 时间: 2006-5-2 21:48
我也有这样的问题，有个固定的EXCEL表，表中的数据每月都要变化,要有本月数据,还要统计本期的累计数据,手工做麻烦,用ACCESS可以很好的管理本月的数据,但要的统计情况复杂,如果用ACCESS管理数据,用EXCEL计算统计,那就太好了.

作者: zxwgc 时间: 2006-5-2 21:52
如:http://www.office-cn.net/forum.php?mod=viewthread&tid=39472

这种表格

作者: leonard123 时间: 2006-9-5 19:23
我用二楼的代码做的导出到指定excel中,为什么只可以导一列数据,请教怎么才可以导出二列数据?

作者: fan0217 时间: 2006-9-5 20:22
参考：http://www.accessbbs.cn/bbs/viewthread.php?tid=2202&highlight=

作者: bcfu 时间: 2010-3-31 19:44
怎么才可以

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)