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

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

您可以通过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"

---

您可以通过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"

---

我相信你会感兴趣我相信你会感兴趣