Отправлено: 26.01.06 19:02. Заголовок: Ввод информации из файлов Excell

В форуме время от времени обсуждается вопрос выгрузки в Excell, а у меня обратная задача. Есть несколько организаций, которые передают нам списки своих людей для зачисления сумм на карточки. Раньше у них была единая программа , которая формировала Dbf-файлы и все было просто. Сейчас новая версия этой программы формирует Xls-файлы. Хотелось бы знать как с минимальными переделками
решить эту задачу на Harbour? Наверняка посетители форума уже решали такие задачи и могут
поделиться своими наработками в этом вопросе.

 Отправлено: 27.01.06 10:20. Заголовок: Re:

Через OLE
Типа так

Function ReestrX

if ! File('reestr.xls')
Alert('Не найден файл reestr.xls')

else

Private oDoc := OpenExcel('reestr.xls')
Private oSheet := oDoc:Get('ActiveSheet')
Private oRange
Private nRow := 1
Private cLast := space(35)
Private cText := space(35)
Private cDom
Private cKv
Private nAt
Private nKol
Private xVal
Private oRow
Private xn
Private cTown := '0001'
Private oWnd := GetWnd()
Private oFont
Private lFont

oWnd:Disable()
StackPush(TWindowNew(8, 15, 13, 65, Palette(1),, 2, .t.))
Private oWnd2 := GetWnd()
SetCaption('Абоненты')
WndSay(10, 20, {|| street->Name})
WndSay(12, 20, {|| Str(nRow) + ' '+cText})
WndMeter()

while nRow <= 3056
oRow := oSheet:Rows(nRow)

oRange := oRow:Columns(1)
xn := oRange:Value
oRange := oRow:Columns( 8)
xVal := oRange:Value
if ValType(xVal) = 'C'
nKol := Val(xVal)
elseif ValType(xVal) = 'N'
nKol := xVal
else
nKol := 0
endif
oRange := oRow:Columns( 4)
cText := AnsiToOEM(oRange:Value)

и так далее, та мои функции интерфейса не обращай внимание

 Отправлено: 27.01.06 16:45. Заголовок: Re:

Pasha

В общем идея понятна, но линковщик матерится на строке OpenExcel.

 Отправлено: 27.01.06 23:02. Заголовок: Re:

oDocl := TOleAuto():New( "Excel.Application" )

 Отправлено: 28.01.06 09:22. Заголовок: Re:

Точно, пропустил, моя функция:

Function OpenExcel(cFile)
Local oExcel := TOleAuto():New( "Excel.Application" )
oExcel:Visible := .f.
oExcel:Workbooks:Open( cFile )
Return oExcel

 Отправлено: 30.01.06 14:55. Заголовок: Re:

Pasha

Вот отрывок программы с учетом твоего уточнения:

cFile = "Example.xls"
oExcel := TOleAuto():New( "Excel.Application" )
oExcel:Visible := .f.
oExcel:Workbooks:Open( cFile )
oSheet := oExcel:Get('ActiveSheet')

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

Error Excel.Application:WORKBOOKS/16389 E_FAIL: OPEN Arguments: ( [ 1] = Type:
C Val: Example.xls)

Error at ...: TOLEAUTO:OPEN(0) in Module: win32ole.prg
Called from : MAIN(29) in Module: my.prg

И как с этим бороться?

 Отправлено: 30.01.06 15:05. Заголовок: Re:

эксэлю надо дать полный путь к файлу, при этом понятия текущего каталога-диска не существует
Причем имена каталогов (МОИДОК~1) должны быть кодировке Ansi (1251)

 Отправлено: 30.01.06 15:47. Заголовок: Re:

Pasha

Вот теперь понятно, большое спасибо

 Отправлено: 31.01.06 16:19. Заголовок: Re:

