如何将ACCESS报表导出到指定格式的EXCEL文件中

LSM216

如何将ACCESS报表导出到指定格式的EXCEL文件中？

在线等候！！！！

bcfu

怎么才可以

fan0217

参考：http://www.accessbbs.cn/bbs/viewthread.php?tid=2202&highlight=

leonard123

我用二楼的代码做的导出到指定excel中,为什么只可以导一列数据,请教怎么才可以导出二列数据?

zxwgc

如:http://www.office-cn.net/forum.php?mod=viewthread&tid=39472

这种表格

zxwgc

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

kiowa

我也有楼主同样的问题，请问有没有可以不用代码来完成的，小弟语言实在是烂哪，很急，谢了哈

lyd888888

大哥,帮忙做个示例看看

myheyou

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