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

• #51018 föccer nagyúr

  Új Válasz 2023-05-22 08:57:01 #51018

  Ú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

  

  föccer

  nagyúr

  Jó reggelt!

  On Error hibakezelés kérdésem következik.

  Ha egy for ciklusban nyitom a fájlokat, de a fájl nem található, akkor azt On Error-ral hogy kezeljem le?

  Azt már megtaláltam, hogy hogyan lehet megvédeni a kódot, hogy ne álljon le és lépjen a következő ciklusra, de szeretném, ha a makrót futtató táblázatban kapjak erről egy log-ot.

  A védendő ciklus:

  For i = 2 To Filok_szama + 1
Akt_file = Sheets("Minta_gyujto_alapadatok").Cells(i, 1).Value 'innen jönnek a fájl nevek
Akt_file_cime = Sheets("Minta_gyujto_alapadatok").Cells(i, 3).Value ' itt vannak a teljes elérési úttal a fájlok

Workbooks.Open _ ' ebben történő hibát kellene most kezelnem
Filename:=Akt_file_cime, _
UpdateLinks:=False, _
ReadOnly:=False, _
IgnoreReadOnlyRecommended:=True

Akt_minta_darab = Workbooks(Akt_file).Sheets("Munka1").Range("N1").Value
Keresett_sorazonosito = Akt_minta_darab
Akt_sor = 0

If Akt_minta_darab = 0 Then ' Ha nincs a megnyitott fájlban újonnan kiértékeledő adat, akkor ezt log-ba lerakja a célfájl megfelelő részére. X5 cellában van hogy eddig mennyi log jelzés volt
Cel_ws.Cells(Cel_ws.Range("X5").Value + 6, 24) = Akt_file
Cel_ws.Cells(Cel_ws.Range("X5").Value + 5, 25) = "Új minta darabszáma = 0"

End If

For j = 1 To Akt_minta_darab
Akt_sor = Workbooks(Akt_file).Sheets("Munka1").Cells(Keresett_sorazonosito, 18).Value
Cel_ws.Range(Cel_ws.Cells(Gyujtott_minta_darab + 2, 1), Cel_ws.Cells(Gyujtott_minta_darab + 2, 20)).Value = Workbooks(Akt_file).Sheets("Üzem").Range(Workbooks(Akt_file).Sheets("Üzem").Cells(Akt_sor, 1), Workbooks(Akt_file).Sheets("Üzem").Cells(Akt_sor, 20)).Value
Workbooks(Akt_file).Sheets("Üzem").Cells(Akt_sor, 21).Value = "igen"
Workbooks(Akt_file).Sheets("Üzem").Cells(Akt_sor, 22).Value = ("Automatán beolvasva - " & Now)
Gyujtott_minta_darab = Gyujtott_minta_darab + 1
Keresett_sorazonosito = Keresett_sorazonosito - 1
Next

Workbooks(Akt_file).Close _
SaveChanges:=True

Next

  Ennek a két sornak kellene futnia, On Error-ra.

  Cel_ws.Cells(Cel_ws.Range("X5").Value + 6, 24) = Akt_file
Cel_ws.Cells(Cel_ws.Range("X5").Value + 5, 25) = "Forrás fájl nem található"

  Köszönöm a segítségeteket ismét

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