如何將訪問報告導出到 PDF 通過VBA歸檔

訪問解決方案 2025 年 9 月 29 日
立即分享：

了解如何創建VBA函數，以將訪問報告另存為 PDF 只需單擊一個按鈕。 無需每次都訪問訪問功能區！

訪問報告可以手動另存為 PDF 文件。 您要做的就是：手動另存為 PDF 文件

  1. 打開報告。
  2. 轉到訪問功能區：外部數據> PDF 或XPS。
  3. 選擇您要保存文件名和文件夾的路徑。
  4. 單擊發布，就可以完成。

容易吧？ 但是，如果需要每天重複導出報告（例如每天），則可能會有些麻煩。

不用擔心有一種更簡單的方法。 只需單擊一下按鈕，您的報告即可立即導出到您指定的文件夾中。 這可以在VBA的幫助下完成。 請按照以下步驟操作。

立即下載

如果你想tart盡快使用該功能，則可以：

立即下載帶有VBA代碼的示例數據庫

否則，如果要DIY，可以閱讀以下內容。

創建將Access Report另存為的VBA函數的步驟 PDF 文件

1.在報告中添加命令按鈕

本文假定您已經創建了訪問報告。 在設計視圖中將其打開，然後在“報告”標題中添加一個按鈕（如下所示）。在報告中添加命令按鈕

將按鈕重命名為 命令導出PDF。 去做這個：

  1. 在設計視圖中，選擇按鈕。
  2. 打開屬性表（ALT + Enter）。
  3. 轉到其他標籤>名稱。
  4. 將名稱值更改為cmd_exportPDF.

2.添加命令按鈕的代碼

要添加代碼，必須首先向按鈕添加一個On Click事件。

  1. 選擇命令按鈕後，再次轉到屬性表。
  2. 單擊事件選項卡。
  3. 查找“單擊”，然後選擇“…”
  4. 當彈出“選擇構建器”菜單時，選擇“代碼構建器”，然後單擊“確定”。
  5. 這將打開VBA編輯器。

現在，複製下面的代碼。

不要忘記更新文件名和fldrPath的值。 它們的註釋部分均帶有星號（*）。

Function FileExist(FileFullPath As String) As Boolean
  Dim value As Boolean
  value = False
  If Dir(FileFullPath) <> "" Then
    value = True
  End If
  FileExist = value
End Function

Private Sub cmd_exportPDF_Click()
 
  Dim fileName As String, fldrPath As String, filePath As String
  Dim answer As Integer
 
  fileName = "Member Contact Details" 'filename for PDF file*
  fldrPath = "C:\Users\Jessica\Desktop\PDF Exports" 'folder path where pdf file will be saved *
 
  filePath = fldrPath & "\" & fileName & ".pdf"
 
  'check if file already exists
  If FileExist(filePath) Then
    answer = MsgBox(prompt:="PDF file already exists: " & vbNewLine & filePath & vbNewLine & vbNewLine & _
      "Would you like to replace existing file?", buttons:=vbYesNo, Title:="Existing PDF File")
    If answer = vbNo Then Exit Sub
  End If
 
  On Error GoTo invalidFolderPath
  DoCmd.OutputTo objecttype:=acOutputReport, objectName:=Me.Name, outputformat:=acFormatPDF, outputFile:=filePath
 
  MsgBox prompt:="PDF File exported to: " & vbNewLine & filePath, buttons:=vbInformation, Title:="Report Exported as PDF"
  Exit Sub
 
  invalidFolderPath:
  MsgBox prompt:="Error: Invalid folder path. Please update code.", buttons:=vbCritical
 
End Sub

這些代碼行將：

  1. 首先檢查是否 PDF 指定文件夾中已經存在具有相同文件名的文件。 如果是這樣，將出現提示，詢問您是否要用新的替換它。

如果選擇是，報告將繼續導出過程。 否則，文件將不會轉換為 PDF.

  1. 如果您輸入的文件夾路徑不存在，則會出現提示，要求您更新代碼中指定的文件夾路徑。 在糾正此問題之前，導出過程將不會繼續。
  2. 成功導出報告後，將出現提示，指出 PDF 文件已保存。

而已！ 現在是時候測試您的按鈕了。

無法打開Access數據庫

併購ost 任何Access用戶都可能發生的可怕事情是，有一天醒來，意識到無法再打開數據庫了。 它已損壞。 更糟糕的是，您意識到自己無法備份數據。 不用擔心 DataNumen Inc.創建了可以 修復訪問 數據庫。 您的數據庫仍然可以恢復活力。

作者簡介：

Jayme Stack是 DataNumen，Inc.是數據恢復技術的全球領導者，包括 sql恢復 和excel恢復軟件產品。 欲了解更多信息，請訪問 萬維網。datanumen.COM

立即分享：

評論被關閉。