Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Диалоговое окно сохранения файла в Excel??? / 23 сообщений из 23, страница 1 из 1
21.11.2007, 09:33
    #34954051
Юрец_1
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Диалоговое окно сохранения файла в Excel???
День добрый, люди.
Суть проблемы: создал в excel шаблон для заполнения анкет (анкета.dot). После его заполнения и сохранения выводится стандартное окно сохранения файла, где по умолчанию в качестве имени файла прописано "анкета1.xls". Вопрос: можно ли как-нибудь поменять это значение, чтобы в качестве имени файла пользователю предлагалось значение одной из ячеек?
...
Рейтинг: 0 / 0
21.11.2007, 09:39
    #34954064
HandKot
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Диалоговое окно сохранения файла в Excel???
Код: plaintext
Application.GetSaveAsFilename(InitialFilename, FileFilter, FilterIndex, Title, ButtonText)

Код: plaintext
InitialFilename    Optional Variant. Specifies the suggested file name. If this argument is omitted, Microsoft Excel uses the active workbook's name.

I Have Nine Lives You Have One Only
THINK!
...
Рейтинг: 0 / 0
21.11.2007, 10:36
    #34954295
Юрец_1
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Диалоговое окно сохранения файла в Excel???
HandKot
Код: plaintext
Application.GetSaveAsFilename(InitialFilename, FileFilter, FilterIndex, Title, ButtonText)

Код: plaintext
InitialFilename    Optional Variant. Specifies the suggested file name. If this argument is omitted, Microsoft Excel uses the active workbook's name.

I Have Nine Lives You Have One Only
THINK!

Прописал
Код: plaintext
1.
2.
3.
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Application.GetSaveAsFilename ("123")
End Sub

При открытии шаблона (для заполнения анкеты) в заголовке окна высвечивается название "анкета1". При сохранении файла (из меню) выводится то окно, которое и хотелось с именем файла по умолчанию "123", но при последующем закрытии файла опять выводится сообщение о том, что в файле "анкета1.xls" произошли изменение и вопрос о сохранении этих изменений. При утвердительном ответе в окне сохранения файла предлагаемое имя файла уже "анкета1".
Если же закрыть окно без предварительного сохранения файла, то последовательно высвечиваются 2 диалоговых окна сохранения: в первом предлагаемое имя файла "123", а во втором - "анкета1".
Может быть можно как-нибудь отменить вывод второго окна сохранения?
...
Рейтинг: 0 / 0
21.11.2007, 10:57
    #34954391
кладовщик
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Диалоговое окно сохранения файла в Excel???
Можно просто вообще Application.DisplayAlerts=false
...
Рейтинг: 0 / 0
21.11.2007, 12:35
    #34954906
HandKot
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Диалоговое окно сохранения файла в Excel???
возможно так
Код: plaintext
1.
2.
3.
4.
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Application.GetSaveAsFilename ("123")
    ' так как мы уже сохранили, то отменяем сохранение по меню
    Cancel = True
End Sub


I Have Nine Lives You Have One Only
THINK!
...
Рейтинг: 0 / 0
21.11.2007, 15:26
    #34955664
Юрец_1
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Диалоговое окно сохранения файла в Excel???
HandKotвозможно так
Код: plaintext
1.
2.
3.
4.
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Application.GetSaveAsFilename ("123")
    ' так как мы уже сохранили, то отменяем сохранение по меню
    Cancel = True
End Sub


I Have Nine Lives You Have One Only
THINK!
При таком случае файл вообще не сохраняется.
Пробовал на закрытие шаблона ставить
Код: plaintext
1.
2.
3.
4.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.GetSaveAsFilename ("123")
    Application.DisplayAlerts = False
End Sub
т.е. запретить вывод сообщения - все равно сначала выводит диалог сохранения с именем 123, а затем все равно вопрос "Сохранить изменения в файле 'анкета1'?"
Как быть? Очень надо проблему побороть...
...
Рейтинг: 0 / 0
21.11.2007, 18:33
    #34956424
