Диалог сохранения файла в Excel / Microsoft Access

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Диалог сохранения файла в Excel

3 сообщений из 3, страница 1 из 1

Диалог сохранения файла в Excel

#32371736

black zorro

Участник

Сообщения: 454

Рейтинг: 0 / 0

Задача проста нужно показать диалог сохранения файла
с произвольным отличным от xls и т.д. расширением

классический путь (ниже) не позволяет сохранить с левым расширением

Код: plaintext

1.
2.
3.
4.

Dim dlg As Dialog
  Set dlg = Application.Dialogs(xlDialogSaveAs)
  dlg.Show

А этот путь не идет без office xp (access xp)

а мне надо для 2000 или даже еще лучше 97

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.

 Dim fd As FileDialog
  Set fd = Access.Application.FileDialog(msoFileDialogFilePicker)
  fd.AllowMultiSelect = False
  fd.ButtonName =  "Select" 
  fd.Filters.Add  "My .... |(*.rsp)" 

  Dim res As Boolean
  res = fd.Show
  If (res) Then
   txtFileName.Value = fd.SelectedItems.Item(fd.SelectedItems.Count)
  End If

Сорри за надоевший вопрос, но не писать же ради такой мелочи на VC++
DLL и его вызывать из VBA кода

...

Рейтинг:

0 / 0

09.01.2004, 16:02

| Ответить | Цитировать | Написать

Диалог сохранения файла в Excel

#32371869

incold

Участник

Сообщения: 1 580

Рейтинг: 0 / 0

При создании нового сообщения есть красная надпись Правила \r
Там написано пользуйтесь поиском.\r
\r
Например вот. \r
/topic/24696\r
\r
Если еще поискать можно больше найти.\r
\r
Сорри за надоевший вопрос, но не писать же ради такой мелочи на VC++ \r
DLL и его вызывать из VBA кода \r
Зачем писать, если уже есть?

...

Рейтинг:

0 / 0

09.01.2004, 17:41

| Ответить | Цитировать | Написать

Диалог сохранения файла в Excel

#32373254

black zorro

Участник

Сообщения: 454

Рейтинг: 0 / 0

Thanks,

А это проще всего, нашел в MSDN в статье посвященной OFFICE97
Dim fileSaveName
fileSaveName = Application.GetSaveAsFilename( _
fileFilter:="Файлы расписания (*.rsp), *.rsp", Initialfilename:="Расписание.rsp")
If fileSaveName <> False Then
txtFileName.Value = fileSaveName
End If

...

Рейтинг:

0 / 0

12.01.2004, 15:16

| Ответить | Цитировать | Написать

3 сообщений из 3, страница 1 из 1

Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Диалог сохранения файла в Excel

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=45&msg=32371736&tid=1677264]:	0ms
get settings:	9ms
get forum list:	21ms
check forum access:	3ms
check topic access:	3ms
track hit:	188ms
get topic data:	12ms
get forum data:	3ms
get page messages:	56ms
get tp. blocked users:	2ms
others:	241ms

total:	538ms

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы