I got the Execute method to work to export a named range:
Code:
Sub Mytest()
Dim DBFullName As String
Dim Cn As ADODB.Connection
Dim rng As String
DBFullName = ThisWorkbook.Path & "\" & ThisWorkbook.Name
Set Cn = New ADODB.Connection
Cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Owner\June\LL\Umpires.accdb"
rng = "[Excel 12.0;HDR=Yes;Database=" & DBFullName & "].Test"
Cn.Execute "INSERT INTO Table1 SELECT * FROM " & rng
Cn.Close
Set Cn = Nothing
End Sub
Never heard of Excel 'table' before today so no idea if this can be adapted.