Új hozzászólás Aktív témák

• #51019 Fferi50 Topikgazda föccer #51018

  Új Válasz 2023-05-22 09:52:35 #51019

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Fferi50

  Topikgazda

  válasz föccer #51018 üzenetére

  Szia!
  A fileokat begyűjtő ciklus elé:
  On Error Resume Next
A Workbooks.Open utasítás után:
If Err=0 Then
   ' Ide jönnek a sikeres megnyitás utáni műveletek
a fájlbegyűjtő ciklus Next utasítása elé (ami most az utolsó sor)
Else
  ' Ide jön a hibakezelő 2 sorod +
    Err=0
End If
  A folyamat (makró) legvégén pedig On Error Goto 0 - a hibakezelés visszaadása a VBA-nak.
  Üdv.

Új hozzászólás Aktív témák