|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
05.07.2009, 15:39 | #1 |
Форумчанин
Регистрация: 19.06.2009
Сообщений: 163
|
Как создать из excel файл txt? 2
При сохранении макросом текста в test.txt берутся данные из определенной ячейки. По-умолчанию, текст из ячейки записывается так: transkr = "мой текст " & Cells(1,1). На выходе получается: мой текст текстизячейки.
Надо: если в ячейке (1,1) больше одного слова, то по краям вписывался бы знак %. И чтобы на выходе получилось: мой текст %текст из ячейки%. Код:
Последний раз редактировалось ru3000; 05.07.2009 в 16:56. |
05.07.2009, 16:55 | #2 |
Старожил
Регистрация: 02.05.2009
Сообщений: 3,907
|
Код:
Анализ,обработка данных Недорого
|
05.07.2009, 18:45 | #3 |
Форумчанин
Регистрация: 19.06.2009
Сообщений: 163
|
Спасибо за ответ. Только вот функция If Len(Cells(1, 1)) > 1 Then работает только с числами. А с текстом не получается.
Код:
Что здесь надо исправить? Последний раз редактировалось ru3000; 05.07.2009 в 19:09. |
05.07.2009, 19:10 | #4 |
Старожил
Регистрация: 02.05.2009
Сообщений: 3,907
|
Len (функция) - возвращает число символов строки или число байт, необходимых для хранения переменной
она скорей всего с цифрами не работала Код:
Преобразуй вначале значение ячейки в строковую переменную,а потом вычисляй длинну перепроверил,все работает и без преобразования твой макрос запустил поставил только цифры и все нормально работает
Анализ,обработка данных Недорого
Последний раз редактировалось doober; 05.07.2009 в 19:15. |
05.07.2009, 19:31 | #5 |
Форумчанин
Регистрация: 19.06.2009
Сообщений: 163
|
Все равно не получается. С числами все работает прекрасно. А с текстом нет. Если не трудно, исправьте мой код.
Последний раз редактировалось ru3000; 05.07.2009 в 19:34. |
05.07.2009, 19:41 | #6 |
Старожил
Регистрация: 02.05.2009
Сообщений: 3,907
|
дай текст с ячейки для примера,слова и цифры разделяються пробелом или нет
Анализ,обработка данных Недорого
|
05.07.2009, 19:45 | #7 |
Форумчанин
Регистрация: 19.06.2009
Сообщений: 163
|
Во вложении.
Я использую только текстовые ячейки. Если в ячейке 1,1 больше одного слова, тогда и нужны знаки %. А сейчас там только одно слово "проба" и все-равно записывается оно с %, хотя этого не должно быть. Последний раз редактировалось ru3000; 05.07.2009 в 19:51. |
05.07.2009, 19:51 | #8 |
Старожил
Регистрация: 02.05.2009
Сообщений: 3,907
|
Это будет работать ,если слова и цифры разделены пробелом,если другмм знаком ,то в sp = Split(Cells(1, 1), " ", -1) в кавычки поставить знак раздела
Код:
Анализ,обработка данных Недорого
|
05.07.2009, 19:54 | #9 |
Форумчанин
Регистрация: 19.06.2009
Сообщений: 163
|
А теперь как ваш код привязать к моему?
Код:
|
05.07.2009, 20:03 | #10 |
Старожил
Регистрация: 02.05.2009
Сообщений: 3,907
|
Посмотри это то.что необходимо
Анализ,обработка данных Недорого
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Как создать из excel файл txt? | ru3000 | Microsoft Office Excel | 5 | 20.05.2016 10:33 |
как открыть файл.txt | Sergeu | Общие вопросы Delphi | 1 | 25.09.2008 13:24 |
Как создать новый файл Word из макроса Excel? | Dorvir | Microsoft Office Excel | 12 | 08.07.2008 16:50 |
Как создать txt файл | Titan123 | Общие вопросы Delphi | 7 | 29.06.2008 16:56 |
Как прочесть txt файл www.site.ru/info.txt | BR17UY | Работа с сетью в Delphi | 1 | 16.04.2007 13:01 |