Почему в Access DoCmd.OutputTo не закрывает файлы?

Question

[Rxd]

Столкнулся с интересной проблемой. При использовании DoCmd.OutputTo для экспорта из Access в Excel все отрабатывает отлично, но после этого созданные екслевские файлы остаются как будто открытые. Т.е. экспорт прошел успешно, но сторонние программы не могут их использовать, т.к. эти файлы как будто остаются открытыми. При этом, если открыть файл через проводник, нажать "Сохранить" и закрыть, они становятся нормальными.

Set sklad = CurrentDb.OpenRecordset(StrSQL)
        If sklad.RecordCount > 0 Then
            With sklad
            For i = 1 To .RecordCount
                uPrais = !IP
                strOutputFile = "C:\" & !NP & ".xls"
                DoCmd.OutputTo acOutputQuery, "table_excel", "Excel97-Excel2003Workbook(*.xls)", 
                                            strOutputFile, False, "", 0, acExportQualityPrint
                .MoveNext
            Next i
            .Close
            End With
        End If
        Set sklad  = Nothing

Answer 1

[Александр Ананьев]

Попробуйте поставить DoEvents до/после DoCmd.OutputTo