Question

我正在尝试找到一种方法，允许用户自动从访问数据库中获取某个表，以便根据单击表单上的命令按钮导出到Excel工作表。导出表后，我希望自动弹出Excel工作表。但我有其他选项卡已经在电子表格中，所以有一种方法可以让表只导出到那个选项卡，并在用户按下命令按钮时自动更新。我试图使用宏来制作命令按钮，所以我不会搞砸编码。我通常编码VBA，但我对此感到难过。非常感谢！

Answer 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"

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

1 个答案: