Отправлено: 04.07.09 20:49. Заголовок: OLE: Сделать DBF из XLS

Возникла такая вот необходимость... есть у кого рабочий вариант? Нужно ведь проверять все колонки на содержание в первой строке беспробельного латинского наименования, и чтобы ни одно наименование не повторялось, приводить ширину колонки к целочисленной, и наверное кучу ещё тонкостей...
И ещё интересно: в Excel 2007 через OLE сохранение в виде DBF-файла сработает, или она там обрублено напрочь - в меню сохранения файла ведь DBF-варианта уже нет...

 Отправлено: 04.07.09 22:00. Заголовок: А в чем собственно п..

А в чем собственно проблема, отрыть файл XLS через OLE, почитать его в цикле и зписать в DBF ?

 Отправлено: 05.07.09 17:40. Заголовок: fil пишет: А в чем ..

fil пишет:

цитата:

А в чем собственно проблема

Проблема далеко не одна, часть из них я указал прямо в своём вопросе, и ещё может быть проблема с записью DBF в Excel 2007, - ты что, только название темы прочёл, а сообщение решил не читать?

 Отправлено: 13.07.09 08:16. Заголовок: Народ, так что, никт..

Народ, так что, никто не решал эту проблему?
Проблема: нужно закинуть в базу накладную или прайс. Требовать от поставщиков юзверя DBF-файл уже нереально - 2007-й Офис, на который все потихоньку переходят, файлы в DBF-формате не сохраняет, да и не все с этим справляются даже в тех версиях M$ Office (чтобы колонки были целочисленной ширины, и т.п.). Остаётся файл XLS. Принимать его в виде XLS - проверить колонки, сформировать массив - наверное можно, НО работы море всё это реализовывать, при этом всё для принятия DBF-файла в программе уже сделано. Вывод: надо из XLS-файла самому делать DBF-файл, и принимать в базу уже его. Странно, что никто раньше до этого решения не додумался...

 Отправлено: 18.08.09 20:40. Заголовок: Почти справился с за..

Почти справился с задачей, но возник маленький ньюанс: надо как-то определять, записано в ячейке Excel'я число 40.00 или 40 целое, а как это сделать - не представляю... Подскажите, люди добрые!
А ещё бы лучше определять это уже в Harbour'e, когда значение из Excel'я уже прочитано. Но тоже непонятно, как именно это сделать.

 Отправлено: 18.08.09 22:31. Заголовок: Лукашевский пишет: ..

Лукашевский пишет:

цитата:

надо как-то определять, записано в ячейке Excel'я число 40.00 или 40 целое

Обьект Range свойство NumberFormat - для 40,00 будет определено как "0.00", для 40 - "0"

 Отправлено: 19.08.09 08:54. Заголовок: Петр пишет: Обьект ..

Петр пишет:

цитата:

Обьект Range свойство NumberFormat

Спасибо.

 Отправлено: 20.08.09 13:39. Заголовок: Лукашевский пишет: ..

Лукашевский пишет:

цитата:

Почти справился с задачей

А результат покажешь ?

 Отправлено: 20.08.09 14:47. Заголовок: Andrey пишет: А рез..

Andrey пишет:

цитата:

А результат покажешь ?

Когда убедюсь, что оно работает :-)
Написать мало, отладить надо, однако.

 Отправлено: 20.08.09 17:19. Заголовок: Очередная проблема: ..

Очередная проблема: не читается из XLS-файла дата, по крайней мере по oSheet:Cells(y, i):Value

