CON.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\Данные\книгапродаж.xlsx;Extended Properties = ""Excel 12.0 Macro;HDR=YES;IMEX=0"""
CON.Open

s = "SELECT [ассортимент$].[КодТовара], [Год2017$].[ПродажиСумма], [Год2017$].[ПродажиКоличество] " & _
    "FROM [ассортимент$] left JOIN [Год2017$] ON (([ассортимент$].[КодПодразделения]=[Год2017$].[КодПодразделения]) AND ([ассортимент$].[КодТовара]=[Год2017$].[КодТовара]));"
RS.Open s, CON
ExBook.Worksheets("отчет").Range("A2").CopyFromRecordset RS
    For i = 1 To RS.Fields.Count
        ExBook.Worksheets("отчет").Cells(1, i) = RS.Fields(i - 1).Name
    Next i