Ошибка времени выполнения 1004; Обработка ошибок

У меня проблемы с обработкой ошибок. Я сшиваю ряд пронумерованных файлов для нескольких бизнес-мест. Я написал код, чтобы перейти к следующему циклу местоположения при ошибке «файл не там», потому что в каждом месте есть другое количество файлов.

Даже с обработкой ошибок, я получаю ошибку времени выполнения 1004. Как это может быть? Он бомбит второй контур положения, работает на первом. Я использовал цикл из 15 файлов, чтобы быть в безопасности, потому что макс, с которым я столкнулся, равен 12.

Sub OpenURL() Dim LocBackupFile As String Dim CurrentFile As String Dim HubFileName As String Application.DisplayAlerts = False Filedate = Format(Date, "mm-dd-yyyy") 'Cycle through Hubs HubArray = Array("GA100%20-%20AHUB", "TX100%20-%20DHUB", "CA200%20-%20HHUB", "IN100%20-%20IHUB", "WA100%20-%20KHUB", _ "AB100%20-%20LHUB", "MO100%20-%20MHUB", "NC100%20-%20NHUB", "OH100%20-%20OHUB", "PA100%20-%20SHUB", _ "IN200%20-%20THUB", "UT100%20-%20UHUB", "ON100%20-%20VHUB", "MN100%20-%20WINO", "NL100%20-%20YHUB") For Hub = LBound(HubArray) To UBound(HubArray) HubName = Left(HubArray(Hub), 5) HubFileName = HubName & " NoLocBackup " & Filedate & ".xlsb" For CheckAndOpen = 1 To 15 LocBackupFile = "http://fastnet.--------.com/sites/fastreports/Hubs/" & HubArray(Hub) & "/locbackup_ws" & CheckAndOpen & ".xls" On Error Resume Next Workbooks.Open FileName:=LocBackupFile On Error GoTo Done CurrentFile = "locbackup_ws" & CheckAndOpen & ".xls" If CheckAndOpen = 1 Then RowCount = ActiveSheet.UsedRange.Rows.Count Workbooks.Add.SaveAs FileName:="R:\" & HubFileName, FileFormat:=50 If RowCount >= 65000 Then DestRowCount = 65001 End If Workbooks(CurrentFile).Sheets(1).Range("A1:H" & RowCount).Copy Destination:=Workbooks(HubFileName).Sheets(1).Range("A1") Else RowCount = ActiveSheet.UsedRange.Rows.Count If RowCount < 64999 Then Workbooks(CurrentFile).Sheets(1).Range("A3:H" & RowCount).Copy Destination:=Workbooks(HubFileName).Sheets(1).Range("A" & DestRowCount) Else Workbooks(CurrentFile).Sheets(1).Range("A3:H65000").Copy Destination:=Workbooks(HubFileName).Sheets(1).Range("A" & DestRowCount) DestRowCount = DestRowCount + 64998 End If End If Workbooks(CurrentFile).Close SaveChanges:=False Next CheckAndOpen Done: On Error GoTo 0 Workbooks(HubFileName).Save Workbooks(HubFileName).Close Next Hub Application.DisplayAlerts = True End Sub 

Перейдите в «Инструменты-> Параметры-> и на вкладке« Общие »измените« Ошибка ловушки »на« Перерыв на необработанные ошибки »

введите описание изображения здесь

  • Application.Ontime Cancel Fails to Method 'ONTIME' объекта 'Application'
  • Ошибка выполнения 9
  • Обновление: ошибка VBA 6 Переполнение при итерации по ключу в словаре
  • Excel / VBA - ошибка времени выполнения 91 возникает только после ввода и выхода из режима разработки
  • Использование ошибки VBA Runtime 13 «несоответствие типа» при назначении измененного значения ячейки обратно в ячейку
  • Ошибка 2042 на десятичных числах application.match vba
  • Ошибка времени выполнения: 438 с использованием макроса
  • VBA Runtime Error ... но я не могу нажать на debug
  • Ошибка -2147417848 (& H80010108): вызванный объект отключился от своих клиентов
  • передача даты функции для смещения ячейки со значением
  • Ошибка времени выполнения «13»: Тип Несоответствие
  • Давайте будем гением компьютера.