• Миша
  • Восстановленный участник
  • На форуме с 31 декабря 2001г.
  • Сообщений: 322
  • Спасибо: 0

Тема: Метод GetSaveAsFileName in VBA for AutoCAD

Помогите найти аналог методу GetSaveAsFileName, этот метод существует в Excel) в VBA for AutoCAD.
Необходимо чтобы после нажатия кнопки появлялось окно "Сохранить как..." в котором можно было бы выбрать диск, каталог и имя файла в котором надо сохранить данные.

  • Maxim T
  • Восстановленный участник
  • На форуме с 1 августа 2003г.
  • Сообщений: 628
  • Спасибо: 0

Re: Метод GetSaveAsFileName in VBA for AutoCAD

Я бы на твоём месте попробовал обратиться к соответствующей функции некой системной DLL. Что это за функция и DLL, я бы узнал в книжном магазине, открыв толстенную книгу по API или в этом роде (кстати, я видел книгу "VB и Windows API").

  • bender
  • Восстановленный участник
  • На форуме с 5 мая 2003г.
  • Сообщений: 345
  • Спасибо: 0

Re: Метод GetSaveAsFileName in VBA for AutoCAD

https://www.caduser.ru/forum/topic11358.html
https://www.caduser.ru/forum/topic9032.html

  • Миша
  • Восстановленный участник
  • На форуме с 31 декабря 2001г.
  • Сообщений: 322
  • Спасибо: 0

Re: Метод GetSaveAsFileName in VBA for AutoCAD

Почему функции:
Public Declare Function GetSaveFileName Lib "comdlg32.dll" Alias "GetSaveFileNameA" _
(pOpenfilename As OPENFILENAME) As Long
Public Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" _
(pOpenfilename As OPENFILENAME) As Long
из библиотеки comdlg32.dll не доступны на моём компьютере?
И на работе тоже эта библиотека недоступна.
Как сделать эту библиотеку доступной? Можно ли воспользоваться другими функциями?

  • Миша
  • Восстановленный участник
  • На форуме с 31 декабря 2001г.
  • Сообщений: 322
  • Спасибо: 0

Re: Метод GetSaveAsFileName in VBA for AutoCAD

Библиотека comdlg32 6.00.2600.0000 (xpclient.010817-1148)    254,00 КБ (260?096 байт)    20.10.2001 16:00    Корпорация Майкрософт    d:\windows\system32\comdlg32.dll загружена на моём компьютере.
Но при запуске программы выдаётся ошибка на функции GetSaveFileName: "Compile error. User-defined type not defined."
Может быть у функции GetSaveFileName другой список параметров?
Если у вас есть свои работающие библиотеки для использования диалоговых окон работы с файлами, пришлите их мне пожалуйста.

  • Миша
  • Восстановленный участник
  • На форуме с 31 декабря 2001г.
  • Сообщений: 322
  • Спасибо: 0

Re: Метод GetSaveAsFileName in VBA for AutoCAD

Извините всё заработало! Просто забыл дать описание OPENFILENAME.
Товарищ bender, спасибо большое!

  • Leonid
  • Восстановленный участник
  • На форуме с 16 июня 2003г.
  • Сообщений: 389
  • Спасибо: 0

Re: Метод GetSaveAsFileName in VBA for AutoCAD

А почему бы не использовать контрол CommonDialog?

  • Миша
  • Восстановленный участник
  • На форуме с 31 декабря 2001г.
  • Сообщений: 322
  • Спасибо: 0

Re: Метод GetSaveAsFileName in VBA for AutoCAD

Уважаемый Леонид, CommonDialog не всегда бывает в наличии и требует для работы какой-то лицензии. Так, что это очень капризная вещь, из-за которой приходится иногда копировать все элементы управдения с формы без контрола на форму с контролом, вставленным в эту форму на компе с лицензионным CommonDialog. Так, что слава богу, что есть функции Windows, позволяющие работать с этим контролом.