:: Архив конференции по VFP до 2005 года
Помогите пожалуйста ???
Lipton
Автор


как узнать начало и конец таблицы в Екселе.....

т.е. каждый месяц данные подаются в файле ексель, он содержит как заголовки так и текст,
имеется табличка с кучей данных, вот мне нужно из этой таблички с определенных столбцов закачать итнформацию в таблицу фокспро, а как узначть начала и конец таблицы не приложу ума ??
Ratings: 0 negative/0 positive
Re: Помогите пожалуйста ???
AnatolyS

Сообщений: 4565
Откуда: Санкт-Петербург
Дата регистрации: 21.01.2002
Имеет смысл сначало выполнить импорт в dbf, а уже после заниматься анализом, поскольку в dbf попадут только полезные данные и соответственно проблема определения конца файла отпадет сама собой.
Ratings: 0 negative/0 positive
Re: Помогите пожалуйста ???
AleksM

Сообщений: 17881
Дата регистрации: 11.11.2003
А ты пристегни табличку для примера и напиши что бы ты из нё хотел получить.
Если не военная тайна, конечно. И однородные у тебя таблички или у каждой своя структура.




------------------
Лучше переесть, чем недоспать.
Не спеши, а то успеешь.
Ratings: 0 negative/0 positive
Re: Помогите пожалуйста ???
Lipton
Автор


мне нужно из этого файлика создать таблицу фокспро, причем нужны только 4, 7, 8 столбцы,

4 столбец тип поля integer , 7 и 8 тип поля numeric(11,2)
Ratings: 0 negative/0 positive
Re: Помогите пожалуйста ???
Lipton
Автор
да и вот еще что за штука



нарыл код, только почему то в этой строке
import from (m.lcTempFileName) TYPE xl5, он ругается на то что формат инвалид


почему .... ?

if SafetyImportFromExcel("c:\test1.xls", "test1")
select test1
browse
endif

function SafetyImportFromExcel

lparameters tcFileName, tcResultCursor

private all

*ñîçäàåì îáúåêò
loExcel = CreateObject("Excel.Application")

if not type('m.loExcel') = 'O' or isnull(m.loExcel)
=MessageBox('Íåâîçìîæíî ñîçäàòü îáúåêò Excel.Application!' + chr(13) + chr(10) + ;
'Ïðîâåðüòå ïðàâèëüíîñòü óñòàíîâêè MS Office.', 16, 'Îøèáêà èìïîðòà')
return .f.
endif

*îòêðûâàåì êíèãó
loWorkBook = loExcel.WorkBooks.Open(m.tcFileName)

if not type('m.loWorkBook') = 'O' or isnull(m.loWorkBook)
=MessageBox('Íåâîçìîæíî ñîçäàòü ðàáî÷óþ êíèãó!', 16, 'Îøèáêà èìïîðòà')
return .f.
endif

*ôîðìèðóåì èìÿ âðåìåííîãî ôàéëà
lcTempFileName = sys(2023) + '\t' + sys(2015) + ".xls"

*ñîõðàíÿåì êíèãó â ôîðìàòå xlExcel5 = 39
loWorkBook.SaveAs(m.lcTempFileName, 39, "", "", .f., .f.)

*çàêðûâàåì ðàáî÷óþ êíèãó
loWorkBook.Close()

*âûõîäèì èç ïðèëîæåíèÿ
loExcel.Quit()

*îñóùåñòâëÿåì èìïîðò
select 0
lnAlias = select(0)
** import from (m.lcTempFileName) type xl
import from (m.lcTempFileName) TYPE xl5

*ñòèðàåì âðåìåííûe ôàéëû
* erase (m.lcTempFileName)
* erase (m.tcFileName)

*ïåðåîòêðûâàåì ïîä çàäàííûì àëèàñîì
use (dbf()) in 0 again alias &tcResultCursor.
use in m.lnAlias

endfunc
Ratings: 0 negative/0 positive
Re: Помогите пожалуйста ???
AleksM

Сообщений: 17881
Дата регистрации: 11.11.2003
Нужен файл test1.xls сохраненный в формате пятого Excelя.
Под шапку всегда отводится 10 строк или как бог на душу положит.




------------------
Лучше переесть, чем недоспать.
Не спеши, а то успеешь.
Ratings: 0 negative/0 positive
Re: Помогите пожалуйста ???
Lipton
Автор


to AleksM


вот новый файл в формате xls5 ,

да как бог на душу полжит, т.е. под шапку может быть и 20 и 10 и 5 , короче поразному..
Ratings: 0 negative/0 positive
Re: Помогите пожалуйста ???
AleksM

Сообщений: 17881
Дата регистрации: 11.11.2003
Продолжаем разговор (С) Карлсон

Хорошо, т.е. не очень, что у вас такой раздрай в обмене информацией.
Ну я думаю что никто не нумерует строки первого столбца отведенные под шапку? Или встечаются такие?




------------------
Лучше переесть, чем недоспать.
Не спеши, а то успеешь.
Ratings: 0 negative/0 positive
Re: Помогите пожалуйста ???
Lipton
Автор



встречаются и такие блин
Ratings: 0 negative/0 positive
Re: Помогите пожалуйста ???
Дмитрий Петров

Сообщений: 3066
Откуда: Пермь
Дата регистрации: 09.07.2001
А наверно все равно придется мух отделять от котлет.
Если нет возможности использовать однообразный шаблон
то хотябы договориться о том что строка начала блока данных
будет как то обозначена( залита другим цветом , содержала какой спец символ и.т.п.)

А вобще меряя на себя-я бы сделал и раздал крохотную прожку, в которой это заполнялось
и формировался Им- Ёксель, вам-Dbf
Ratings: 0 negative/0 positive


Эта тема закрыта.

On-line: 10 (Гостей: 10)

© 2000-2024 Fox Club 
Яндекс.Метрика