А есть ли для Clipper какие-то библиотеки, которые позволят прочитать
содержимое файла Excell? А если нет, то как будет выглядеть кусок программы
Паши для FiveWin? К сожалению в огрызках документации по FiveWin, которая
есть у меня, практически ничего на эту тему нет.

 Отправлено: 02.02.06 13:33. Заголовок: Re:

А как завершить работу с XLS-файлом? А то после окончания работы программы
Excell так и остается висеть в памяти.

 Отправлено: 02.02.06 13:57. Заголовок: Re:

или сделать Visible:=.t. и пусть его юзер сам прибивает, или:

oWorkBook:Book:Close(.f.) // если есть ActiveWorkBook
oExcel:Quit()

 Отправлено: 02.02.06 15:36. Заголовок: Re:

Pasha

Огромное спасибо! Было бы намного меньше вопросов при наличии
хоть какой-то документации.

 Отправлено: 02.02.06 20:58. Заголовок: Re:

Это ведь уже вопрос не к харбору, а к майкрософт
И такая дока конечно есть, она общедоступна - есть в поставке Office
Это хелп по VBA Excel
Еще хороший метод - включить в Excel запись макросов, что-то сделать
и посмотреть какими командами это повторяется программно

 Отправлено: 01.03.06 19:47. Заголовок: Re:

Pasha

Последний вопрос относительно импорта информации. XLS-файл содержит макросы,
открываю и обрабатываю его нормально, без вопросов, а вот при закрытии файла
выходит сообщение, на которое пользователь программы дожен реагировать выбором
соответствующего продолжения. Нельзя ли избавиться от этого сообщения?

 Отправлено: 02.03.06 14:23. Заголовок: Re:

Надо установить свойство

Application:DisplayAlerts := .F.

 Отправлено: 02.03.06 15:46. Заголовок: Re:

Pasha

Все получилось, большое спасибо!

 Отправлено: 15.05.06 14:13. Заголовок: Переделка импорта их Xls файлов на Open Office

Практически всюду наша головная контора заставила снять Microsoft Office и теперь нужно срочно переделать функцию импорта на следующие дествия:

а) Проверить наличие установленного Microsoft Office. Если он есть импорт делается по старому
б) Если нет, проверяем наличие установленного Open Office. И если он есть импортируем
его средствами. Т.е. необходимо в этом случае перевести текст

oExcel := TOleAuto():New( "Excel.Application" )
oExcel:Visible := .f.
oExcel:DisplayAlerts := .f.
oWorkbook := oExcel:Workbooks:Open( cFile )
oSheet := oExcel:Get('ActiveSheet')
do while .t.
oRow := oSheet:Rows(nRow)
oRange := oRow:Columns( 5)
cTemp := oRange:Value
...

nRow = nRow + 1
enddo

* Выгружаем из Excell
oExcel:Workbooks:Close()
oExcel:Quit()

так чтобы он работал с Open Office

в) Если нет ни того и ни другого - просто выдать сообщение об установке одного
из двух пакетов

Если кто-то уже решал поставленную проблему - поделитесь решением

 Отправлено: 16.05.06 11:22. Заголовок: Re:

Проверка установки - наверное можно делать через реестр, но как я не знаю
Если средствами харбора, то вместо TOleAuto():new( cServer );

Local cServer := 'com.sun.star.ServiceManager'

Local hObj := CreateOleObject( cServer )

if OleError() == 0
oStarManager := TOleAuto():new( hObj )
oStarManager:cClassName := cServer
else
lError := .t.
endif

Аналогично можно проверить установку Excel

Маленький пример с OpenOffice (после создания):

oStarDesktop := oStarManager:createInstance('com.sun.star.frame.Desktop')
oDocument := oStarDesktop:LoadComponentFromURL(;
'private:factory/scalc',;
'_blank',;
0,;
{})

oSheet:=oDocument:Sheets:getByName(OemToAnsi("Лист1"))

