Ahoj,
pri skoleni mi lektor nastavil v databazi export dotazu do excelu. Bohuzel doma mi to nefunguje. Oznaci to chybovou hlasku u radku Dim dialog As FileDialog User-defined type not defined. Databaze je vytvorena ve verzi 2003, ale na skoleni i doma ji otviram v 2010. Poradite mi, prosim, v cem je chyba?
Diky
Public Function Ulozit_soubor() Dim dialog As FileDialog Set dialog = Application.FileDialog(msoFileDialogSaveAs) dialog.Title = "export do excelu" dialog.InitialFileName = "ExportovanaData.xls" dialog.Show If dialog.SelectedItems.Count = 0 Then Ulozit_soubor = "xxx" Else Ulozit_soubor = dialog.SelectedItems(1) End If End Function
|