Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Экспорт поля в формате RTF в ячейку Excel / 24 сообщений из 24, страница 1 из 1
20.01.2016, 11:54
    #39151283
Новичок2012
Новичок2012
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Экспорт поля в формате RTF в ячейку Excel
Добрый день!

Не получается организовать выгрузку данных из поля таблицы Access в Excel.

Я создала таблицу, в ней поле, формат MEMO, в свойствах поля указала формат текста RTF

Мне необходимо выгрузить это поле на лист Excel. Написала код :
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Function ExportTableToExcel()
Dim sSql As String
Dim rstA As Recordset
Dim i As String
i = 1
sSql = "SELECT FieldRTF FROM Table1"
Set rstA = CurrentDb.OpenRecordset(sSql)
Set oXL = CreateObject("Excel.Application")
oXL.Workbooks.Add
Do Until rstA.EOF = True
    oXL.Cells(i, 1) = rstA.Fields(0).Value
    rstA.MoveNext
    i = i + 1
Loop
oXL.Visible = True
End Function



Но на листе я получаю текст с HTML тегами

Думала может можно как то через PastSpecial, но в свойствах этого метода нигде не указать формат данных(

Помогите, пжл, если знаете как )
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.01.2016, 11:55
    #39151284
Новичок2012
Новичок2012
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Экспорт поля в формате RTF в ячейку Excel
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.01.2016, 13:54
    #39151434
An12
An12
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Экспорт поля в формате RTF в ячейку Excel
через костыль - через Word
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.01.2016, 16:26
    #39151623
Новичок2012
Новичок2012
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Экспорт поля в формате RTF в ячейку Excel
An12,

Попробовала сначала вставить в Word, но результат тот же - текст с HTML тегами

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Function ExportTableToExcel()
Dim sSql As String
Dim rstA As Recordset
Dim i As String
i = 1
sSql = "SELECT FieldRTF FROM Table1"
Set rstA = CurrentDb.OpenRecordset(sSql)
Set oW = CreateObject("Word.Application")
oW.Documents.Add
Selection.TypeText (rstA.Fields(0).Value)
oW.Visible = True

End Function



Может есть какой то другой метод, не TypeText ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.01.2016, 16:35
    #39151636
Akina
Akina
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Экспорт поля в формате RTF в ячейку Excel
Попробуйте .Paste при установленном RTFInClipboard.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.01.2016, 13:54
    #39153014
An12
An12
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Экспорт поля в формате RTF в ячейку Excel
тут
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.01.2016, 14:24
    #39153056
An12
An12
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Экспорт поля в формате RTF в ячейку Excel
еще
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
24.04.2018, 18:07
    #39635582
Serg197311
Serg197311
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Экспорт поля в формате RTF в ячейку Excel
Access 2013
Есть таблица с полем длинный текст формата rtf, есть поле на форме с тем же форматом. Все работает и отображается правильно.
Нужно это поле вставить в ячейку Excel. Прямые попытки дают тот же результат что описано выше. функцию из "тут" пробовал - но она почему то у меня грузит в буфер не .rtf , а текст с тегами.... Соответственно и вставляет так же...
Пример из "здесь" не понял как использовать..... как установить RTFlnClipboard не знаю..... Помогите, кто сможет.... опыта у меня немного .....
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.04.2018, 18:26
    #39635610
Serg197311
Serg197311
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Экспорт поля в формате RTF в ячейку Excel
вставить надо поле из таблицы, а не с формы....
Через рекордсет и Dlookup пробовал....
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.04.2018, 20:15
    #39635656
ПЕНСИОНЕРКА
ПЕНСИОНЕРКА
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Экспорт поля в формате RTF в ячейку Excel
Serg197311,

я через НТМ делаю(с небольшой руганью)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.04.2018, 20:16
    #39635657
ПЕНСИОНЕРКА
ПЕНСИОНЕРКА
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Экспорт поля в формате RTF в ячейку Excel
Serg197311,

база макетного решения
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.04.2018, 08:45
    #39635798
Serg197311
Serg197311
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Экспорт поля в формате RTF в ячейку Excel
Спасибо, но не то....
Надо не вывести в Excel всю таблицу,а вставить значение из поля табл Access в яч Excell
Получилось пока через задницу - создаем на форме доп поле формата rtf, передаем туда значение из табл Access, устанавливаем на это поле фокус и через свойство Seltext поля формы передаем значение в FormulaR1C1 ячейки Excell....
Может кто еще что подскажет?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.04.2018, 08:51
    #39635801
MrShin
MrShin
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Экспорт поля в формате RTF в ячейку Excel
Можно просто тэги поудалять из текстовой строки
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.05.2018, 19:37
    #39639073