// Нумерация ячеек с нуля
oRange := oSheet:getCellByPosition(nCol-1, nRow-1)
oRange:SetString(cStr)

Чтобы открыть ОО-документ, кажется его имя надо указать вместо _blank,
но в формате url, т.е. через //file:
У меня под рукой нет примера, я гляну позже

 Отправлено: 16.05.06 14:06. Заголовок: Re:

Pasha пишет:

цитата:

Проверка установки - наверное можно делать через реестр, но как я не знаю

Функции в библиотеке what32.lib xHarbour
_HB_FUN_REGCLOSEKEY _HB_FUN_REGCREATEKEY
_HB_FUN_REGCREATEKEYEX _HB_FUN_REGDELETEKEY
_HB_FUN_REGDELETEVALUE _HB_FUN_REGENUMKEYEX
_HB_FUN_REGOPENKEYEX _HB_FUN_REGQUERYVALUEEX
_HB_FUN_REGSETVALUEEX
Пытался использовать , чего-то не получилось , бросил (не было времени) .
Кто разберется , тому памятник (при жизни).

http://clipper.fastbb.ru/index.pl?1-0-0-00000136-000-10001-0-1144087977
здесь mmk пишет примерчик , я так понимаю на FiveWin (наверно )

 Отправлено: 16.05.06 19:32. Заголовок: Re:

Начинаем с

RegOpenKeyEx(hwKey, cSubKey,,, @nKeyHandle)

Описание:

The RegOpenKeyEx function opens the specified key.

LONG RegOpenKeyEx(

HKEY hKey, // handle of open key
LPCTSTR lpSubKey, // address of name of subkey to open
DWORD ulOptions, // reserved
REGSAM samDesired, // security access mask
PHKEY phkResult // address of handle of open key
);
Parameters

hKey

Identifies a currently open key or any of the following predefined reserved handle values:

HKEY_CLASSES_ROOT
HKEY_CURRENT_USER
HKEY_LOCAL_MACHINE
HKEY_USERS

lpSubKey

Points to a null-terminated string containing the name of the subkey to open. If this parameter is NULL or a pointer to an empty string, the function will open a new handle of the key identified by the hKey parameter. In this case, the function will not close the handles previously opened.

ulOptions

Reserved; must be zero.

samDesired

Specifies an access mask that describes the desired security access for the new key. This parameter can be a combination of the following values:

Value Meaning
KEY_ALL_ACCESS Combination of KEY_QUERY_VALUE, KEY_ENUMERATE_SUB_KEYS, KEY_NOTIFY, KEY_CREATE_SUB_KEY, KEY_CREATE_LINK, and KEY_SET_VALUE access.
KEY_CREATE_LINK Permission to create a symbolic link.
KEY_CREATE_SUB_KEY Permission to create subkeys.
KEY_ENUMERATE_SUB_KEYS Permission to enumerate subkeys.
KEY_EXECUTE Permission for read access.
KEY_NOTIFY Permission for change notification.
KEY_QUERY_VALUE Permission to query subkey data.
KEY_READ Combination of KEY_QUERY_VALUE, KEY_ENUMERATE_SUB_KEYS, and KEY_NOTIFY access.
KEY_SET_VALUE Permission to set subkey data.
KEY_WRITE Combination of KEY_SET_VALUE and KEY_CREATE_SUB_KEY access.
phkResult

Points to a variable that receives the handle of the opened key.

Return Values

If the function succeeds, the return value is ERROR_SUCCESS.
If the function fails, the return value is a nonzero error code defined in WINERROR.H. You can use the FormatMessage function with the FORMAT_MESSAGE_FROM_SYSTEM flag to get a generic description of the error.

 Отправлено: 16.05.06 23:53. Заголовок: Re:

saulius пишет:

цитата:

Начинаем с RegOpenKeyEx(hwKey, cSubKey,,, @nKeyHandle)

