MS Excel

Ahoj,
nemáte někdo prosím zkušenosti s rozbalováním zipu ve VBA?

Používám tento kód, ale někdy se mi stává, že se mi rozbalí pouze první soubor z archivu zip...
Sub UnzipAFile(zippedFileFullName As Variant, unzipToPath As Variant)

Dim ShellApp As Object

'Copy the files & folders from the zip into a folder
Set ShellApp = CreateObject("Shell.Application")
ShellApp.Namespace(unzipToPath).CopyHere ShellApp.Namespace(zippedFileFullName).items

End SubDěkuji za případnou pomoc.

Zaslat odpověď >

eLCHa(6.3.2018 21:47)#039758

@Stalker
Ahoj, přikládám sešit s kódem J. Walkenbacha (součást knihy o VBA)

Třeba se Ti to bude hodit.

Váš příspěvek jsem smazal. Nemyslím, že by obsahoval něco, co není k dohledání na netu. Ale, napsal jste, že je to součást knihy. A přepokládám, že jste od autora nezískal souhlas k šíření...
Pokud ano, vložte na svůj web a zde vložte odkazcitovat

Stalker(6.3.2018 22:13)#039760

To Elcha
Ano opravdu se jedná o (jeden) soubor ke knize Microsoft Office Excel 2007 Programování ve VBA. S Walkenbachem jsem osobně nemluvil, a opravdu si nebudu zakládat web kvůli jednomu souboru. Soubory ke knize VŠECHNY (to je všech 30 kapitol v zip archivu) jsou volně k dispozici na stránce nakladatelství (i po těch letech).

Vše je o to, že sem v dobré víře uvedl autora kódu. Když bych se na to vys...l mělo by to opačný efekt.

Pro tazatele pokud budeš chtít napiš SZ pošlu ti odkaz na nakladatelství. Abych tu zase někoho nedráždil.citovat

eLCHa(7.3.2018 6:07)#039762

Myslete si co chcete.

I když na rozdíl od jiných jste aspoň napsal, že nejste autorem.

1) Onen web to má z autorem domluvené - tento ne.
2) Pokud je to na webu, je prostě slušné dát odkaz na originál a ne vkládat kopii.citovat

Téma: Rozbalení zipu ve VBA

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje