Привет
У меня много таблиц генерируются через PQ и потом VBA код выгружает их в папку. На эту папку настроена настроена программа которая эти файлы синхронизирует на другую машину. Так вот, иногда видно происходит конфликт с записью в фаил( fName ) и исполнение VBA останавливается.
Вопрос - можно ли как-то модифицировать данный макрос, чтобы если он видел что записать не удается в фаил ждал и предпринимал очередную попытку?
Благодарю!
У меня много таблиц генерируются через PQ и потом VBA код выгружает их в папку. На эту папку настроена настроена программа которая эти файлы синхронизирует на другую машину. Так вот, иногда видно происходит конфликт с записью в фаил( fName ) и исполнение VBA останавливается.
Вопрос - можно ли как-то модифицировать данный макрос, чтобы если он видел что записать не удается в фаил ждал и предпринимал очередную попытку?
Благодарю!
Код |
---|
Sub csvTable2(lName As String, tName As String, fName As String) Dim tbl As ListObject Set tbl = Worksheets(lName).ListObjects(tName) Application.DisplayAlerts = False Workbooks.Add tbl.Range.Copy Range("A1") With ActiveWorkbook .SaveAs fName, xlCSV, local:=True .Saved = True .Close End With Application.DisplayAlerts = True End Sub |