如何从 Access 打开 Excel 工作簿

Question

我当前在 Microsoft Access 中有一个字符串，它将函数委派给外部应用程序。

我已经从外部应用程序复制了一组数据。

我想将其粘贴到一个未打开但存在的 Excel 工作簿中。 C:\用户 bcdef\桌面 KDNR.xlsx

如何将此功能集成到我的子程序中？

提前谢谢您

我尝试简单地写

Dim x as Workbook 

set x = Workbooks.Open (" workbook name ")

然而，我得到了编译错误“用户定义的类型未定义”

当我刚写的时候

Workbooks.Open (" workbook name ")

我收到编译错误

“变量未定义”

Answer 1

使用 Access 中的 Excel

• 这是如何从 Access 使用 Excel 的基本示例。
• 它打开一个新的 Excel 实例（无论 Excel 是否打开），打开工作簿，将字符串

  Test

  写入工作表

  A1

  的单元格

  Sheet1

  ，保存并关闭工作簿，最后退出 Excel 实例.

' If you haven't already, create a reference to
' "Tools->References->Microsoft Excel 16.0 Object Library"!

Sub Test()
    
    Dim DestinationFilePath As String
    DestinationFilePath = Environ("USERPROFILE") & "\DeskTop\KDNR.xlsx"
    
    Dim xlApp As Excel.Application: Set xlApp = New Excel.Application
    xlApp.Visible = True ' out-comment when done developing; default is 'False'
    
    Dim wb As Workbook: Set wb = xlApp.Workbooks.Open(DestinationFilePath)
    
    Dim ws As Worksheet: Set ws = wb.Worksheets("Sheet1")
    
    ws.Range("A1").Value = "Test"
    
    wb.Close SaveChanges:=True
    
    xlApp.Quit
        
End Sub

Answer 2

谢谢你的例子。我想我错误地表达了我的问题。我有一个 Excel 电子表格，其中包含我无法在 Access 中生成的数据。我希望能够从 Access 打开该 Excel 电子表格。有没有办法