Stránka 1 z 1
Excel VBA - poškozený, nečitelný obsah
Napsal: 02 bře 2011 20:40
od 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.
Re: Excel VBA - poškozený, nečitelný obsah
Napsal: 02 bře 2011 21:05
od 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.
Re: Excel VBA - poškozený, nečitelný obsah
Napsal: 02 bře 2011 22:56
od 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 ...
Re: Excel VBA - poškozený, nečitelný obsah
Napsal: 03 bře 2011 08:51
od 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
...
Re: Excel VBA - poškozený, nečitelný obsah
Napsal: 03 bře 2011 12:24
od Branscombe
OK, vyzkouším a dám vědět, díky za rady ...