Смотрю в XLS-файл - а там все значения дат в этой колонке отображены решётками (########). Хотя когда какая-либо ячейка в этой колонке активна, в строке значения (fx) высвечивается нормальная дата, правильное значение. Смотрю ширину поля: 8. Может быть дело в этом, и надо ставить ширину 10, но мне-то нужно, чтобы функция работала всегда, безотносительно ширины колонки в Excel'e! Опять-таки, каким-то образом сам Excel может читать такие значения - ведь в строке значений они высвечиваются правильно...

Что с этим делать - пока не представляю. Может, есть какие-то ещё функции получения значения из ячейки?

 Отправлено: 24.08.09 02:28. Заголовок: Поставил ширину коло..

Поставил ширину колонки даты 10, всё отображается без проблем, НО: читаются из ячеек этой колонки всё равно пустые значения!!!
Никто с такой фишкой не сталкивался?

 Отправлено: 15.09.09 22:53. Заголовок: Ещё одна проблема: о..

Ещё одна проблема: открываю с помощью WorkBooks:Open() файл, имя которого содержит пробелы. Excel выдаёт ошибку: Excel.Application:WORKBOOKS/14 DISP_E_BADPARAMCOUNT: OPEN что в общем понятно. Непонятно только, как с этим бороться.

Пробовал заключать имя файла в кавычки - не помогает...

 Отправлено: 18.09.09 13:19. Заголовок: Пробелы в имени тут ..

Пробелы в имени тут ни при чем. Скорее всего, имя документа надо преобразовать в кодировку ansi, или указан неверный путь (надо указывать полный путь к файлу)

 Отправлено: 22.09.09 05:31. Заголовок: Pasha пишет: надо п..

Pasha пишет:

цитата:

надо преобразовать в кодировку ansi

Да, действительно, проблема была в кодировке...
Так что осталась всего одна проблема - дата из Exel'евского файла всегда читается пустая...

 Отправлено: 01.12.09 22:43. Заголовок: Потребовалось теперь..

Потребовалось теперь мне сделать из XLS файл DBF.
Структура простая: Текстовое поле, числовое поле (целое), числовое поле (сумма).

Как узнать сколько в файле XLS кол-во строк, т.е. как в DBF функция LASTREC() или RecCount() ?
И как сделать перебор "полей" XLS - файла ?
Кинь пожалуйста пример ....
Заранее спасибо !

 Отправлено: 02.12.09 09:36. Заголовок: oRange = oExcel:Acti..

oRange = oExcel:ActiveCell:SpecialCells(xlLastCell)
oRange:Row
oRange:Column

 Отправлено: 02.12.09 18:20. Заголовок: Не совсем понятно !!..

Не совсем понятно !!!

Хотелось бы в таком стиле:

USE OPLANA NEW

nRecKolvo := LASTREC()

SELECT OPLATA
GOTO TOP
FOR nI := 1 TO nRecKolvo
GOTO nI
// моя обработка
//
NEXT

 Отправлено: 02.12.09 21:28. Заголовок: Смысл в том, что выб..

Смысл в том, что выбирается последняя, т.е. нижняя правая ячейка документа. Затем определяются ее координаты. Это и есть количество строк и столбцов в документе. А затем - традиционный двойной цикл с обходом всех ячек.

 Отправлено: 03.12.09 08:01. Заголовок: А как открыть XLS фа..

А как открыть XLS файл, чтоб Екселя на экране не было ?

Дайте пожалуйста пример .....
А то я только с Вордом работать умею (чуть-чуть).....

 Отправлено: 03.12.09 09:13. Заголовок: Andrey пишет: А как..

Andrey пишет:

цитата:

А как открыть XLS файл, чтоб Екселя на экране не было ?

oExcel := TOleAuto():New( "Excel.Application" )
oExcel:Visible := .f.
oExcel:Workbooks:Open( cFile, 0 )

 Отправлено: 03.12.09 09:31. Заголовок: А как отловить, что ..

А как отловить, что файл уже открыт ?

 Отправлено: 03.12.09 10:15. Заголовок: Andrey пишет: А как..

Andrey пишет:

цитата:

А как отловить, что файл уже открыт ?

Хороший вопрос :)
Первая мысль, которая возникла - проверить oExcel:WorkBooks:Count, и пройтись по этой коллекции
Но оказалось, что при создании обьекта Excel запускается его новая копия, и Count равно нулю
Надо как-то связаться с уже запущенным Excel
Кстати, если из документа надо только брать данные, его можно открывать в режиме readonly, это 3-й параметр метода Open

 Отправлено: 03.12.09 10:24. Заголовок: Другой вопрос: А ка..

Другой вопрос:

А как прочитать значение ячейки ?

Скрытый текст

