Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Передать значение ячейки в название документа при сохранении - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Передать значение ячейки в название документа при сохранении (Макросы/Sub)
Передать значение ячейки в название документа при сохранении
ant6729 Дата: Пятница, 28.04.2017, 02:01 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 244
Репутация: 0 ±
Замечаний: 60% ±

Excel 2010
Доброго времени суток
Возможно ли передать значение ячейки A1 в название документа при сохранении?

Скажем, Range("A1") = "Вася"

Как сделать, чтобы при Save As документ сохранился Вася.xlsx

Логика где-то такая...
[vba]
Код

Sub rrr()
    Range("A1").Select
    Selection.Copy
    ChDir "C:\Users\Desktop"
    ActiveWorkbook.SaveAs Filename:="C:\Users\Desktop\Cells(1,1).xlsx", _
        FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
End Sub
[/vba]

Но как передать значение ячейки в название, я не знаю. Подскажите, пожалуйста.
 
Ответить
СообщениеДоброго времени суток
Возможно ли передать значение ячейки A1 в название документа при сохранении?

Скажем, Range("A1") = "Вася"

Как сделать, чтобы при Save As документ сохранился Вася.xlsx

Логика где-то такая...
[vba]
Код

Sub rrr()
    Range("A1").Select
    Selection.Copy
    ChDir "C:\Users\Desktop"
    ActiveWorkbook.SaveAs Filename:="C:\Users\Desktop\Cells(1,1).xlsx", _
        FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
End Sub
[/vba]

Но как передать значение ячейки в название, я не знаю. Подскажите, пожалуйста.

Автор - ant6729
Дата добавления - 28.04.2017 в 02:01
Michael_S Дата: Пятница, 28.04.2017, 02:03 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 1772
Репутация: 337 ±
Замечаний: 0% ±

Excel2016
[vba]
Код
Sub rrr()
    Range("A1").Select
    Selection.Copy
    ChDir "C:\Users\Desktop"
    ActiveWorkbook.SaveAs Filename:="C:\Users\Desktop\" & Cells(1,1).value & ".xlsx", _
        FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
End Sub
[/vba]


ЯД: 41001136675053
WM: R389613894253


Сообщение отредактировал Michael_S - Пятница, 28.04.2017, 02:04
 
Ответить
Сообщение[vba]
Код
Sub rrr()
    Range("A1").Select
    Selection.Copy
    ChDir "C:\Users\Desktop"
    ActiveWorkbook.SaveAs Filename:="C:\Users\Desktop\" & Cells(1,1).value & ".xlsx", _
        FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
End Sub
[/vba]

Автор - Michael_S
Дата добавления - 28.04.2017 в 02:03
ant6729 Дата: Пятница, 28.04.2017, 02:26 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 244
Репутация: 0 ±
Замечаний: 60% ±

Excel 2010
Спасибо, Michael_S
 
Ответить
СообщениеСпасибо, Michael_S

Автор - ant6729
Дата добавления - 28.04.2017 в 02:26
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Передать значение ячейки в название документа при сохранении (Макросы/Sub)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2017 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!