ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как поменять имя файла при отрытие..?
15 сообщений из 15, страница 1 из 1
Как поменять имя файла при отрытие..?
    #36845398
Joris
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Joris
Участник
Привет Всем!!!
Вопрос кажется простой но не как не могу найти решения. Открою шаблона с помощью программа вот кусочек кода VB:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
On Error GoTo err
Dim W As Excel.Workbook
Dim s As Excel.Worksheet
Dim xlsApp As Excel.Application
Dim iCol As Integer
Dim iRow As Integer
Dim Sum As Double
Dim StrLine As Integer

    Set xlsApp = New Excel.Application
    xlsApp.Visible = True
    'xlsApp.Activate
    
Set W = xlsApp.Workbooks.Add(App.Path & "\Temp\Tamplates.xls")
Set s = W.Application.Sheets("Ведемость")

Проблема в том, что имя файли по умолчанию стоит Microsoft Excel – Tamplates1.xls, как сделать что бы при откритые файла поменялочь имя например: Ведемость-ДДММГГ.xls
Так тоже непогло:
Код: plaintext
Set W = xlsApp.Workbooks.Add(App.Path & "\Temp\Tamplates.tms", Name:="SSS")

Заранее блогадарен!!!
...
Рейтинг: 0 / 0
14.09.2010, 13:39
| Ответить | Цитировать | Написать  
Как поменять имя файла при отрытие..?
    #36845407
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
The_Prist
Участник
Я вообще плохо понял....
Вы же ДОБАВЛЯЕТЕ файл! Как он может быть с другим именем, если он еще не сохранен? Открываете, Сохранить как и т.д.
Код: plaintext
1.
2.
Set W = xlsApp.Workbooks.Add(App.Path & "\Temp\Tamplates.xls")
W.SaveAs App.Path & "\Temp\Ведемость-" & Format(Date, "DDMMYY") & ".xls",xlExcel8
Set s = W.Sheets("Ведемость")
...
Рейтинг: 0 / 0
14.09.2010, 13:43
| Ответить | Цитировать | Написать  
Как поменять имя файла при отрытие..?
    #36845412
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Код: plaintext
W.SaveAs....
...
Рейтинг: 0 / 0
14.09.2010, 13:45
| Ответить | Цитировать | Написать  
Как поменять имя файла при отрытие..?
    #36845426
Joris
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Joris
Участник
The_Prist, Shocker.Pro

При сохранение у меня нет проблема, только открыт шаблона с другим именам, чтобы при ручной сохранение не поменяли имя файла. “Temp” в этой папке у меня шаблоны хранятся.
...
Рейтинг: 0 / 0
14.09.2010, 13:50
| Ответить | Цитировать | Написать  
Как поменять имя файла при отрытие..?
    #36845441
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
От того, что пользователь может поменять имя файла, вы не защититесь.
...
Рейтинг: 0 / 0
14.09.2010, 13:54
| Ответить | Цитировать | Написать  
Как поменять имя файла при отрытие..?
    #36845448
Joris
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Joris
Участник
Да и защищаться не надо, просто при сохранение они часто ошибаются, имя файла должен быть корректно буквы и дата с определенным форматом вот для чего стараемся…
...
Рейтинг: 0 / 0
14.09.2010, 13:58
| Ответить | Цитировать | Написать  
Как поменять имя файла при отрытие..?
    #36845453
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
JorisДа и защищаться не надо, просто при сохранение они часто ошибаются, имя файла должен быть корректно буквы и дата с определенным форматом вот для чего стараемся…

Тогда чем вам не нравится .SaveAs ?
...
Рейтинг: 0 / 0
14.09.2010, 14:01
| Ответить | Цитировать | Написать  
Как поменять имя файла при отрытие..?
    #36845464
Joris
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Joris
Участник
Shocker.Pro,

SaveAs потому что пользователь должен сам сохранит файла где ему удобно или где есть свободные место
...
Рейтинг: 0 / 0
14.09.2010, 14:08
| Ответить | Цитировать | Написать  
Как поменять имя файла при отрытие..?
    #36845474
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
JorisShocker.Pro,

SaveAs потому что пользователь должен сам сохранит файла где ему удобно или где есть свободные место

Ну спросите пользователя сразу при создании, куда он хочет это сохранить
...
Рейтинг: 0 / 0
14.09.2010, 14:10
| Ответить | Цитировать | Написать  
Как поменять имя файла при отрытие..?
    #36845480
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: Joris
> SaveAs потому что пользователь должен сам сохранит файла где ему удобно или где есть свободные место

Тогда переименовывать шаблон в нужное имя, и открывать шаблон с нужным именем. а пользователь уже пусть сохраняет куда и
как ему хочется

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
14.09.2010, 14:12
| Ответить | Цитировать | Написать  
Как поменять имя файла при отрытие..?
    #36845502
Joris
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Joris
Участник
Игорь Горбонос,
Нет, так не подходить, если бы подходил такой вариант я бы не опубликовал вопрос в форуме. Все пользователи использует единый шаблон но сохраняют каждый по свой, т.е. для каждого есть определенный код и этот код должен отображаться в имя файла…
...
Рейтинг: 0 / 0
14.09.2010, 14:19
| Ответить | Цитировать | Написать  
Как поменять имя файла при отрытие..?
    #36845513
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: Joris
> Нет, так не подходить

Других вариантов нет. Обсуждалось неоднократно.
Для получения новой книги с нужным именем есть всего два варианта:
Или ты создаешь книгу на основе другой(пусть и пустой), но с нужным именем
Код: plaintext
Set W = xlsApp.Workbooks.Add(App.Path & "\Temp\Нужное имя книги.xls")
Или делаешь SaveAs

З.Ы. По моему пора этот вопрос заносить в ФАК

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
14.09.2010, 14:24
| Ответить | Цитировать | Написать  
Как поменять имя файла при отрытие..?
    #36845564
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
JorisВсе пользователи использует единый шаблон но сохраняют каждый по свой, т.е. для каждого есть определенный код и этот код должен отображаться в имя файла…

Ну и что? Копируем этот шаблон с нужным именем, делаем новый файл, удаляем шаблон.
В ворде такое не прокатит, а вот в экселе - надо попробовать.

Игорь ГорбоносОбсуждалось неоднократно..... По моему пора этот вопрос заносить в ФАК

Сколько я уж тут живу, пока ни разу не попадался... :-?
...
Рейтинг: 0 / 0
14.09.2010, 14:39
| Ответить | Цитировать | Написать  
Как поменять имя файла при отрытие..?
    #36845650
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: Shocker.Pro
> Сколько я уж тут живу, пока ни разу не попадался... :-?

Например

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
14.09.2010, 15:08
| Ответить | Цитировать | Написать  
Как поменять имя файла при отрытие..?
    #36855021
Cursky
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Cursky
Участник
Лучше, всё-таки, создать кнопку в виде стандартного значка дискеты на панели инструментов
и назначить ей вот такой макрос. Появится диалог сохранения файла SaveAs с заранее установленным именем,
а пользователь может сохранить файл где ему удобно.

Код: plaintext
1.
2.
3.
4.
Sub SaveAs()
    Dim strNewName As String
    strNewName = "Ведомость-" & Format(Date, "DDMMYY") & ".xls"
    Application.Dialogs(xlDialogSaveAs).Show strNewName
End Sub
...
Рейтинг: 0 / 0
20.09.2010, 11:45
| Ответить | Цитировать | Написать  
15 сообщений из 15, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как поменять имя файла при отрытие..?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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