ReSQL.ru
     
powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Экспорт поля в формате RTF в ячейку Excel
24 сообщений из 24, страница 1 из 1
Экспорт поля в формате RTF в ячейку Excel
    #39151283
Новичок2012
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Новичок2012
Гость
Добрый день!

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

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

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

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

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


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