Вывести текст из переменной на лист Excel. - Microsoft Office Excel

Djeki · 12.12.2011, 19:45

Уважаемый EducatedFool (Игорь), выложил на Планете Эксель, чудесную книгу с помощью которой можно закачивать данные с интернет страниц. Но там данные выводятся на рабочий стол в формате ТХТ. Вопрос в следующем: как вывести эти данные прямо в книгу WebPageText.xls на второй лист ?? Пробовал вывести с помощью свойства Resize , но не получается. Спасибо за ответ.

Код:

Range("A1:b1").Resize() = txt

IgorGO · 12.12.2011, 20:18

а просто так:
[a1] = txt
или так, если по строкам разбить:

Код:

[a1].Resize(UBound(Split(txt, Chr(13)))).Value = WorksheetFunction.Transpose(Split(txt, Chr(13)))

Djeki · 12.12.2011, 20:47

Спасибо. Сейчас надо бежать. Завтра попробую по строкам разбить..

Djeki · 13.12.2011, 19:33

Спасибо Игорь, всё работает..

IgorGO · 13.12.2011, 21:35

пожалуйста.
мне самому приятно, не так уж и часто угадываю ответы)))

Djeki · 28.12.2011, 21:43

Цитата:

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

пожалуйста.
мне самому приятно, не так уж и часто угадываю ответы)))

А такое можно "угадать"..
Как из этой переменной txt удалить все " (кавычки) и пробелы в начале строки.. Строк немного, до 100 шт.
Спасибо за ответ.

IgorGO · 28.12.2011, 22:01

пробелы в начале (в конце строки) удаляет Trim, заменить чего угодно на чего угодно - Replace.
учите мат.часть

Djeki · 28.12.2011, 22:08

Цитата:

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

пробелы в начале (в конце строки) удаляет Trim, заменить чего угодно на чего угодно - Replace.
учите мат.часть

Это я знаю. Как обратиться к каждой строке переменной txt. Пробовал так - не получается.

Код:

For i = LBound(txt) To UBound(txt)
Debug.Print txt(i, 1)
 Next

MCH · 28.12.2011, 22:11

for each i in txt
debug.print i
next i

Djeki · 28.12.2011, 22:24

Цитата:

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

for each i in txt
debug.print i
next i

Не работает. Ругается что то...

12.12.2011, 20:18	#2
IgorGO Новичок СтарожилДжуниор Регистрация: 05.02.2008 Сообщений: 9,487	а просто так: [a1] = txt или так, если по строкам разбить: Код: `[a1].Resize(UBound(Split(txt, Chr(13)))).Value = WorksheetFunction.Transpose(Split(txt, Chr(13)))` Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете

13.12.2011, 21:35	#5
IgorGO Новичок СтарожилДжуниор Регистрация: 05.02.2008 Сообщений: 9,487	пожалуйста. мне самому приятно, не так уж и часто угадываю ответы))) Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете

28.12.2011, 22:01	#7
IgorGO Новичок СтарожилДжуниор Регистрация: 05.02.2008 Сообщений: 9,487	пробелы в начале (в конце строки) удаляет Trim, заменить чего угодно на чего угодно - Replace. учите мат.часть Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете

Опции темы	Поиск в этой теме
Версия для печати Отправить по электронной почте	Поиск в этой теме: Расширенный поиск

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Как ввести в ячеку текст и значение переменной?	clever77	Microsoft Office Excel	3	21.04.2011 17:23
Взять текст из ячейки и перенести на лист 2а	madex	Microsoft Office Excel	9	11.03.2011 15:26
Как вывести панель (TPanel) из переменной?	grey	Помощь студентам	11	09.11.2009 20:42
Win32 как вывести на экран значение переменной	STill_ace	Общие вопросы C/C++	11	22.08.2009 17:47
Вывести имя переменной	wall66	PHP	11	13.12.2008 10:48

12.12.2011, 20:47	#3
Djeki Форумчанин Регистрация: 24.01.2011 Сообщений: 136	Спасибо. Сейчас надо бежать. Завтра попробую по строкам разбить..

13.12.2011, 19:33	#4
Djeki Форумчанин Регистрация: 24.01.2011 Сообщений: 136	Спасибо Игорь, всё работает..

28.12.2011, 22:11	#9
MCH Форумчанин Регистрация: 21.11.2010 Сообщений: 326	for each i in txt debug.print i next i