Сохранение с использованием макросов.

программирование программы excel ПО

Создан макрос для сохранения таблицы Excel в определенную папку, при клике по кнопке.

При сохранение необходимо чтобы данные одной из ячейки (например 123) стали именем файла.
Первое сохранение идет нормально, затем изменяю текст ячейки (например на 456) но сохранение идет опять с именем файла 123.

Как сделать чтобы сохранение шло с тем именем, какое водится пользователем в ячейку?


Примечание:
Дату прихода пользователь будет менять.
Но сохраняется он всегда с именем !Приход 09.06.09" хотя в ячейку вводится другая дата
_______________________________________________________________________________________




Sub Макрос3_Сохранить()
'
' Макрос3_Сохранить Макрос
'

'
Range("A4").Select
ActiveCell.FormulaR1C1 = "Приход 09.06.09"
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\Сергей\Мои документы\Приход 09.06.09.xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
Range("A2").Select
End Sub

Примечание:
Большое спасибо попробую завтра устал, не могу. Если вы завтра будете в интернете зайдите пожалуйста на мой вопрос, примерно в 21.00 мос.

Примечание:
Все нормально то что я и хотел, решение задачи тащит за собой другую проблему.

По созданному макросу файлы сохраняются в папке «Мои документы», можно ли в одном макросе создать папку, например «V ГСМ» в котором и будут сохраняться файлы с разными именами. Дело в том, что пака должна создаться один раз, а файлы должны сохранять при каждом клике, как это все в одном макросе сделать?

Примечание:
Как оценить вопрос дороже, я отметил все звезды, или что-то надо еще сделать? Я как то раньше не обращал на это внимание, мне это лично не надо. Если, что то, не правильно по оценки вопроса подскажи.


Насчет точности задания, попробую сформулировать:

Как создать макрос в excel, где при клике по кнопке «Сохранить» будет выполняться условие.
Создать папку (путь, где должна находится данная папка и имя), если папка такая существует то отменить создание, если такой папки нет, то создать. Или можно без условия? Затем в эту папку сохранить файл с именем ячейки, и в последующем сохранять файлы (насчет сохранение, вы говорили вчера, просто все это действие надо объединить)

Не знаю, точно ли изложил.

Примечание:
Папка создается, но файл не сохраняется.

При просмотре в окне кода VBA сторка макроса выделена желтым.

Application.ThisWorkbook.SaveAs FellPathToSave & "Приход " & Left(Now, 10) & ".xlsx".

Примечание:
Ответа не дождался. Если ответите на существующий вопрос завтра, буду очень признателен (что-то сохранение файла не идет).

Если у меня в будущем возникнут вопросы по теме Excel, я в поле вопроса тема ввиду «Вопрос LeoCats» вы ответите?

Опять поставил все звезды, не знаю правильно.
Спасибо удачи Вам.

Примечание:
Завтра задм вопрос на тему «Вопрос LeoCats»
Баллы будут ваши.
Вопрос не законче но необходимо закрыть чтобы выставить вам баллы.
Ответы:
Нажми alt+f11. Откроется окно кода VBA, скопируй его и напиши здесь. Понимаешь, сложно сказать что нужно поменять в коде макроса не видя сам код! Возможно там просто нет такой возможности и её туда нужно добавить, а может быть простая банальная ошибка. Короче пока не покажешь код макроса помочь тебе не смогу. Разве что написать новый макрос, вот его код:
Sub SaveThisBook()
   Dim FolderName As Range
   Set FolderName = ThisWorkbook.Worksheets("Лист1").Range("A1")
   Application.ThisWorkbook.SaveAs FolderName & "\" & ThisWorkbook.Name
End Sub
Как я и говорил, в коде ошибка: "C:\Documents and Settings\Сергей\Мои документы\Приход 09.06.09.xlsx" - всегда будет сохранять в одном и том же месте с одним и тем же именем! Вот пример кода который берёт название книги из ячейки:
А вообще надежнее писать как я изначально предлагал, немного подправив под твои нужды:
Sub SaveThisBook()
  Dim FolderName As Range
  Set FolderName = ThisWorkbook.Worksheets("Лист1").Range("A1")' <---------- Укажи здесь название листа и адрес ячейки из которой нужно брать название
  Application.ThisWorkbook.SaveAs  "C:\Documents and Settings\Сергей\Мои документы\" & "\" & FolderName & ".xslx"
End Sub


15 лет назад

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.