Игортан
Игортан
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Экспорт поля в формате RTF в ячейку Excel
MrShin,

Да, идея класс.

Для выделения текста я использовал библиотеку Microsoft HTML obgect librery.
На выходе получал чистый текст.
Правда с форматированием были проблемы на разной локализации.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.05.2018, 15:28
    #39640135
Serg197311
Serg197311
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Экспорт поля в формате RTF в ячейку Excel
Засада.... длина Seltext не более 128 символов....
То есть Sellength может быть любой,а Seltext не более 128
Можно ли с этим что нибудь сделать?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.05.2018, 15:55
    #39640156
alecko
alecko
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Экспорт поля в формате RTF в ячейку Excel
Serg197311, почему не создать в таблице второй столбец с обычным текстом? и передавать его в эксель.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.05.2018, 17:55
    #39640706
Serg197311
Serg197311
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Экспорт поля в формате RTF в ячейку Excel
Да ни почему.... адын секунд....
А поможет? попробовать только послезавтра смогу....
еще раз процесс и цель опишу
идеал - выделяют текст в Ворде и вставляют в форму, сохраняют, и потом выводят в ячейку Эксель в том же виде.
Не экспортируют таблицу, а именно текст в ячейку. Минимум - чтоб хоть переводы строки сохранялись.....
Пока - выделяется, сохраняется, редактируется....но в Эксель лезть никак не хочет....кстати пробовал и в Ворд - тоже не хочет нормально....теги от rtf как символы выходят.....
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.05.2018, 19:23
    #39640743
sdku
sdku
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Экспорт поля в формате RTF в ячейку Excel
Старый,добрый TransferSpreadsheet успешно выполняет Вашу задачу.
Акс поле МЕМО формат текста rtf~350 символов(сколько у Вас-может лучше хранить данные в файле Ворд а в таблице ссылку)>Ёксель ячейки столбца формат общий)
Стесняюсь спросить-а зачем формат rtf?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.05.2018, 19:30
    #39640747
sdku
sdku
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Экспорт поля в формате RTF в ячейку Excel
Serg197311Спасибо, но не то....
Надо не вывести в Excel всю таблицу,а вставить значение из поля табл Access в яч Excell
....Из HELP: "Допускается также указание имени запроса на выборку Microsoft Access, результаты которого экспортируются в электронную таблицу."
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.05.2018, 09:00
    #39641201
Serg197311
Serg197311
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Экспорт поля в формате RTF в ячейку Excel
Можно ли как нибудь заставить TransferSpreadsheet возвращать значение поля без его имени?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.05.2018, 10:55
    #39641265
MrShin
MrShin
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Экспорт поля в формате RTF в ячейку Excel
Serg197311Можно ли как нибудь заставить TransferSpreadsheet возвращать значение поля без его имени?
В смысле при импорте не пытаться считать первую строку заголовками? 5-й параметр за это отвечает. По умолчанию (False) первая строка считается нормальными данными и имя колонки назначается автоматически.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.05.2018, 11:03
    #39641268
Serg197311
Serg197311
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Экспорт поля в формате RTF в ячейку Excel
спс......
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.05.2018, 17:51
    #39641625
Serg197311
Serg197311
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Экспорт поля в формате RTF в ячейку Excel
Значит так.... чето вроде получилось...
Это был документ, который имеет верхнюю и нижнюю шапку и должен был потом печататься -
так что перед тем как вставить данные - надо было проверить, влезут ли они в область печати и перенести на след стр если нет,
так что нужно было еще подсчитать количество строк перед вставкой....
- сделал отдельную таблицу, куда по необходимости вношу значение одной ячейки другой таблицы и потом сразу же удаляю
- написал процедуру,которая открывает второй файл Эксель, вставляет туда через TransferSpreadsheet ячейку таблицы, потом копирует ее в стринг обратно в Акс)))
- при помощи Wizhook вычисляю кол-во строк для полученного стринга, и после проверки на помещаемость() этот же стринг присваиваю нужной ячейке Эксель....
Оспади..... гланды.... через ж*** автогеном...... где то здесь наверное и есть прелесть, по словам Алисы.......
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.05.2018, 20:25
    #39641674
sdku
sdku
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Экспорт поля в формате RTF в ячейку Excel
Serg197311,
Верхняя шапка в заголовке отчета, нижняя в примечании а все остальное Акс сделает без Вашего участия и лишних телодвижений
(гланды через зад удалять не придется)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Экспорт поля в формате RTF в ячейку Excel / 24 сообщений из 24, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 152ms
Закрыть
start [/forum/topic.php?fid=45&mobile=1&tid=1611458]:
 0ms
get settings:
 8ms
get forum list:
 12ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 37ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 59ms
get tp. blocked users:
 2ms
others: 14ms
total:  152ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]