Как создать из excel файл txt? 2

[ru3000]

При сохранении макросом текста в test.txt берутся данные из определенной ячейки. По-умолчанию, текст из ячейки записывается так: transkr = "мой текст " & Cells(1,1). На выходе получается: мой текст текстизячейки.
Надо: если в ячейке (1,1) больше одного слова, то по краям вписывался бы знак %. И чтобы на выходе получилось: мой текст %текст из ячейки%.

Sub Macros()
pute = ThisWorkbook.Path
transkr = "мой текст " & Cells(1, 1)
Open pute & "\test.txt" For Append As #1
Print #1, Format$(transkr)
Close #1
End Sub

[doober]

If Len(Cells(1, 1)) > 1 Then
transkr = "мой текс" & "%" & Cells(1, 1) & "%"

Else

transkr = "мой текст" & Cells(1, 1)

End If

[ru3000]

Спасибо за ответ. Только вот функция If Len(Cells(1, 1)) > 1 Then работает только с числами. А с текстом не получается.

Sub Macros()
pute = ThisWorkbook.Path
If Len(Cells(1, 1)) > 1 Then
transkr = "мой текст " & "%" & Cells(1, 1) & "%"
Else
transkr = "мой текст " & Cells(1, 1)
End If
Open pute & "\test.txt" For Append As #1
Print #1, Format$(transkr)
Close #1
End Sub

А мне надо, чтобы макрос распознавал сколько слов, а не чисел в ячейке.
Что здесь надо исправить?

[doober]

Len (функция) - возвращает число символов строки или число байт, необходимых для хранения переменной
она скорей всего с цифрами не работала

Len (CStr(Cells(1, 1).Value))

Преобразуй вначале значение ячейки в строковую переменную,а потом вычисляй длинну
перепроверил,все работает и без преобразования

твой макрос запустил поставил только цифры и все нормально работает

[ru3000]

Все равно не получается. С числами все работает прекрасно. А с текстом нет. Если не трудно, исправьте мой код.

[doober]

дай текст с ячейки для примера,слова и цифры разделяються пробелом или нет

[ru3000]

Во вложении.
Я использую только текстовые ячейки. Если в ячейке 1,1 больше одного слова, тогда и нужны знаки %. А сейчас там только одно слово "проба" и все-равно записывается оно с %, хотя этого не должно быть.

[doober]

Это будет работать ,если слова и цифры разделены пробелом,если другмм знаком ,то в sp = Split(Cells(1, 1), " ", -1) в кавычки поставить знак раздела

Dim n, счетслов As Integer

Dim sp

Dim slovo As String

sp = Split(Cells(1, 1), " ", -1)

For n = 0 To UBound(sp)
If IsNumeric(sp(n)) = False Then

If (sp(n)) <> "" Then счетслов = счетслов + 1



End If
Next

[ru3000]

А теперь как ваш код привязать к моему?

Sub Macros()
pute = ThisWorkbook.Path
If Len(Cells(1, 1)) > 1 Then
transkr = "мой текст " & "%" & Cells(1, 1) & "%"
Else
transkr = "мой текст " & Cells(1, 1)
End If
Open pute & "\test.txt" For Append As #1
Print #1, Format$(transkr)
Close #1
End Sub

[doober]

Посмотри это то.что необходимо