кладовщик
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Диалоговое окно сохранения файла в Excel???
Я сейчас озадачился вопросом: а Вы вообще файл сохраняете программно?
Строку кода типа WorkBooks(MyFileNameOrSmthLikeThis). SaveAnyWhere исп-те после вызова Application.GetSaveAsFilename?
Метод Application.GetSaveAsFilename он ведь только имя файла, кот-й юзер вводит возвращает - а сам файл какой был, такой и остался - не сохраняется он по нажатию кнопки.
ЗЫ По пунктам напишите задачу Вашу - т.е. действия юзера. Я недавно в книгу-шаблон скидывал данные программно, редактировал и сохранял с заданным именем - имя или юзер выбирал, или программно в завис-ти от данных на 1-м листе. У Вас что-то вроде такого, но распишите все-таки по пунктам.
ЗЗЫ Выложил бы код свой, но все в офисе, а я вроде как уволился. Но суть такая, как я выше написал.
...
Рейтинг: 0 / 0
22.11.2007, 15:31
    #34958723
Юрец_1
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Диалоговое окно сохранения файла в Excel???
кладовщикЯ сейчас озадачился вопросом: а Вы вообще файл сохраняете программно?
Строку кода типа WorkBooks(MyFileNameOrSmthLikeThis). SaveAnyWhere исп-те после вызова Application.GetSaveAsFilename?
Метод Application.GetSaveAsFilename он ведь только имя файла, кот-й юзер вводит возвращает - а сам файл какой был, такой и остался - не сохраняется он по нажатию кнопки.
ЗЫ По пунктам напишите задачу Вашу - т.е. действия юзера. Я недавно в книгу-шаблон скидывал данные программно, редактировал и сохранял с заданным именем - имя или юзер выбирал, или программно в завис-ти от данных на 1-м листе. У Вас что-то вроде такого, но распишите все-таки по пунктам.
ЗЗЫ Выложил бы код свой, но все в офисе, а я вроде как уволился. Но суть такая, как я выше написал.
Действия юзера:
Код: plaintext
1.
2.
3.
 1 . Пользователь открывает файл-шаблон "анкета.xlt" (с пустыми полями типа ФИО, дата рождения, место работы,...)
 2 . Заполняет этот файл-анкету конкретными данными
 3 . По окончанию заполнения сохраняет этот файл, при этом по умолчанию в качестве имени сохраняемого файла должно предлагаться определенное значение (из поля ФИО).
 4 . Закрывает файл.
Когда в шаблоне прописал
Код: plaintext
1.
2.
3.
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Application.GetSaveAsFilename ("123")
End Sub
все работает нормально, но при закрытии файла-шаблона после ввода данных выскакивает окно с запросом на сохранение файла "анкета1.xls". Вот от него и хотелось бы избавиться...
Прикладываю файл "анкета.xlt"
...
Рейтинг: 0 / 0
22.11.2007, 17:27
    #34959277
кладовщик
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Диалоговое окно сохранения файла в Excel???
Юрец_1 Действия юзера:
1. Пользователь открывает файл-шаблон "анкета.xlt" (с пустыми полями типа ФИО, дата рождения, место работы,...)
2. Заполняет этот файл-анкету конкретными данными
3. По окончанию заполнения сохраняет этот файл, при этом по умолчанию в качестве имени сохраняемого файла должно предлагаться определенное значение (из поля ФИО).
4. Закрывает файл.
Когда в шаблоне прописал
Код: plaintext
1.
2.
3.
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Application.GetSaveAsFilename ("123")
End Sub
все работает нормально, но при закрытии файла-шаблона после ввода данных выскакивает окно с запросом на сохранение файла "анкета1.xls". Вот от него и хотелось бы избавиться...
Прикладываю файл "анкета.xlt"
Посмотрел пример, что-то никаких идей не возникло по решению.
Разве что такие вар-ты:
1. вместо ввода в строки экселя сделать форму ввода с эл-тами управления и сохранять в нужном виде данные как файл экселя, беря данные с формы
2. Не исп-ть форму, а убрать с шаблона меню и панели управления типа сохранить файл и опять же сохранять в нужном виде по нажатию кнопки или еще чего-то такого. Может вообще все меню-тулбоксы убрать.
п.2. катит, если Эксель не 2007, но он муторный на 1-й взгляд - событий много отслеживать.
Я бы п.1 воспользовался - форма ввода с эл-тами управления, после окончания ввода - сохранение введенных данных в виде файла (или какого-то другого). Но это уже совсем другая работа получается, никак у Вас.
И в обоих пунктах надо всякой ерунды типа отслеживания событий программировать. Может, оставить тот шаблон, кот-й у Вас был - черт с тем, что при сохранении файла надо вручную имя набирать юзеру?
ЗЫ Понаписал тут всякого, а наверное какое-то элементарное решение должно быть - как сделать чтоб 2 раза это окно не выводилось.
...
Рейтинг: 0 / 0
22.11.2007, 17:54
    #34959382