oExcel := TOleAuto():New( "Excel.Application" ) IF Ole2TxtError() != 'S_OK' cError := "Excel файл " + cFileXls + " не могу открыть !" + CLRF + CLRF + "EXCEL OLE ERROR [" + Ole2TxtError() + "]" MsgStop( cError, "Ошибка" ) lOpenXls := .F. ELSE lOpenXls := .T. ENDIF IF lOpenXls // Открыл без ошибок oExcel:Visible := .T. oExcel:Workbooks:Open( cFileXls, 0 ) oSheet := oExcel:Get( "ActiveSheet" ) oRange := oExcel:ActiveCell:SpecialCells( xlLastCell ) nLenRecnoXls := oRange:Row nLenColumnXls := oRange:Column cRecno := AllTrim(Str( nLenRecnoXls )) cColumn := AllTrim(Str( nLenColumnXls )) cRange := '"'+'A'+cRecno+':'+Chr(64+nLenColumnXls)+cRecno+'"' MsgInfo(cRange) cTemp := oSheet:Range( cRange ) MsgInfo( cTemp )

 Отправлено: 03.12.09 10:34. Заголовок: Andrey пишет: А как..

Andrey пишет:

цитата:

А как прочитать значение ячейки ?

oSheet:Cells(nRow, nCol):Value

 Отправлено: 03.12.09 10:37. Заголовок: Чтение из активного ..

Чтение из активного документа (созданного другим приложением или открытого)
TRY
oExcel := GetActiveObject( "Excel.Application" )
CATCH
TRY
oExcel := CreateObject( "Excel.Application" )
CATCH
Alert( "ERROR! Excel not avialable. [" + Ole2TxtError()+ "]" )
RETURN
END
END
oExcel:ActiveWorkbook()
oAS := oExcel:ActiveSheet()
Количество закладок
lw:= oExcel:Worksheets():count
Нужная закладка lt
oAS := oExcel:Worksheets(lt)
Примеры чтения из вычисленной программой ячейки
schet:=oAS:Range(nc+alltrim(str(num_str,6))):value
Tip_s:=Alltrim(HB_ANSITOOEM(oAS:Range(nsc+alltrim(str(num_str,6))):value))

 Отправлено: 03.12.09 10:47. Заголовок: Pasha пишет: oSheet..

Pasha пишет:

цитата:

oSheet:Cells(nRow, nCol):Value

Что-то не совсем понятно.....
Чему равно nRow, nCol ? Числам ?
А где же "A150:B150" ?

Или можно использовать 2 варианте ?

 Отправлено: 03.12.09 11:02. Заголовок: Это числовой номер с..

Это числовой номер строки и колонки
Для Cells синтаксис A1 не поддерживается

 Отправлено: 03.12.09 11:33. Заголовок: Спасибо ВСЕМ большое..

Спасибо ВСЕМ большое за помощь !!!

 Отправлено: 03.12.09 23:45. Заголовок: Рано порадовался......

Рано порадовался....
Из памяти не выгружается ЕХСЕЛ...
Хотя ставлю при выходе из функции oExcel:Quit()

Где собака зарыта ?

 Отправлено: 03.12.09 23:52. Заголовок: попробуй так oBook:..

попробуй так

oBook:Close(.f.) // закрытие документа-книги
oExcel:Quit()

 Отправлено: 05.12.09 01:06. Заголовок: Уф... сделал.... :s..

Уф... сделал....
Выкладываю ссылку на готовую программу.
Может кому понадобиться....
http://files.mail.ru/YFRFIO

Спасибо всем за помощь.....

 Отправлено: 09.09.11 06:58. Заголовок: Добрый день.... если..

Добрый день.... если можно выложить исходный код конвертера XLS To DBF буду благодарен... в XLS файле будут объедененные строки (код пункта продажи) далее идут строки код товара (до 8 строк) наименование товара, цена итд... По поводу объединенных строк если можно то поподробнее....
Конвертер из DBF To XLS с Вашей помощью уже сделал.
Всем спасибо

 Отправлено: 09.09.11 08:44. Заголовок: Oskar_AAA пишет: По..

Oskar_AAA пишет:

цитата:

По поводу объединенных строк если можно то поподробнее....

Чтобы объединить в Excel произвольную область ячеек, надо выдать команды:

oRange := oSheet:Range(oSheet:Cells(nRow1, nCol1), oSheet:Cells(nRow2, nCol2))
oRange:Merge()

 Отправлено: 09.09.11 13:44. Заголовок: Pasha , Оскар про &#..

Pasha , Оскар про "объединенные строки", наверное (как я понял), спрашивал - "как их обойти?", а не "как их в экселке создать?".

