Экспорт таблиц из access в excel и наоборот - VBA - Ответ 9352594

Private Sub Add_Data_From_Excel_to_DB(ByVal xlFile As String, ByVal xlSheetName As String, ByVal dbFile As String, ByVal dbTableName As String)
 
    Dim cn, dbcn As ADODB.Connection
    Dim strSQL As String
    
   '------------------------------------------------------------------------------------------------------------
    Set cn = New ADODB.Connection
    cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source=" & xlFile & "; Extended Properties=Excel 8.0"
   '------------------------------------------------------------------------------------------------------------
    Set dbcn = New ADODB.Connection
    dbcn.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source=" & dbFile
   '------------------------------------------------------------------------------------------------------------
 
    strSQL = "INSERT INTO [" & dbTableName & "] SELECT * FROM [" & xlSheetName & "$] IN '" & xlFile & "' [Excel 12.0; hdr=yes;] [B]WHERE [" & xlSheetName & "$].WEEK IS NOT NULL[/B]"
 
    dbcn.Execute strSQL  ', adExecuteNoRecords
        
    cn.Close
    dbcn.Close
    
    Set cn = Nothing
    Set dbcn = Nothing
 
End Sub