基于单击命令按钮将表从 Access 导出到 Excel

Posted 2023-04-19

【中文标题】基于单击命令按钮将表从 Access 导出到 Excel

【英文标题】：Exporting a Table from Access to Excel based on the click of a command button

【发布时间】：2015-08-12 14:30:48

【问题描述】：

我正在尝试找到一种方法，允许用户通过单击表单上的命令按钮自动将某个表从 access 数据库导出到 excel 工作表。导出表格后，我希望 Excel 工作表自动弹出。但是我有其他选项卡已经在电子表格上，所以有没有办法让表格只导出到那个选项卡，并在用户按下命令按钮时自动更新。我试图使用宏来制作命令按钮，所以我不会弄乱编码。我通常编写 VBA 代码，但我对此感到困惑。非常感谢！

【问题讨论】：

我相信这可能会引起您的兴趣***.com/questions/1849580/…

【参考方案1】：

您可以通过 VBA 打开图书，添加/修改内容，然后保存或保存到其他地方。

以下示例将打开一个现有工作簿，添加一些数据，然后将其保存为新工作簿并在屏幕上为用户打开 excel 文件。

   'Open a workbook in Excel
   Dim oExcel As Object
   Dim oBook As Object
   Dim oSheet As Object

   Set oExcel = CreateObject("Excel.Application")
   Set oBook = oExcel.Open("C:\Temp\ExcelFileName.xlsx")
   Set oSheet = oBook.Worksheets(1)

    'HEADINGS
    oSheet.Range("A1").Value = "Heading1"
    oSheet.Range("B1").Value = "Heading2"
    oSheet.Range("C1").Value = "Heading3"

   'Transfer the data to Excel
    oSheet.Range("A2").Value = "Text Data"
    oSheet.Range("B2").Value = 1.05
    oSheet.Range("C2").Value = Now()

   'Save the Workbook and Quit Excel
   oBook.SaveAs "C:\Temp\ExcelFileName1.xlsx"

   oExcel.Quit
   Application.FollowHyperlink "C:\Temp\ExcelFileName1.xlsx"