А примерчик можно ?
пытаюсь выполнить :
msginfo(str(RegOpenKeyEX( "HKEY_LOCAL_MACHINE","SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\Winword.exe",,, @nHandle ),5))
получаю -1 , что делаю не так ?

 Отправлено: 17.05.06 08:47. Заголовок: Re:

Сергей Р пишет:

цитата:

А примерчик можно ?

****************************
Function MSWORD_PATH()
*---------------------
Local nHandle, cValue := ""
if RegOpenKey( HKEY_LOCAL_MACHINE,;
"SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths", @nHandle ) == 0
RegQueryValue( nHandle, "WINWORD.EXE", @cValue )
cValue := lfn2sfn(cValue)
RegCloseKey( nHandle )
endif

Return (cValue)

 Отправлено: 17.05.06 09:23. Заголовок: Re:

mmk пишет:

цитата:

RegOpenKeyEX( HKEY_LOCAL_MACHINE,; "SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths", @nHandle ) == 0

В xHarbour такое написание не катит .
И функцию lfn2sfn в студию .

 Отправлено: 17.05.06 09:36. Заголовок: Re:

Пример mmk - если есть FiveWin
а так:

if RegOpenKeyEx( HKEY_LOCAL_MACHINE,;
"SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths",,, @nHandle ) == 0
...

Продолжим:

RegQueryValueEx( nKeyHandle, cEntryName,, nValueType, @cData )

Описание:

The RegQueryValueEx function retrieves the type and data for a specified value name associated with an open registry key.

LONG RegQueryValueEx(

HKEY hKey, // handle of key to query
LPTSTR lpValueName, // address of name of value to query
LPDWORD lpReserved, // reserved
LPDWORD lpType, // address of buffer for value type
LPBYTE lpData, // address of data buffer
LPDWORD lpcbData // address of data buffer size
);
Parameters

hKey

Identifies a currently open key or any of the following predefined reserved handle values:

HKEY_CLASSES_ROOT
HKEY_CURRENT_USER
HKEY_LOCAL_MACHINE
HKEY_USERS

lpValueName

Points to a null-terminated string containing the name of the value to be queried.

lpReserved

Reserved; must be NULL.

lpType

Points to a variable that receives the key’s value type. The value returned through this parameter will be one of the following:

Value Meaning
REG_BINARY Binary data in any form.
REG_DWORD A 32-bit number.
REG_DWORD_LITTLE_ENDIAN A 32-bit number in little-endian format (same as REG_DWORD). In little-endian format, the most significant byte of a word is the high-order byte. This is the most common format for computers running Windows NT and Windows 95.
REG_DWORD_BIG_ENDIAN A 32-bit number in big-endian format. In big-endian format, the most significant byte of a word is the low-order byte.
REG_EXPAND_SZ A null-terminated string that contains unexpanded references to environment variables (for example, “%PATH%”). It will be a Unicode or ANSI string depending on whether you use the Unicode or ANSI functions.
REG_LINK A Unicode symbolic link.
REG_MULTI_SZ An array of null-terminated strings, terminated by two null characters.
REG_NONE No defined value type.
REG_RESOURCE_LIST A device-driver resource list.
REG_SZ A null-terminated string. It will be a Unicode or ANSI string depending on whether you use the Unicode or ANSI functions.
The lpType parameter can be NULL if the type is not required.

lpData

Points to a buffer that receives the value’s data. This parameter can be NULL if the data is not required.

lpcbData

Points to a variable that specifies the size, in bytes, of the buffer pointed to by the lpData parameter. When the function returns, this variable contains the size of the data copied to lpData.

If the buffer specified by lpData parameter is not large enough to hold the data, the function returns the value ERROR_MORE_DATA, and stores the required buffer size, in bytes, into the variable pointed to by lpcbData.
If lpData is NULL, and lpcbData is non-NULL, the function returns ERROR_SUCCESS, and stores the size of the data, in bytes, in the variable pointed to by lpcbData. This lets an application determine the best way to allocate a buffer for the value key’s data.

