сохранение файлов excel по ячейке

[Teslenko_EA]

Здравствуйте Keaf.
подобная корректировка кода заменяет кавычки (") апострофами (') - допустимыми в именах файлов:

Sub TTT()
Dim o As Object, s$
For Each o In Range("d6:i6")
    s = o.Text:
    s = Replace(s, Chr(34), Chr(39))
    Сохранить o.Text
Next
End Sub

Евгений.
P.S. для удобочитаемости заключайте вводимый код в тэги [соde]... ...[/соde]
символ # на панели инструментов окна ввода сообщений Вам в помощь.

[Keaf]

Почему то весь скрипт пытается сохранить до бесконечности, постоянно просит заменить файл пока не нажмешь "отмена". Диапазон ячеек так и не задействован в сохранении ((

Sub Сохранить(s$)
On Error Resume Next
Dim FName As String, o As Worksheet
Const FPath = "C:\ТТН\"
If Len(Dir(FPath, vbDirectory)) = 0 Then 'каталог не существует
    СоздастьКаталог '
End If
Set o = Sheets("ТТН") 'обращение у листу
If Not o Is Nothing Then 'лист существует
    FName = o.Range("c5") & " - " + s + ".xls"
    ThisWorkbook.SaveAs Filename:=FPath & FName
End If
End Sub

Sub TTT()
Dim o As Object, s$
For Each o In Range("d6:i6")
    s = o.Text:
    s = Replace(s, Chr(34), Chr(39))
    Сохранить o.Text
Next
End Sub

Sub СоздастьКаталог()
MkDir "C:\ТТН"
End Sub

[Keaf]

может местами их поменять? хотя уже и это пробовал ((

[Teslenko_EA]

Здравствуйте Keaf.
думаю стоит не угадывая варианты "может местами их поменять?...", сделать пошаговое выполнение процедуры "ТТТ" (F8), это поможет "отловить" место с которого у Вас программа впадает в "ступор" (рециклирует).
рекомендую также перенести строки

Const FPath = "C:\ТТН\"
If Len(Dir(FPath, vbDirectory)) = 0 Then 'каталог не существует
    СоздастьКаталог '
End If

в начало процедуры "ТТТ", это будет логичнее.
Евгений.