Сохранение excel файла через макрос access

Четверг, 11 Августа 2016 г. 11:13 + в цитатник

Добрый день.
У меня есть код для сохранения и закрытия exsel файла.

For i = 1 To 15000: DoEvents: Next
Set xlWb = GetObject(, "Excel.Application")
xlWb.Application.Visible = True
xlWb.Application.displayalerts = False
xlWb.Application.activeworkbook.SaveAs FileName:="F:\SC\Bykovo Warehouse\ÝÒÈÊÅÒÊÈ\Delivery access.XLSX", FileFormat:=51
xlWb.Application.displayalerts = True
xlWb.Quit

Но в нем есть особенность, он закрывает все файлы exsel. Может кто подскажет как прописать закрытие определенного файла.

http://www.sql.ru/forum/1226346/sohranenie-excel-fayla-cherez-makros-access