Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как поменять имя файла при отрытие..? / 15 сообщений из 15, страница 1 из 1
14.09.2010, 13:39
    #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:43
    #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:45
    #36845412
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как поменять имя файла при отрытие..?
Код: plaintext
W.SaveAs....
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.09.2010, 13:50
    #36845426
Joris
Joris
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как поменять имя файла при отрытие..?
The_Prist, Shocker.Pro

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

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

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

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

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

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

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

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

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

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

Например

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.09.2010, 11:45
    #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
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как поменять имя файла при отрытие..? / 15 сообщений из 15, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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