Передать значение ячейки в название документа при сохранении

Вход

Регистрация

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

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

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Передать значение ячейки в название документа при сохранении (Макросы/Sub)

Передать значение ячейки в название документа при сохранении

ant6729

Дата: Пятница, 28.04.2017, 02:01 | Сообщение № 1

Группа: Проверенные

Ранг: Ветеран

Сообщений: 533

Репутация: 2 ±

Замечаний: 40% ±

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]

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

Ответить

Michael_S

Дата: Пятница, 28.04.2017, 02:03 | Сообщение № 2

Группа: Друзья

Ранг: Старожил

Сообщений: 2012

Репутация: 373 ±

Замечаний: 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]

Сообщение отредактировал Michael_S - Пятница, 28.04.2017, 02:04

Ответить

ant6729

Дата: Пятница, 28.04.2017, 02:26 | Сообщение № 3

Группа: Проверенные

Ранг: Ветеран

Сообщений: 533

Репутация: 2 ±

Замечаний: 40% ±

Excel 2010

Спасибо, Michael_S

Ответить

Страница 1 из 1
1