Юрец_1
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Диалоговое окно сохранения файла в Excel???
кладовщик Юрец_1 Действия юзера:
1. Пользователь открывает файл-шаблон "анкета.xlt" (с пустыми полями типа ФИО, дата рождения, место работы,...)
2. Заполняет этот файл-анкету конкретными данными
3. По окончанию заполнения сохраняет этот файл, при этом по умолчанию в качестве имени сохраняемого файла должно предлагаться определенное значение (из поля ФИО).
4. Закрывает файл.
Когда в шаблоне прописал
Код: plaintext
1.
2.
3.
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Application.GetSaveAsFilename ("123")
End Sub
все работает нормально, но при закрытии файла-шаблона после ввода данных выскакивает окно с запросом на сохранение файла "анкета1.xls". Вот от него и хотелось бы избавиться...
Прикладываю файл "анкета.xlt"
Посмотрел пример, что-то никаких идей не возникло по решению.
Разве что такие вар-ты:
1. вместо ввода в строки экселя сделать форму ввода с эл-тами управления и сохранять в нужном виде данные как файл экселя, беря данные с формы
2. Не исп-ть форму, а убрать с шаблона меню и панели управления типа сохранить файл и опять же сохранять в нужном виде по нажатию кнопки или еще чего-то такого. Может вообще все меню-тулбоксы убрать.
п.2. катит, если Эксель не 2007, но он муторный на 1-й взгляд - событий много отслеживать.
Я бы п.1 воспользовался - форма ввода с эл-тами управления, после окончания ввода - сохранение введенных данных в виде файла (или какого-то другого). Но это уже совсем другая работа получается, никак у Вас.
И в обоих пунктах надо всякой ерунды типа отслеживания событий программировать. Может, оставить тот шаблон, кот-й у Вас был - черт с тем, что при сохранении файла надо вручную имя набирать юзеру?
ЗЫ Понаписал тут всякого, а наверное какое-то элементарное решение должно быть - как сделать чтоб 2 раза это окно не выводилось.
Спасибо за участие!
Но это я такую анкету для примера выложил. На самом деле она большая - порядка 100 строк, поэтому отдельную форму для ввода рисовать муторно, да и юзер не поймет.
Будем искать варианты как отменить вывод окна запроса сохранения шаблона перед его закрытием.
...
Рейтинг: 0 / 0
22.11.2007, 19:00
    #34959559
кладовщик
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Диалоговое окно сохранения файла в Excel???
Юрец_1 Спасибо за участие!
Но это я такую анкету для примера выложил. На самом деле она большая - порядка 100 строк, поэтому отдельную форму для ввода рисовать муторно, да и юзер не поймет.
Будем искать варианты как отменить вывод окна запроса сохранения шаблона перед его закрытием.
А Вам зачем вообще окно диалога сохранения файла? Может, без него обойтись? Вы же раньше писали, что "в качестве имени файла пользователю предлагалось значение одной из ячеек?" - может просто по нажатию кнопки типа "Я ввел все данные и теперь их можно сохранить" сохранять файл анкеты с программно определенным именем? Без предложения выбора имени?
Я на последнем месте работы таким образом кучу файлов с именами типа "Имя клиента и Дата отгрузки" нашлепал.
...
Рейтинг: 0 / 0
Период между сообщениями больше года.
09.03.2012, 10:41
    #37696966
