|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
04.04.2008, 20:25 | #1 |
Регистрация: 02.04.2008
Сообщений: 3
|
Название файла по содержимому ячеек. Хелп!
А1 это №договора
А2 это Получатель Необходимо, чтобы при закрытии книги файл сохранялся как: №договора Получатель.xls Изначально, пустая книга, создается из шаблона. |
05.04.2008, 19:14 | #2 |
Старожил
Регистрация: 12.05.2007
Сообщений: 2,339
|
|
06.04.2008, 08:57 | #4 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
Если существует возможность изменить шаблон, из которого создается книга, то решить задачу можно вставив в модуль "Эта книга" файла шаблона следующий код:
Код:
Чем шире угол зрения, тем он тупее.
|
06.04.2008, 21:55 | #5 |
Старожил
Регистрация: 12.05.2007
Сообщений: 2,339
|
SAS888
А скажи пожалуйста, мона уменьшить разрядность года, поясню Я применил под "себя", вот код: Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim FilePath As String, Filename As String FilePath = "E:\Users\Valeri\Desktop\" 'Подставьте Ваш путь для сохранения файла Filename = "На " & Range("C3") & ".xls" ' Имя файла из ячейки С3 Application.DisplayAlerts = False 'Отключение всех предупреждений ActiveWorkbook.SaveAs Filename:=FilePath & Filename End Sub Итак, в ячейки С3, у меня, показывает так "8 апреля 2008 г." именно так, мне и надо, а в строке формул, так "08.04.2008", сохраняется файл под именем "На 08.04.2008.xls", а хотелось бы так: "На 08.04.08.xls" не меняя в С3 |
06.04.2008, 23:55 | #6 | |
Форумчанин
Регистрация: 06.03.2008
Сообщений: 352
|
Цитата:
& Range("C3") & можно вписать & Format(Range("C3").Value, "dd/mm/yy") & или любой другой требуемый формат. P.S. Sorry, проверять поленился. Надеюсь, заработает |
|
07.04.2008, 00:06 | #7 |
Старожил
Регистрация: 12.05.2007
Сообщений: 2,339
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Cохранение выбранного элемента ComboBox как название файла | kate158 | Помощь студентам | 5 | 01.08.2008 12:02 |
Как вытянуть название файла из линка | jungo | Microsoft Office Excel | 6 | 16.07.2008 14:08 |
название для кода | Romuald | Microsoft Office Excel | 2 | 25.03.2008 09:52 |
Поиск файла по содержимому | Македонский | Общие вопросы Delphi | 7 | 07.09.2007 23:57 |
Помогите извлечь из МР3-файла название песни | DelphiKettle | Помощь студентам | 2 | 31.07.2007 00:01 |