If the data has the REG_SZ, REG_MULTI_SZ or REG_EXPAND_SZ type, then lpData will also include the size of the terminating null character.
The lpcbData parameter can be NULL only if lpData is NULL.

Return Values

If the function succeeds, the return value is ERROR_SUCCESS.
If the function fails, the return value is a nonzero error code defined in WINERROR.H. You can use the FormatMessage function with the FORMAT_MESSAGE_FROM_SYSTEM flag to get a generic description of the error.

Remarks

The key identified by hKey must have been opened with KEY_QUERY_VALUE access. To open the key, use the RegCreateKeyEx or RegOpenKeyEx function.
This function does not expand the environment-variable names in the value data when the value type is REG_EXPAND_SZ. The ExpandEnvironmentStrings function can be used to expand the environment-variable names.
If the value data has the REG_SZ, REG_MULTI_SZ or REG_EXPAND_SZ type, and the ANSI version of this function is used (either by explicitly calling RegQueryValueEx or by not defining Unicode before including the WINDOWS.H file), this function converts the stored Unicode string to an ANSI string before copying it to the buffer pointed to by lpData.

When calling the RegQueryValueEx function with hKey set to the HKEY_PERFORMANCE_DATA handle and a value string of a specified object, the returned data structure sometimes has unrequested objects. Don’t be surprised; this is normal behavior. When calling the RegQueryValueEx function, you should always expect to walk the returned data structure to look for the requested obje

 Отправлено: 17.05.06 09:46. Заголовок: Re:

Сергей Р, а не проще открыть

xharbour\contrib\what32\source\_winreg.c ,

API doc ,

и разобраться самому ? (когда будет времени)

 Отправлено: 17.05.06 11:37. Заголовок: Re:

saulius пишет:

цитата:

Пример mmk - если есть FiveWin а так: if RegOpenKeyEx( HKEY_LOCAL_MACHINE,; "SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths",,, @nHandle ) == 0

Я же писал выше , НЕ РАБОТАЕТ ТАКОЙ ПРИМЕР .

saulius пишет:

цитата:

Сергей Р, а не проще открыть xharbour\contrib\what32\source\_winreg.c , API doc , и разобраться самому ? (когда будет времени)

В том-то и дело , что прочитать можно , но не работает это .

Лучше вместо описания функций - РАБОТАЮЩИЙ ПРИМЕР !

 Отправлено: 17.05.06 11:53. Заголовок: РАБОТАЮЩИЙ ПРИМЕР - в студию!

Сергей Р пишет:

цитата:

Лучше вместо описания функций - РАБОТАЮЩИЙ ПРИМЕР !

Вот пример, как я это делаю для открытия ассоциированного с расширением екзешника (пример для библиотеки MiniGUI):

*--------------------------------------------------------*
Static Function GetOpenCommand( cExt )
*--------------------------------------------------------*
Local oReg, cVar1 := "", cVar2 := "", nPos

If ! ValType( cExt ) == "C"
Return ""
Endif

If ! Left( cExt, 1 ) == "."
cExt := "." + cExt
Endif

oReg := TReg32():New( HKEY_CLASSES_ROOT, cExt, .f. )
cVar1 := RTrim( StrTran( oReg:Get( Nil, "" ), Chr(0), " " ) ) // i.e look for (Default) key
oReg:close()

If ! Empty( cVar1 )
oReg := TReg32():New( HKEY_CLASSES_ROOT, cVar1 + "\shell\open\command", .f. )
cVar2 := RTrim( StrTran( oReg:Get( Nil, "" ), Chr(0), " " ) ) // i.e look for (Default) key
oReg:close()

