Импорт таблицы excel в access

s= "INSERT INTO [paste_to] ( [pField1], [pField2], [pField3], [pField4], [pField5], [pField6], " _
     " [pField7], [pField8])" & _
     " SELECT [copy_from].[cField1], [copy_from].[cField2], [copy_from].[cField3], [copy_from].[cField4], " _
     "    [copy_from].[cField5], [copy_from].[cField6], [copy_from].[cField7], [copy_from].[cField8]" & _
     " FROM [paste_to] inner JOIN [copy_from] " _
     "    ON [paste_to].[pField2] = [copy_from].[cField2]"
s =replace(s,"[paste_to]","[paste_to]")
s=replace(s,"[pField1]","[cField1]")
 
...
docmd.runsql s

nStart=currentdb.tabledefs("ИмяПриемнойТаблицы").recordcount
'запрос с delete
nEnd=currentdb.tabledefs("ИмяПриемнойТаблицы").recordcount

nStart = currentdb.OpenRecordset("ИмяПриемнойТаблицы").RecordCount
'запрос с delete
nEnd = currentdb.OpenRecordset("ИмяПриемнойТаблицы").RecordCount

DB.Execute "INSERT INTO [TABLE_TEST] ([All])...

db.Execute "INSERT INTO [TABLE_TEST] select * from Таблица"

Dim DB As DAO.Database
Set DB = CurrentDb
Dim Table As DAO.TableDef
Set Table = DB.TableDef("LOOP_CHECK")
 
n = Table.RecordCount
 
i=0
Do While i<n+1
  Table.Move (i)
  MsgBox (Table.Fields(i))
  questionbox = MsgBox("Show next i?", vbQuestion + vbYesNo)
       If questionbox= vbYes Then
          i=i+1
       Else
             Exit Sub
       End If
Loop
Exit Sub

Dim tbl As DAO.Recordset                 'Не стоит использовать зарезервированные имена
Set tbl = DB.Openrecordset("LOOP_CHECK") 'Таблдеф не нужен. Сразу открываем рекордсет
 
Do until tbl.EOF   'Цикл до конца рекордсета.
  msgbox tbl(1)    'Нумерация полей рекордсета начинается 0. Второе поле - индекс 1
  tbl.movenext     'Переходим на след.запись
Loop

Dim DB As DAO.Database
Dim tbl, temp_tbl As DAO.Recordset
Dim i, n, j, n_fields_test_tbl, n_records_test_tbl As Integer
Dim curr_fld_name, curr_fld_value As String
Dim s As String
Set DB = CurrentDb
Set tbl = DB.OpenRecordset("TABLE_TEST")
Set temp_tbl = DB.OpenRecordset("TEMP_TABLE_TEST")
 
n_fields_temp_tbl = temp_tbl.Fields.Count
n_records_temp_tbl = temp_tbl.RecordCount
 
i = 0
j = 0
Do While i < n_fields_temp_tbl
 
    curr_fld_name = temp_tbl.Fields(i).Name
    MsgBox curr_fld_name
 Do While j < n_records_temp_tbl
            Do Until temp_tbl.EOF
                   MsgBox temp_tbl(j)
                    temp_tbl.MoveNext
            Loop
j = j + 1
Loop
    i = i + 1
Loop
End Sub

   MsgBox curr_fld_name
j=0
 Do While j < n_records_temp_tbl

GrbsT = ActiveWorkbook.Worksheets(2).Range("C5").Value

Dim app As Object
Dim wb As Object
 
 
Set app = CreateObject("Excel.Application")
 
With app
.workbooks.Add
 
.Visible = True
.Save ("C:\Users\X\Desktop\name.xlsx")
.workbooks.Open ("C:\Users\X\Desktop\name.xlsx")
 
End With
end sub

Dim app As Object
Dim wb As Object
 
Set app = CreateObject("Excel.Application")
 
    With app
        Set wb = .Workbooks.Add
        .Visible = True
    End With
    wb.SaveAs ("D:\Temp\name.xlsx")

DoCmd.OutputTo acOutputReport, "Create_REQ", acFormatXLS, FileName, False