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.
Excel VBA - poškozený, nečitelný obsah
- Branscombe
- Level 3
- Příspěvky: 469
- Registrován: červen 09
- Pohlaví:
- Stav:
Offline
-
- Level 4
- Příspěvky: 1142
- Registrován: srpen 08
- Pohlaví:
- Stav:
Offline
Re: Excel VBA - poškozený, nečitelný obsah
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
- Level 3
- Příspěvky: 469
- Registrován: červen 09
- Pohlaví:
- Stav:
Offline
Re: Excel VBA - poškozený, nečitelný obsah
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 ...
-
- Level 4
- Příspěvky: 1142
- Registrován: srpen 08
- Pohlaví:
- Stav:
Offline
Re: Excel VBA - poškozený, nečitelný obsah
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:
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
- Level 3
- Příspěvky: 469
- Registrován: červen 09
- Pohlaví:
- Stav:
Offline
Re: Excel VBA - poškozený, nečitelný obsah
OK, vyzkouším a dám vědět, díky za rady ...
-
- Mohlo by vás zajímat
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
-
Excel - filtr na formát buňky + obsah Příloha(y)
od popcorn » 19 zář 2023 17:07 » v Kancelářské balíky - 0
- 2254
-
od popcorn
Zobrazit poslední příspěvek
19 zář 2023 17:07
-
-
- 0
- 1048
-
od Jsimi
Zobrazit poslední příspěvek
06 úno 2024 22:43
-
- 16
- 6887
-
od mirekol
Zobrazit poslední příspěvek
20 říj 2023 08:31
-
-
Excel komparacedvou soborů Příloha(y)
od teichmann.ondrej » 15 dub 2024 17:26 » v Kancelářské balíky - 11
- 3680
-
od teichmann.ondrej
Zobrazit poslední příspěvek
22 dub 2024 15:45
-
-
- 1
- 726
-
od Grimm
Zobrazit poslední příspěvek
12 bře 2024 21:43
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 7 hostů