If ( nPos := RAt( " %1", cVar2 ) ) > 0 // look for param placeholder without the quotes (ie notepad)
cVar2 := SubStr( cVar2, 1, nPos )
Elseif ( nPos := RAt( '"%', cVar2 ) ) > 0 // look for stuff like "%1", "%L", and so forth (ie, with quotes)
cVar2 := SubStr( cVar2, 1, nPos - 1 )
Elseif ( nPos := RAt( '%', cVar2 ) ) > 0 // look for stuff like "%1", "%L", and so forth (ie, without quotes)
cVar2 := SubStr( cVar2, 1, nPos - 1 )
Elseif ( nPos := RAt( ' /', cVar2 ) ) > 0 // look for stuff like "/"
cVar2 := SubStr( cVar2, 1, nPos - 1 )
Endif
Endif

Return RTrim( cVar2 )

Использование функции:
cExe := GetOpenCommand("XLS")

Примечание.
Класс TReg32 для работы с реестром входит в состав библиотеки MiniGUI

 Отправлено: 17.05.06 12:34. Заголовок: Re:

Спасибо Григорий за примерчик , но хотелось бы видеть харборовские функции , трудящиеся в поте лица , не взирая на трудности и лишения программной службы .

 Отправлено: 17.05.06 14:11. Заголовок: Re:

я писал

if RegOpenKeyEx( HKEY_LOCAL_MACHINE,;
"SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths",,, @nHandle ) == 0

а вы

пытаюсь выполнить :
msginfo(str(RegOpenKeyEX( "HKEY_LOCAL_MACHINE","SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\Winword.exe",,, @nHandle ),5))
получаю -1 , что делаю не так ?

есть разница...

 Отправлено: 17.05.06 15:05. Заголовок: Re:

saulius пишет:

цитата:

я писал if RegOpenKeyEx( HKEY_LOCAL_MACHINE,; "SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths",,, @nHandle ) == 0

Такой вариант тем более не работает ( конечно же я его проверял ) .
Error BASE/1003 Variable does not exist: HKEY_LOCAL_MACHINE

Нужен рабочий пример .

 Отправлено: 17.05.06 17:49. Заголовок: Re:

А если так

if RegOpenKeyEx( 0x80000002,;
"SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths",,, @nHandle ) == 0

 Отправлено: 17.05.06 17:55. Заголовок: а он рабочий

HKEY_LOCAL_MACHINE - ищите ее во всевозможных include\
(напр.hwgui\include\windows.ch, minigui\INCLUDE\ (тут их почему-то много) i_misc.ch, i_registry.ch )

#define HKEY_LOCAL_MACHINE 2147483650 // 0x80000002

а компиллируйте с ключами /w/es2

 Отправлено: 17.05.06 21:47. Заголовок: Re:

saulius и SergeJa , спасибо , теперь работает .

msginfo(str(RegOpenKeyEX( 0x80000002,"SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths",,, @nHandle )
теперь работает , осталось разобраться с

RegQueryValueEX( nHandle,"WINWORD.EXE",,1, @cValue )

Если я правильно перевел :

If the value data has the REG_SZ, REG_MULTI_SZ or REG_EXPAND_SZ type, and the ANSI version of this function is used (either by explicitly calling RegQueryValueEx or by not defining Unicode before including the WINDOWS.H file), this function converts the stored Unicode string to an ANSI string before copying it to the buffer pointed to by lpData.

то копируется в буфер строка в кодировке ANSI , но что-то не я этого не вижу .

 Отправлено: 18.05.06 08:33. Заголовок: Re:

Сергей Р пишет:

цитата:

цитата: RegOpenKeyEX( HKEY_LOCAL_MACHINE,; "SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths", @nHandle ) == 0 В xHarbour такое написание не катит . И функцию lfn2sfn в студию .

Почту читаю только утром , поэтому приношу свои извинения за задержу....
Пример работающий , НО это FWH + xHarbour.

Возможно для прояснения ситуации поможет описание этих функций.
С HKEY_LOCAL_MACHINE уже все ясно :))))