Wladbvbh
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Диалоговое окно сохранения файла в Excel???
Юрец_1Когда в шаблоне прописал [src vba]Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Application.GetSaveAsFilename ("123")
End Sub

Как заставить свойство GetSaveAsFilename работать? Какую библиотеку необходимо подключить?
...
Рейтинг: 0 / 0
09.03.2012, 11:45
    #37697002
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Диалоговое окно сохранения файла в Excel???
ничего не надо, это стандартная фича
...
Рейтинг: 0 / 0
09.03.2012, 12:53
    #37697046
Wladbvbh
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Диалоговое окно сохранения файла в Excel???
Которая у меня не работает.
...
Рейтинг: 0 / 0
09.03.2012, 12:58
    #37697051
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Диалоговое окно сохранения файла в Excel???
WladbvbhКоторая у меня не работает.проблема в строке 44
...
Рейтинг: 0 / 0
09.03.2012, 13:05
    #37697056
Wladbvbh
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Диалоговое окно сохранения файла в Excel???
Я понимаю, что виновна прокладка между рулём и сиденьем. Но я ведь не профи, я только учусь.
Вопросы задаю редко, когда информации из сети не хватает.
Над выводом диалогового окна долго не возился. А с этим уже месяц, и никаких подвижек.
...
Рейтинг: 0 / 0
09.03.2012, 13:07
    #37697060
Serge 007
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Диалоговое окно сохранения файла в Excel???
WladbvbhНад выводом диалогового окна долго не возился. А с этим уже месяц, и никаких подвижек.
И ещё месяц будете возиться.
Вы намёки не понимаете?
Shocker.Proпроблема в строке 44
...
Рейтинг: 0 / 0
09.03.2012, 13:14
    #37697069
Wladbvbh
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Диалоговое окно сохранения файла в Excel???
Сори, но на тот момент число 44 стояло в счётчике моих сообщений.
...
Рейтинг: 0 / 0
09.03.2012, 13:42
    #37697094
Wladbvbh
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Диалоговое окно сохранения файла в Excel???
Что же это за строка такая?
...
Рейтинг: 0 / 0
09.03.2012, 13:52
    #37697098
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Диалоговое окно сохранения файла в Excel???
WladbvbhЧто же это за строка такая?Строка в вашем коде. Во втором модуле, если считать снизу. В ней ошибка задания параметра.

==========================

Блин, вы определитесь, вы просто пожаловаться сюда пришли, что что-то не работает?
Или хотите, чтобы вам помогли?

башоргwaran
я счас наорал на тетку-юзершу...
waran
я ей дажы пример привел: ты идешь в сортир, и по дороге у тебя домается нога... ты звонишь админу и кричишь: "!я не могу сходить в сортир"... и админ х.й ЗНАЕТ, попчему ты не можешь - либо у тебя дверь не открывается, либо охранник не пускает, либо идешь в другую сторону! вот скажи: не "не могу сходить в сортир", а "у меня нога поломалась" - так админ сразу будет знать, что чинить
waran
причем не уверен, что до нее дошло
SuMi
я тут тож орал недавно... мне звонит пользователь и говорит дословно - наташа не можыт войти в компьютер
SuMi
я слегка ох%&вший и говорю - ну с её жопой это нормально!!!!
SuMi
грю - пусть худеет
...
Рейтинг: 0 / 0
09.03.2012, 13:54
    #37697100
Wladbvbh
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Диалоговое окно сохранения файла в Excel???
Какой модуль? Я не показывал код.
...
Рейтинг: 0 / 0
09.03.2012, 13:57
    #37697102
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Диалоговое окно сохранения файла в Excel???
WladbvbhКакой модуль? Я не показывал код.Так блин!
...
Рейтинг: 0 / 0
10.03.2012, 02:24
    #37697527
Serge 007
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Диалоговое окно сохранения файла в Excel???
WladbvbhКакой модуль? Я не показывал код.
Wladbvbh
, Вы и дальше тупить будете или помощь всё-же нужна?!
...
Рейтинг: 0 / 0
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Диалоговое окно сохранения файла в Excel??? / 23 сообщений из 23, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]