Сохранить с нужным именем

[maikoms]

Господа подскажите решение на такой вопрос,
нужно в таблице Excel из указанной ячейки взять нужное слово и сохранить файл имменно под этим именем(нужным словом) как это можно сделать? с помошью какой процедуры можно сохранить файл с нужным именем?

[Юнлинг]

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

Господа подскажите решение на такой вопрос,
нужно в таблице Excel из указанной ячейки взять нужное слово и сохранить файл имменно под этим именем(нужным словом) как это можно сделать? с помошью какой процедуры можно сохранить файл с нужным именем?

Можно воспользоваться макросом. Нужное слово в ячейке A1

SUB _ЗаписьТаблицы()
Dim sh1 As Worksheet
dim x as string
Set sh1 = ThisWorkbook.Worksheets(1)
x=sh1.Range("A1") ' путь+имя
   ActiveWorkbook.SaveAs Filename:= _
        х & ".xls" _
        , FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
end sub

Учти слово не должно быть длинее 127 байт

[SAS888]

Код от Юнлинг сохранит файл с именем "x.xls" не зависимо от содержимого в указанной ячейке. Правильно так:

Sub ЗаписьТаблицы()
    Dim myPath As String, myName As String
    myName = Sheets(1).[A1] 'Имя файла для сохранения
    myPath = "C:\Temp" 'Путь для сохранения
    ActiveWorkbook.SaveAs Filename:=myPath & "\" & myName & ".xls"
End Sub

[Юнлинг]

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

Код от Юнлинг сохранит файл с именем "x.xls" не зависимо от содержимого в указанной ячейке. Правильно так:

Sub ЗаписьТаблицы()
    Dim myPath As String, myName As String
    myName = Sheets(1).[A1] 'Имя файла для сохранения
    myPath = "C:\Temp" 'Путь для сохранения
    ActiveWorkbook.SaveAs Filename:=myPath & "\" & myName & ".xls"
End Sub

SAS888. Извени спешил, нужно было уходит домой!
Сейчас подправил будет работать.

[maikoms]

Спасибо огромное