8_入荷　AccessからExcelにデータ取込み

Sub 取込みデータ()

    Dim adoCN As ADODB.Connection
    Dim adoRS As ADODB.Recordset
    Dim strSQL As String
    Dim exWS As Worksheet
     '高速化開始
    With Application
        .Calculation = xlCalculationManual
        .EnableEvents = False
        .ScreenUpdating = False
    End With
      
    Set adoCN = New ADODB.Connection
    adoCN.Open "provider=microsoft.ace.oledb.12.0;" & _
    "data source = D:\JBRC検収システム\05_入荷システム\JBRC_NDB.accdb;"
       
    adoCN.Execute "DELETE * FROM 1_未入荷エクスポート"
    adoCN.Execute "1_未入荷データ"
'    MsgBox "更新終了♪"
     Sheets("未入荷").Select
    Range("A1").Select
  
    Range("A3").Value = "受付番号"
    Range("B3").Value = "送り状番号"
    Range("C3").Value = "拠点番号"
    Range("D3").Value = "拠点名"
    Range("E3").Value = "受付日"
    Range("F3").Value = "取引日"
    Range("G3").Value = "到着日"
    Range("H3").Value = "着荷検収日"
    Range("I3").Value = "受付個数"
    Range("J3").Value = "実数量"
    Range("K3").Value = "受付荷姿"
    Range("L3").Value = "運送会社"
    Range("M3").Value = "対応内容"
    Range("N3").Value = "相違個数"
    Range("O3").Value = "入荷日"
    Range("P3").Value = "カーゴNo"
    Range("Q3").Value = "カーゴ集計"
    Range("R3").Value = "カーゴ口数"

  Set adoRS = CreateObject("ADODB.Recordset") 'ADOレコードセットオブジェクトを作成
strSQL = "SELECT * FROM 1_未入荷エクスポート"

adoRS.Open strSQL, adoCN 'SQLを実行して対象をRecordSetへ

Worksheets("未入荷").Range("A4").CopyFromRecordset adoRS

adoRS.Close 'レコードセットのクローズ
adoCN.Close 'コネクションのクローズ

Set adoRS = Nothing
Set adoCN = Nothing  'オブジェクトの破棄
Application.Goto Worksheets("未入荷").Range("A2")
'高速化終了
    With Application
        .Calculation = xlCalculationAutomatic
        .EnableEvents = True
        .ScreenUpdating = True
    End With

MsgBox "本日データを取込ました♪"
End Sub