Помогите пожалуйста ??? | |
---|---|
Lipton Автор |
как узнать начало и конец таблицы в Екселе..... т.е. каждый месяц данные подаются в файле ексель, он содержит как заголовки так и текст, имеется табличка с кучей данных, вот мне нужно из этой таблички с определенных столбцов закачать итнформацию в таблицу фокспро, а как узначть начала и конец таблицы не приложу ума ?? |
Re: Помогите пожалуйста ??? | |
---|---|
AnatolyS Сообщений: 4565 Откуда: Санкт-Петербург Дата регистрации: 21.01.2002 |
Имеет смысл сначало выполнить импорт в dbf, а уже после заниматься анализом, поскольку в dbf попадут только полезные данные и соответственно проблема определения конца файла отпадет сама собой.
|
Re: Помогите пожалуйста ??? | |
---|---|
AleksM Сообщений: 17881 Дата регистрации: 11.11.2003 |
А ты пристегни табличку для примера и напиши что бы ты из нё хотел получить.
Если не военная тайна, конечно. И однородные у тебя таблички или у каждой своя структура. ------------------ Лучше переесть, чем недоспать. Не спеши, а то успеешь. |
Re: Помогите пожалуйста ??? | |
---|---|
Lipton Автор |
мне нужно из этого файлика создать таблицу фокспро, причем нужны только 4, 7, 8 столбцы, 4 столбец тип поля integer , 7 и 8 тип поля numeric(11,2) |
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 |
Re: Помогите пожалуйста ??? | |
---|---|
AleksM Сообщений: 17881 Дата регистрации: 11.11.2003 |
Нужен файл test1.xls сохраненный в формате пятого Excelя.
Под шапку всегда отводится 10 строк или как бог на душу положит. ------------------ Лучше переесть, чем недоспать. Не спеши, а то успеешь. |
Re: Помогите пожалуйста ??? | |
---|---|
Lipton Автор |
to AleksM вот новый файл в формате xls5 , да как бог на душу полжит, т.е. под шапку может быть и 20 и 10 и 5 , короче поразному.. |
Re: Помогите пожалуйста ??? | |
---|---|
AleksM Сообщений: 17881 Дата регистрации: 11.11.2003 |
Продолжаем разговор (С) Карлсон
Хорошо, т.е. не очень, что у вас такой раздрай в обмене информацией. Ну я думаю что никто не нумерует строки первого столбца отведенные под шапку? Или встечаются такие? ------------------ Лучше переесть, чем недоспать. Не спеши, а то успеешь. |
Re: Помогите пожалуйста ??? | |
---|---|
Lipton Автор |
встречаются и такие блин |
Re: Помогите пожалуйста ??? | |
---|---|
Дмитрий Петров Сообщений: 3071 Откуда: Пермь Дата регистрации: 09.07.2001 |
А наверно все равно придется мух отделять от котлет.
Если нет возможности использовать однообразный шаблон то хотябы договориться о том что строка начала блока данных будет как то обозначена( залита другим цветом , содержала какой спец символ и.т.п.) А вобще меряя на себя-я бы сделал и раздал крохотную прожку, в которой это заполнялось и формировался Им- Ёксель, вам-Dbf |
© 2000-2024 Fox Club  |