Oskar_AAA , загуглил я на "xls to dbf harbour" - вылетело, в частности, на пост из конфы "Harbour Users":
http://groups.google.com/group/harbour-users/browse_thread/thread/a7e274f383c77d55

Может, поможет? (при доработке надфилем по месту :) )

 Отправлено: 10.09.11 14:05. Заголовок: Oskar_AAA пишет: ес..

Oskar_AAA пишет:

цитата:

если можно выложить исходный код конвертера XLS To DBF буду благодарен

Я уже сделал 3 программки на Минигуи. С помощью наших гуру... Паши, Филатова и других...
Пример выкладываю. Исходник конвертирования тоже выкладываю, там нетрудно понять и переделать на хХарбор.
http://files.mail.ru/CP2U1B
Я Филатову высылал полные исходники для МиниГуи.
И как я вижу по Екселю нужны примеры решения тех или иных проблем.
Может выложите кто уже работал готовые решения ?
Типа: решение того-то ... исходник...

 Отправлено: 12.09.11 00:52. Заголовок: "Ася открыла для..

"Ася открыла для себя прокладки Олвейс"
а я открыл для себя что под харбором для написания экселовских функций лучше использовать нотацию RC.
Например

	//=СЧЁТ(RC[-10]:RC[-1]) 
 	//=СУММ(RC[-11]:RC[-2])/RC[-1] 
 	//написать формулы 
 	k:=len(aRes) 
 	... 
 	for i:=1 to 24 //часы суток 
 		oSheet:Cells( Row1+i, 1+k+1):Formula:="=СЧЁТ(RC[-"+alltrim(str(k))+"]:RC[-1]" 
 		oSheet:Cells( Row1+i, 1+k+2):Formula:="=ОКРУГЛ(СУММ(RC[-"+alltrim(str(k+1))+"]:RC[-2])/RC[-1];0)" 
 	next 
 

1-количество непустых ячеек среди К ячеек впереди текущей в текущей строке
2-среднее арифметическое среди вышеуказанных ячеек
И никакой возни с преобразованием в буквенное наименование столбцов.
P.S. можно оптимизировать - вынести формирование формул за цикл.

 Отправлено: 12.09.11 06:10. Заголовок: Добрый день, коллеги..

Добрый день, коллеги. Спасибо за информацию. Буду изучать. О результатах сообщу.
Спасибо.

 Отправлено: 12.09.11 10:08. Заголовок: Андрей, добрый день...

Андрей, добрый день. У меня нет файла Excel.ch - где его взять. Использую xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6476)....

 Отправлено: 12.09.11 12:10. Заголовок: Oskar_AAA пишет: У ..

Oskar_AAA пишет:

цитата:

У меня нет файла Excel.ch - где его взять.

Выслал на почту.

 Отправлено: 13.09.11 08:25. Заголовок: Добрый день, вроде п..

Добрый день, вроде получилось... по краней мере на сегодня устраивает. Данные формата Дата пока не пробовал принимать. Всем спасибо.

 Отправлено: 03.10.11 14:39. Заголовок: Andrey! Пока я вышел..

Andrey! Пока я вышел из отпуска твои линки уже не работают...
Мож есчо раз выложить эти проги по конвертации?

 Отправлено: 03.10.11 18:43. Заголовок: СевДон пишет: Мож е..

СевДон пишет:

цитата:

Мож есчо раз выложить эти проги по конвертации?

Можна....
http://files.mail.ru/8DJQAL

Коментарии приветсвуются ...

 Отправлено: 28.10.15 16:53. Заголовок: А ещё, если не трудн..

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

 Отправлено: 28.10.15 17:18. Заголовок: azoo пишет: Или про..

azoo пишет:

цитата:

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

По идее можно завести общий почтовый ящик на mail.ru , доступ к нему давать через личные сообщения.

 Отправлено: 30.10.15 15:33. Заголовок: azoo пишет: А ещё, ..

azoo пишет:

цитата:

А ещё, если не трудно.

Поддерживаю!

 Отправлено: 30.10.15 15:34. Заголовок: Dima пишет: По идее..

Dima пишет:

цитата:

По идее можно завести общий почтовый ящик на mail.ru , доступ к нему давать через личные сообщения.

