Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
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
 
DoEvents попробуйте добавить
 
Anchoret, благодарю, а можно пример а то я в VBA слаб:(  
 
Vsevolod,например так, или просто поставить DoEvents перед и возможно после сохранения:
Код
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
      On Error Resume Next
      If Err Then On Error GoTo 0: DoEvents
      .SaveAs fName, xlCSV, local:=True
      .Saved = True
      .Close
    End With
    Application.DisplayAlerts = True
     
   
End Sub
 
Anchoret,благодарю буду тестировать!  
Страницы: 1
Читают тему (гостей: 1)
Наверх