{"text_format":"1","workbook":"xlsx","n_sheets":3,"sheets":["Úvod","Syntaxe","FileDialog - praxe"],"not_rendered":{"charts":0,"images":4,"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":"Úvod","index":0,"n_rows":27,"n_cols":8,"rows_kept":27,"cut":false,"hidden":false,"merged":[[1,2,1,9],[11,2,12,6],[14,3,15,6],[15,7,15,9],[26,1,26,11]]}
[]
[null,null,"Jak na Excel  - VBA"]
[]
[]
[null,null,null,"Obsah cvičení"]
[null,null,null,null,"FileDialog dialog","v přípravě"]
[null,null,null,null,"Syntaxe"]
[]
[]
[]
[]
[null,null,"Pavel Lasák"]
[]
[]
[null,null,null,"Lektor, expert na Microsoft Excel, držitel prestižního ocenění Microsoftu MVP v České republice"]
[null,null,null,null,null,null,null,5002722]
[]
[]
[]
[]
[null,null,null,"Další informace ke cvičení:"]
[]
[]
[]
[]
[]
[null,"Copyright, Pavel Lasák 2017, 2021"]

{"sheet":"Syntaxe","index":1,"n_rows":12,"n_cols":5,"rows_kept":12,"cut":false,"hidden":false,"merged":[[0,0,0,4],[1,0,1,4]]}
["VBA - FileDialog - syntaxe"]
["http://JakNaExcel.cz/"]
[]
[null,"Složka","07_VBA_Soubory"]
[null,"Sešit","07o - VBA Soubory FileDialog"]
[null,"List","Syntaxe"]
[]
[null,"expression.FileDialog (fileDialogType)"]
[]
[]
[]
[null,"fileDialogType","Required","MsoFileDialogType","The type of file dialog."]

{"sheet":"FileDialog - praxe","index":2,"n_rows":58,"n_cols":3,"rows_kept":58,"cut":false,"hidden":false,"merged":[[0,0,0,4],[1,0,1,4]]}
["VBA - FileDialog - načítání ukázky"]
["http://JakNaExcel.cz/"]
[]
[null,"07_VBA_Soubory","Složka"]
[null,"07o - VBA Soubory FileDialog","Sešit"]
[null,"FileDialog - praxe","List"]
[]
[]
[]
[null,"With Application.FileDialog(msoFileDialogFilePicker)"]
[null,"    '' Povolí jen jeden soubor"]
[null,"    .AllowMultiSelect = False"]
[null,"    '' Filtr na určité soubory"]
[null,"    .Filters.Add \"Excel Files\", \"*.xlsx; *.xlsm; *.xls; *.xlsb\", 1"]
[null,"    '' Zobrazit dialog pro výběr"]
[null,"    .Show"]
[null,"    "]
[null,"    '' Co bylo vybráno"]
[null,"    fullpath = .SelectedItems.Item(1)"]
[null,"End With"]
[null,"    "]
[null,"'' Opravdu byl vybrán soubor?"]
[null,"If InStr(fullpath, \".xls\") = 0 Then"]
[null,"    Exit Sub"]
[null,"End If"]
[null," "]
[null,"'' Soubor otevřít"]
[null,"Workbooks.Open fullpath"]
[]
[]
[]
[]
[]
[]
[null,"'' Specifická složka"]
[]
[null,"Dim fd As Office.FileDialog"]
[null,"Dim strFile As String"]
[null," "]
[null,"Set fd = Application.FileDialog(msoFileDialogFilePicker)"]
[null," "]
[null,"With fd"]
[null," "]
[null,"    .Filters.Clear"]
[null,"    .Filters.Add \"Excel Files\", \"*.xlsx?\", 1"]
[null,"    .Title = \"Vyber Excel\""]
[null,"    .AllowMultiSelect = False"]
[null,"    .InitialFileName = \"D:\\test\""]
[null," "]
[null,"    If .Show = True Then"]
[null,"        strFile = .SelectedItems(1)"]
[null,"    End If"]
[null," "]
[null,"End With"]
[]
[null,"MsgBox (strFile)"]
[]
[null,"'' Tip kontrola vybraní"]