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

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

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

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

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

1.如一個學生數(shù)據(jù)庫，有個學生信息報表，其中列出了所有學生信息：

2.導出此報表 =》菜單欄功能區(qū)中的“導出”選項卡，如下圖所示的選項：

3.從列表中選擇XML File選項，如下圖所示的導出向?qū)В?/span>

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

第二步：選擇要導出的信息。這里有三個選項：1.數(shù)據(jù)（XML）2.模式（XSD）3.樣式（XSL），在這里選擇適當?shù)倪x項。

如果想在Excel中使用XML文件，可以選擇選項1（數(shù)據(jù)）和選項2（模式）。

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

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

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

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

6.點擊確定，數(shù)據(jù)就可以在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