Наверное проще яндекс или гугл диск расшареный

 Отправлено: 30.10.15 18:06. Заголовок: MIKHAIL пишет: Наве..

MIKHAIL пишет:

цитата:

Наверное проще яндекс или гугл диск расшареный

Нет, не нужно.
Лучше делать типа так, как в другой теме:
https://gist.github.com/VerchenkoAG/40c50f644459caa7ce3c

И найти можно будет всем и не потеряется.
Правда базы куда выкладывать к примеру, не знаю.

 Отправлено: 26.11.15 20:04. Заголовок: Добрый день, Возникл..

Добрый день,
Возникла необходимость обработки значения Excel в формате "дата ЧЧ:ММ:СС" и разделить на два поля : формате "D" и формат "С". Как это сделать?

Xl_Dat_Upr:=oSheet:Cells(Ni,2):Value возвращает D....

Спасибо...

 Отправлено: 26.11.15 21:20. Заголовок: Oskar_AAA что верне..

Oskar_AAA
что вернет ?
? Xl_Dat_Upr

 Отправлено: 26.11.15 22:11. Заголовок: Возвращает тип поля ..

Возвращает тип поля "D"...

 Отправлено: 26.11.15 22:21. Заголовок: я не про тип..

я не про тип

set date to german
? hb_datetime()
вернет 26.11.15 21:24:30.408
а что вернет EXCEL через олю в переменной Xl_Dat_Upr ?

 Отправлено: 27.11.15 16:46. Заголовок: возвращает 01.10.20..

возвращает 01.10.2015 09:25:31.00
остается конвертировать в нужный тип

 Отправлено: 27.11.15 16:56. Заголовок: Тип поля получается ..

Тип поля получается "D", если вывести Xtoc(Xl_dat_Upr) = 01.10.2015 09:25:31.00.
B=Xtoc((Xl_dat_Upr)
?b
20151001
показания по времени отсутствуют...?

 Отправлено: 27.11.15 17:12. Заголовок: Oskar_AAA Попробуй ..

Oskar_AAA
Попробуй результат загнать в hb_tstostr() или в hb_valtoexp()
а после разбери строку как нужно.

 Отправлено: 27.11.15 17:46. Заголовок: Dima что за функция..

Dima

что за функция tstostr(), valtoexp()?

у меня xharbour 1.2.1 rev.6476

 Отправлено: 27.11.15 18:00. Заголовок: Oskar_AAA пишет: чт..

Oskar_AAA пишет:

цитата:

что за функция tstostr()

см ChangeLog
http://sourceforge.net/p/xharbour/mailman/message/33552640/
за дату 2015-03-01 15:10

 Отправлено: 27.11.15 18:37. Заголовок: Где скачать hbextern..

Где скачать hbextern.ch, в версии от 2015-03-01 15:10

 Отправлено: 27.11.15 18:48. Заголовок: Oskar_AAA пишет: Гд..

Oskar_AAA пишет:

цитата:

Где скачать hbextern.ch, в версии от 2015-03-01 15:10

http://sourceforge.net/p/xharbour/code/HEAD/tree/trunk/xharbour/include/hbextern.ch

PS
Боюсь этот CH ни чего не даст.
Возможно достаточно там же дернуть сырец HB_TSTOSTR

 Отправлено: 27.11.15 19:02. Заголовок: Dima Спасибо, уже н..

Dima
Спасибо, уже нашел, скопировал,

# Include 'Command.Ch'
# Include 'Inkey.Ch'
# Include 'Dbedit.Ch'
# Include 'Setcurs.Ch'
# Include 'Excel.Ch'
# Include 'Hbgtinfo.Ch'
# Include 'Hbextern.Ch'

A:=oSheet:Cells(Ni,1):Value
?a
?valtype(a)
b=TSTOSTR(a)
?Valtype(b)
?b
wait
Error: Unresolved external '_HB_FUN_TSTOSTR' referenced from AVTO_002.OBJ

как быть?

 Отправлено: 27.11.15 20:09. Заголовок: Oskar_AAA пишет: ка..

Oskar_AAA пишет:

цитата:

как быть?

Вот сырец http://sourceforge.net/p/xharbour/code/HEAD/tree/trunk/xharbour/source/rtl/dateshb.c
Дерни от туда HB_TSTOSTR и прилинкуй к проге