PC-HELP.CZ

Ahoj,

pri skoleni mi lektor nastavil v databazi export dotazu do excelu. Bohuzel doma mi to nefunguje.
Oznaci to chybovou hlasku u Dim dialog As FileDialog User-defined type not defined.
Databaze je vytvorena ve verzi 2003, ale na skoleni i doma ji otviram v 2010.

Diky za pomoc

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