Excel VBA - poškozený, nečitelný obsah

[Branscombe]

Ahoj všem, potřeboval bych poradit se zápisem ve VBA v Excelu.

Pomocí makra otevírám spousty souborů ale mám problém když má soubor nečitelný obsah. Jak tento soubor otevřít popř. neotevřít ??

A ještě jedna otázka - jak nejlépe najít takovýto nečitelný obsah v souboru ??

Díky předem za rady.

[Reklama]

[navstevnik]

ale mám problém když má soubor nečitelný obsah. Jak tento soubor otevřít popř. neotevřít ??

Na takto formulovany dotaz nelze nez odpovedet: pro osetreni chyb zpusobenych "necitelnym" obsahem pouzij prikaz On Error, vice najdes v napovede VBA.

[Branscombe]

Hm... Tak to jsem zkoušel a nic ... Zkoušel jsem standartně "On Error Resume Next", pak i "On Error GoTo ErrHandler", ale nic ... Prostě mi to vyhodí s chybou a nejde s tím nic udělat ...

[navstevnik]

Z tveho podani neni jasne, co znamena "necitelny" soubor.
Pokud je vysledkem chyba behu procedury, pak ji lze vzdy osetrit prikazem On Error, napr. treba takto:

Kód: Vybrat vše

...
  On Error Resume Next
  Set SWbk = Workbooks.Open(SPathFile)  ' soubor - disk, cesta, nazev
  If Err.Number <> 0 Then
    MsgBox "Chyba ... zdrojového souboru", vbOKOnly + vbExclamation
    GoTo Err1
  End If
  Set SWsht = SWbk.Worksheets(SWshtN)  ' list - nazev
  If Err.Number <> 0 Then
    MsgBox "Chyba ... zdrojového listu", vbOKOnly + vbExclamation
    GoTo Err2
  End If
  Set SBlk = SWsht.Range(SDatAddr)  ' blok - adresa
  If Err.Number <> 0 Then
    MsgBox "Chyba ... zdrojového bloku", vbOKOnly + vbExclamation
    GoTo Err3
  End If
  On Error GoTo 0
...

[Branscombe]

OK, vyzkouším a dám vědět, díky za rady ...