Функция lfn2sfn :

Long FileName To short FileName
Syntax:
Lfn2Sfn( <cLongFileName> ) --> cshortFileName
Т.е ясно , можно получить ... програм филес с тильдой , к примеру.


Теперь RegOpenKey( <nkey> ,; <cSubKey> ,; <@nHandle> ) --> nResult
Parameters:

<nkey> Handle of an open key. Can be 2147483648 that is the HKEY_CLASSES_ROOT. Can not be a nil parameter.

<cSubKey> String of a subkey to open
<@nHandle> Handle of open key.
Returns:
<nReturn> If the function is success a zero is returned. In other case a numeric error code.


На всякий случай .....

#define HKEY_CLASSES_ROOT 2147483648
#define HKEY_CURRENT_USER 2147483649
#define HKEY_LOCAL_MACHINE 2147483650
#define HKEY_USERS 2147483651
#define HKEY_PERFORMANCE_DATA 2147483652
#define HKEY_CURRENT_CONFIG 2147483653
#define HKEY_DYN_DATA 2147483654

 Отправлено: 18.05.06 10:13. Заголовок: Re:

В winnt.h есть:

#define REG_SZ ( 1 ) // Unicode nul terminated string
#define REG_EXPAND_SZ ( 2 ) // Unicode nul terminated string (with environment variable references)
#define REG_MULTI_SZ ( 7 ) // Multiple Unicode strings

а кто прав ?

кроме того, RegQueryValueEx wrapper не совсем коректен: параметр nType принимается, а должен только
возвращатся.

Wrapper WinRegQueryValueEx(nHandle, cEntryName, 0, @nValueType, @cName) ==> nSize
из rtl.lib выглядит приятне, но я юзаю свои, потому вам надо пробовать самим.
Удачи

 Отправлено: 07.06.06 10:40. Заголовок: Re:

Рад, что мой вопрос вызвал такое большое количество
откликов. Однако я, как и раньше, не знаю как перевести
указанный выше кусок своей программы на обработку информации
в Open Office. Проверка наличия или отсутствия установленного
Open Office проходит на ура с помощью указанного Пашей Царенко
подхода. Дальше уже хуже: открытие файла с помощью

oStarDesktop := oStarManager:createInstance('com.sun.star.frame.Desktop')
oDocument := oStarDesktop:LoadComponentFromURL(;
'private:factory/scalc',;
'_blank',;
0,;
{})

не получается. Очевидно из-за ошибки в коде. Подсмотрел в программе
на Visual FoxPro, что должно быть скорее всего так:

cFile := "file:///" + StrTran( cFile, "\", "/" )
oStarDesktop := oStarManager:createInstance('com.sun.star.frame.Desktop')
oDocument := oStarDesktop:LoadComponentFromURL( cFile, "_blank", 0, {} )

И данный кусок действительно работает. А вот что делать дальше -
неясно.
Может кто-то знает где об этом можно почитать - откликнитесь. А если
кто-то уже ранее прошел нужный мне путь - поделитесь опытом. Повторяю
суть своей проблемы:

Есть кусок программы чтения информации их Xls-файла использующий
установленный на компе Microsoft Office

oExcel := TOleAuto():New( "Excel.Application" )
oExcel:Visible := .f.
oExcel:DisplayAlerts := .f.
oWorkbook := oExcel:Workbooks:Open( cFile )
oSheet := oExcel:Get('ActiveSheet')
do while .t.
oRow := oSheet:Rows(nRow)
oRange := oRow:Columns( 5)
cTemp := oRange:Value
...

nRow = nRow + 1
enddo

* Выгружаем из Excell
oExcel:Workbooks:Close()
oExcel:Quit()

Необходимо переписать этот кусок с использованием Open Office.
Заранее благодарен всем, кто уже откликнулся или собирается
помочь в решении моего вопроса.