解決Access2007以上版本報表導出沒有Excel選項的辦法

2017-12-18 16:18:00
tmtony8
原創
3906

在Access2003中,可以右鍵-導出 Excel格式。這個功能非常方便有用。但是在Access2007之后,報表導出沒有 導出Excel選項。

所以用戶無法直接將報表導出為Excel格式。


在一個博客帖子中,提供一個可以從Access 2007中導出報表到Excel 中的解決方案

具體是使用Access 2007中提供的導出到XML選項來使用Excel中的報表數據。下面給出了詳細的步驟:

1.如一個學生數據庫,有個學生信息報表,其中列出了所有學生信息:


2.導出此報表 =》菜單欄功能區中的“導出”選項卡,如下圖所示的選項:


3.從列表中選擇XML File選項,如下圖所示的導出向導:

第一步:選擇文件路徑和文件名。


第二步:選擇要導出的信息。這里有三個選項:1.數據(XML)2.模式(XSD)3.樣式(XSL),在這里選擇適當的選項。

如果想在Excel中使用XML文件,可以選擇選項1(數據)和選項2(模式)。

第三步:選定后,文件將被保存到選定的位置。

其中,有一個選項可以保存導出步驟,以便下次選擇導出到“XML文件”時,將直接獲取保存的設置并執行導出操作。


4.做到這里,已經成功導出了XML文件和架構(如果選中)。如果本機excel支持XML,您可以打開Excel界面,然后選擇文件=》 打開,然后選擇剛才在#3中導出的XML文件。Excel將提示打開選項。選擇“XML表”。


5.如果沒有使用XML文件導出的XSD結構,則會收到以下消息作為信息對話框。


6.點擊確定,數據就可以在Excel中使用了。如下圖:


附:使用VBA解決方案

Public Sub OutPuttoExcel()
'    initialize variables
    Dim strReportName As String
    Dim strPathUser As String
    Dim strFilePath As String
    
'    set variables
    strReportName = "AlarmLetterForSF"
    strPathUser = Environ$("USERPROFILE") & "\my documents"
    strFilePath = strPathUser & strReportName & Format(Date, "yyyymmdd") & ".xls"
    
'    export to excel
    DoCmd.OutputTo acOutputReport, strReportName, acFormatXLS, strFilePath
    
'    launch excel file
    Dim Shex As Object
    Set Shex = CreateObject("Shell.Application")
    Shex.Open (strFilePath)
End Sub


    分享
    北京十一选五基本走势