| |
|
|
| | Всем привет.
Есть код.
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) | |
| |
| |
| |
|
|
| | в хелпе вот так написано
Set dlgSaveAs = Application.FileDialog( _
FileDialogType:=msoFileDialogSaveAs) | |
| |
| |
| |
 26 Кб. |
|
| | В этом случае дает это.
В процессе написания VBA сам предлагает написание. Да и по книге так. И все же чего-то и там и там не так.  | |
| |
| |
| |
|
|
| | библиотека подключена?
MS Office 12 | |
| |
| |
| |
|
|
| | Об этом даже не думал. Видимо нет. Как подключить? | |
| |
| |
|
|
| |
|
|
| | 
оказывается все-таки вот так
Set dlgSaveAs = Application.FileDialog(DialogType:=msoFileDialogSaveAs)
| |
| |
| |
| |
|
|
| | Попытка найти одно отличие от моего не увенчалась успехом.  Так чего же ему надо? Как использовать Tools-References. Вставить на открытие формы или достаточно на кнопке. | |
| |
| |
| |
|
|
| | Проверь библиотеку
я пока ее не подключил тоже мучался | |
| |
| |
| |
|
|
| | В редакторе VBA наверху в строке где файл правка и т.д найди Tools далее References потом в списке найди microsoft office12 и чета там еще написано поставь галку и пробуй | |
| |
| |
| |
|
|
| | Никогда не занимался подключением библиотек. Это в сервисе? | |
| |
| |
| |
46 Кб. |
|
| | вот | |
| |
| |
| |
|
|
| | 
Это я понял. У меня русскоязычный. Ладно. Спасибо за помощь. Разберусь. Главное выяснено что к чему.
| |
| |
| |
|
|
| |
|
|
| | Укажите 2 вместо msoFileDialogSaveAs и ничего не надо подключать. | |
| |
| |
|
|
| |
24 Кб. |
|
| | в зависимости от офиса может быть 10 или 11 | |
| |
| |
