Форумы HiProg.com - MS ACCESS, VBA, VB

ник: Анатолий (Киев)

SELECT Mid(T1.F1,8) AS Заявка, T2.F1 AS Номер, T2.F2 AS Контейнер, T2.F3 AS Лот, T2.F4 AS Марка, T2.F5 AS Модель, T2.F6 AS Тип, T2.F7 AS ВремяРазгр, T2.F8 AS Коносамент, T2.F10 AS СудноРейс, T2.F13 AS ДатаРазгрузки FROM [A13:A13] AS T1, [A22:M200] AS T2 IN 'C:\Заявка № К 13071 Optima.xls'[Excel 8.0;HDR=No] WHERE (((T2.F1)>0));

Этот запрос вернет вам почти то, что вы хотите. Почти, потому что:
1. Значения из ячеек, объединяющих несколько строк, выводятся 1 раз;
2. Дату разгрузки надо вытягивать из текста примечания. Если это всегда 8 последних символов, то не сложно, а если нет?

Путь к файлу подставьте свой.