{"text_format":"1","workbook":"xlsx","n_sheets":1,"sheets":["List1"],"not_rendered":{"charts":0,"images":3,"macros":0,"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":"List1","index":0,"n_rows":26,"n_cols":7,"rows_kept":26,"cut":false,"hidden":false,"merged":[[0,0,0,6],[1,0,1,6]]}
["Vypsat soubory - Excel VBA"]
["http://office.lasakovi.com"]
[]
["Kontroluje C:\\",null,null,"adresar = \"C:\\\""]
[null,null,null,"ChDir adresar","Výpis soubory",null,"Změna disku"]
[null,null,null,"SouboryKtere = Dir(\"*.*\")",null,null,"ChDrive C:\\"]
[null,null,null,"ListBox1.Clear",null,null,"ChDir C:\\"]
[null,null,null,"i = 1"]
[]
[null,null,null,"Do While SouboryKtere <> \"\""]
[null,null,null,"    Cells(i + 3, 5).Value = SouboryKtere"]
[null,null,null,"    SouboryKtere = Dir"]
[null,null,null,"    i = i + 1"]
[null,null,null,"Loop"]
[]
[]
[]
[null,null,null,"adresar = \"C:\\\""]
[null,null,null,"ChDir adresar"]
[null,null,null,"SouboryKtere = Dir(\"*.*\")"]
[null,null,null,"ListBox1.Clear"]
[]
[null,null,null,"Do While SouboryKtere <> \"\""]
[null,null,null,"    ListBox1.AddItem SouboryKtere"]
[null,null,null,"    SouboryKtere = Dir"]
[null,null,null,"Loop"]