vba - 使用 VBA 将 Excel 表或命名范围导出到 Access

Question

我有以下代码用于将 Excel 工作表中的值插入到 Access 表中。有用

Dim cn As ADODB.Connection
Dim strQuery As String

Set cn = New ADODB.Connection
With cn

.Provider = "Microsoft.ACE.OLEDB.12.0"
.ConnectionString = "Data Source=" & Application.CurrentProject.Path & "\Excel\testdb.accdb;"
.Open
End With

ssql = "INSERT INTO Table1
SELECT * FROM [Excel 8.0;HDR=YES;DATABASE=Z:\Docs\Test.xls].[Sheet1$]"

我知道我也可以通过执行以下操作对指定范围执行相同操作:

ssql = "INSERT INTO Table1
SELECT * FROM [Excel 8.0;HDR=YES;DATABASE=Z:\Docs\Test.xls].[Sheet1$a1:a4]"

但是，在尝试了一切并到处寻找之后，我无法弄清楚如何为 Excel 表格或命名范围执行此操作。这可能吗？任何人都可以帮忙吗？

Answer 1

实际上，我可以通过以下方式做到这一点:

SELECT * FROM [Excel 8.0;HDR=YES;DATABASE=Z:\Docs\Test.xls].range_name"

我之前遇到的问题是我使用的 Excel 表是通过与外部数据的连接(实际上是同一个 Access 数据库)创建的。我尝试从 Access 导入并链接到 Excel 表，但只有在 Excel 文件关闭时才能这样做。我想这是为了防止某种循环引用。