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

Question

I have the following code that I am using to insert values from an Excel sheet to an Access table. It works

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$]"

I know that I can also do the same with a specified range by doing the following:

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

However, after trying everything and looking everywhere, I can't figure out how to do this for an Excel table or named range.Is it possible? Can anyone help?

Answer 1

actually, I was able to do it by:

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

The problem I was having before was that the Excel table I was using was created by a connection to external data (actually the same Access database). I tried to import and link to the Excel table from Access and was only able to do so when the Excel file was closed. I guess this is to prevent some kind of circular referencing.

Answer 2

You don't need to specify the workbook again in the WHERE clause since it is already referenced in the connection string.

To answer your question, the scope of the defined name determines the syntax:

SELECT * FROM [YourSheetName$SheetScopedNamedRange]

or

SELECT * FROM WorkbookScopedNamedRange

Note hat there are no square brackets in the second example.