ник: Гоблин
Всем привет.
Есть код.
Private Sub Кнопка251_Click()
Dim dlgSaveAs As FileDialog
Set dlgSaveAs = Application.FileDialog(DialogType:=msoFileDialogSaveAs)
dlgSaveAs.Show
MsgBox dlgSaveAs.SelectedItems(1)
End Sub
Чего ему (Аксу2002) не нравится в строке?
Set dlgSaveAs = Application.FileDialog(DialogType:=msoFileDialogSaveAs)