Сохранить файл с именем

[valerij]

Всем привет!!!
Нужна Ваша помощь.
Как сохранить файл с именем взятым из разных ячеек?

При закрытии файла, автоматом сохранять так:
Агротіс_29.07.2017

Из яч I4 и А7 - имя от туда всегда и не важно, если в А-А будут ещё записи.

Спасибо.

[kuklp]

Public Sub www()
    Dim a
    a = Split(Application.Trim(Replace([i4], Chr(34), "")))
    ThisWorkbook.SaveAs ThisWorkbook.Path & "\" & a(UBound(a)) & "_" & [a7] & ".xlsm"
End Sub

[SAS888]

Не знаю, на сколько достаточно такое решение...
А если название организации (ячейка "I4") будет состоять из нескольких слов..? Например, "ТОВ Агрофирма "Рога и копыта".
Всегда ли это название заключено в кавычки?
Для однозначного решения вопроса нужно знать критерий выбора требуемого значения из ячейки "I4".

[valerij]

Сообщение от kuklp

Public Sub www()
    Dim a
    a = Split(Application.Trim(Replace([i4], Chr(34), "")))
    ThisWorkbook.SaveAs ThisWorkbook.Path & "\" & a(UBound(a)) & "_" & [a7] & ".xlsm"
End Sub

kuklp!!
А работает, так может мне не надо снимать объединение?
Спасибо.

Сообщение от SAS888

Не знаю, на сколько достаточно такое решение...
А если название организации (ячейка "I4") будет состоять из нескольких слов..? Например, "ТОВ Агрофирма "Рога и копыта".
Всегда ли это название заключено в кавычки?
Для однозначного решения вопроса нужно знать критерий выбора требуемого значения из ячейки "I4".

Я уже позже сообразил, поэтому, если убрать объединение ячеек и только в яч. I4 будет имя, допустим "ТОВ Агрофирма "Рога и копыта".
Напишем так "ТОВ Агрофирма" а в I4 только Рога и копыта, без кавычек.

[Hugo121]

Для имён файлов есть куча ограничений - это тоже нужно предусмотреть в коде.

[valerij]

Всем спасибо.

Пока всё устраивает!!!