{"text_format":"1","workbook":"xlsx","n_sheets":2,"sheets":["Kopie cyklus","Úvod"],"not_rendered":{"charts":0,"images":1,"macros":1,"external_links":0,"defined_names":0,"comments":0,"pivot_tables":0},"unopened":[],"bounds":{"document_bytes":16777216,"sheet_cells":100000,"rows_first":2000,"rows_last":500,"rows_between":2000,"halvings":0,"cell_chars":16384,"cell_head_chars":4096},"cells_cut":0,"cells_raw":0,"read":"whole","date_system":"1900"}

{"sheet":"Kopie cyklus","index":0,"n_rows":46,"n_cols":8,"rows_kept":46,"cut":false,"hidden":false,"merged":[[0,0,0,5],[2,0,3,0]]}
["Práce se soubory"]
["http://office.lasakovi.com/"]
["Nastavit!","Který adresář","D:\\smaz\\"]
[null,"Který disk","D:\\"]
[]
[null,"Načítaná data se musí jmenovat Demo….. být ve stejném adresáři"]
[null,"Prohlédnout data",null,null,null,null,null,"Kód"]
[]
[null,"Pozor některé disky (MUNI) mají problém zpracovat xls!",null,null,null,null,null,"' Disk a Adresář z buňky"]
[null,null,null,null,null,null,null,"Adresar = Cells(3, 3).Value"]
[null,null,null,null,null,null,null,"Disk = Cells(4, 3).Value"]
[]
[]
[null,null,null,null,null,null,null,"ChDrive Disk"]
[null,null,null,null,null,null,null,"ChDir adresar"]
[]
[]
[null,null,null,null,null,null,null,"' budu načítat soubory s názvem Demo"]
[null,null,null,null,null,null,null,"SouboryKtere = Dir(\"Demo*.*\")"]
["Tady se načítají data z demo souboru"]
[null,null,null,null,null,null,null,"' začíná se načítat od jedničky"]
[null,null,null,null,null,null,null,"i = 1"]
[]
[null,null,null,null,null,null,null,"' pro soubory které spňují podmínku tak se provede"]
[null,null,null,null,null,null,null,"Do While SouboryKtere <> \"\""]
[null,null,null,null,null,null,null,"        "]
[null,null,null,null,null,null,null,"        'odkud budu kopírovat nastavím /nasetuji/ si do proměné7"]
[null,null,null,null,null,null,null,"        Set wbCopy = Workbooks.Open(adresar & SouboryKtere)"]
[null,null,null,null,null,null,null,"        ' v sešitě se budu dívat do prvmího listu"]
[null,null,null,null,null,null,null,"        Set wsCopyFrom = wbCopy.Worksheets(1)"]
[null,null,null,null,null,null,null,"        "]
[null,null,null,null,null,null,null,"        ' co se bude kopírovat"]
[null,null,null,null,null,null,null,"        ' pouze záhlaví …. Můžete si rozšířit"]
[null,null,null,null,null,null,null,"        wsCopyFrom.Range(\"A1:C1\").Copy"]
[null,null,null,null,null,null,null,"        "]
[null,null,null,null,null,null,null,"        ' kam nakopírují a jak"]
[null,null,null,null,null,null,null,"        ThisWorkbook.Worksheets(1).Cells(i + 20, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False"]
[null,null,null,null,null,null,null,"        "]
[null,null,null,null,null,null,null,"        'nezapomenu zavřít to co jsem otevřel"]
[null,null,null,null,null,null,null,"        wbCopy.Close SaveChanges:=False"]
[]
[null,null,null,null,null,null,null,"' přesunu se na další soubor"]
[null,null,null,null,null,null,null,"SouboryKtere = Dir"]
[null,null,null,null,null,null,null,"i = i + 1"]
[]
[null,null,null,null,null,null,null,"Loop"]

{"sheet":"Úvod","index":1,"n_rows":0,"n_cols":0,"rows_kept":0,"cut":false,"hidden":false,"merged":[]}