ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Экспорт Мемо полей в Excell
5 сообщений из 5, страница 1 из 1
Экспорт Мемо полей в Excell
    #32900975
kms_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kms_
Гость
Доброго времени суток, вам!

Ребяты помогите, пожалуйста. Надо сделать экспорт в Excell инфы из базы данных, одно из полей имеет тип данных Memo, при экспорте с помощью команды:
COPY TO *.xls TYPE XL5
в Excell так и получается поле с содержимым "Memo", что делать?

у меня Vfp 5.0.

Заранее благодарю.
...
Рейтинг: 0 / 0
04.02.2005, 12:01
| Ответить | Цитировать | Написать  
Экспорт Мемо полей в Excell
    #32901097
AleksMed
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AleksMed
Участник
Не мемо поля через COPY TO или EXPORT.
Мемо поля сканированием базы и через OLE в Excel.
...
Рейтинг: 0 / 0
04.02.2005, 12:48
| Ответить | Цитировать | Написать  
Экспорт Мемо полей в Excell
    #32901210
kms_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kms_
Гость
AleksMed, извини, что прошу объяснить, возможно, очень простые вещи, но не мог бы ты поподробнее про "Мемо поля сканированием базы и через OLE в Excel."

Спасибо.
...
Рейтинг: 0 / 0
04.02.2005, 13:24
| Ответить | Цитировать | Написать  
Экспорт Мемо полей в Excell
    #32901282
AleksMed
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AleksMed
Участник
Примерно так

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
local loXls, loWorkbook, loWorksheet

select <TableName>
copy to <FileName.xls> type xl5
loXls = createobject("Excel.Application")
loWorkbook = loXls.Workbooks.Open(<FileName.xls>)
loWorksheet = loWorkbook.Sheets( 1 )
loWorksheet.Cells( 1 , 1 ).Select
go top
scan
   loWorksheet.ActiveCell.Offset(recno(),<NumColForMemo>).Value=chrtran(<MemoField>,chr( 13 ),chr( 10 ))
endscan
...
Рейтинг: 0 / 0
04.02.2005, 13:42
| Ответить | Цитировать | Написать  
Экспорт Мемо полей в Excell
    #32901342
kms_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kms_
Гость
Ясненько, спасибо. Только уже предвижу проблемку с Chr(13) Chr(10), но по этому поводу тема уже обсуждается, так что еще раз спасибо.
...
Рейтинг: 0 / 0
04.02.2005, 13:55
| Ответить | Цитировать | Написать  
5 сообщений из 5, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Экспорт Мемо полей в Excell
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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