Как это все можно осуществить? Необходимо это все, чтобы передать содержание datawindow в excel. Сохраняю все строки отчета через saveasascii, открывая через Excel напрямую ручками отчет отлично выглядит. Хочу сделать тоже самое, только используя PB, создаю ole объект, соединяю его с excel.application, а вот дальше ступор, используя функцию Open для этого объекта получаю первый столбец, в каждой ячейке которого записаны строчки текстового файла. Возможно ли открыть этот файл учитывая разделители? Куда копать?

Если не трудно, можно по подробнее? Копировать данные из datawindow, подцепить Ole объект к экселю и вставить данные в него? Но при такой процедуре вставляются все данные, а так как прога досталась по наследству и тогда не задумывались еще над вопросом передачи отчетов в эксель, то есть много левых столбцов, которые потом удалять через скрипт. И кажется при использовании функции Paste не передаются названии столбцов? Или я ошибаюсь?

а какой параметр функции open передает экселю что открываем текстовый файл с разделителем ,?:)

>> а какой параметр функции open передает экселю что открываем текстовый
>> файл с разделителем ,?:)

>4-й.

sourcestorage? Какое значение тогда нужно?

То есть функция будет ob.Application.WorkBooks.Opentext(filename,...,...,",")?

В смысле не opentext, a open

>Так есть же функция Saveas.Приходилось её пользовать по жизни.
>Чтоб сохраняемый файл нормально открылся екселем,поставить тип файла Excel5! или text!,а так >как имя файла вы сами задаёте,то не стесняйтесь,ставьте расширение .xls.
>Мне приходлось так забивать биржевый отчёт из dw в excel,давно было,но работало.[/quot]
Использование данной функции не устраивает тем, что передаются все данные, но юез названий столбцов и итогов по группам, как и названия самих групп, то есть приходится все это потом приводить в соответствующий вид, а если сохранять в формате ascii, то все эти данные есть, остается только выгрузить их в Excel

Ну я сильно не мучался, просто было самому интересно, да и начальник сказал: пусть программа выгружает данные в эксель, а то что я могу написать служебку чтобы мне купили библиотеку dw2xls за 55 евро, не сказал да и думаю не скажет:), политика не та. Да и идеальное совпадение не требуется... Спасибо всем кто откликнулся, пошел через экспорт в ascii, затем покопался в хелпе по VBA, конкретно по функции, нарыл то что нужно и теперь все замечательно работает:)

Мда, теперь начальство кинуло в другую сторону, необходимо все это переписать под опенофисовский Calc. Начал потихоньку разбираться, но столкнулся вот с чем:

o1 = CREATE oleobject
li_n = o1.ConnectToNewObject("com.sun.star.ServiceManager")
IF li_n <> 0 THEN
MessageBox('Ошибка соединения с OpenOffice!', 'Код = ' + String(li_n),StopSign!)
DESTROY o1
Return
END IF


ole_document=create oleobject
ole_desctop=CREATE oleobject
dispatcher=create oleobject
ole_desctop = o1.CreateInstance('com.sun.star.frame.Desktop')
ole_document = ole_desctop.LoadComponentFromURL('file:///' + ls_path, "_blank", 0,b_array)

Все работает нормально, но проблема в кодировке, данные попросту отображаются не в windows_1251. Порылся в документации и нашел то, что за фильтр открытия отвечает четвертый параметр, который массив. Но никак не соображу, как его задать. Также нашел код, который, как я понял, открывает текстовый файл с разделителями, о чем я спрашивал раньше.

Dim Doc As Object
Dim FileProperties(0) As New com.sun.star.beans.PropertyValue
Dim Url As String
Url = "file:///C:/csv.doc"
FileProperties(0).Name = "FilterName"
FileProperties(0).Value ="scalc: Text - txt - csv (StarOffice Calc)"
Doc = StarDesktop.loadComponentFromURL(Url, "_blank", 0, FileProperties())

Но язык - Basic. Пишу на билдере недавно и никак не могу понять, как мне задать этот четвертый параметр? который в примере FileProperties?

До этого я не додумался, а ведь правда похоже, а как задать тип данной структуры, в коде это вроде бы com.sun.star.beans.PropertyValue.

spas2001элементы - string или массив char
-----------------------------------------------------------------------------
Главная деталь любой машины - голова ее владельца

Ну то что элементы string я понял, но все равно при вызове loadcomponentfromurl при следующим коде:

dw_2.SaveAs(ls_path,csv!,false)
s_oofilter lstr_filtr
lstr_filtr.Name = "FilterName"
lstr_filtr.Value ="scalc: Text - txt - csv (StarOffice Calc)"

ole_document=create oleobject
ole_desctop=CREATE oleobject

ole_desctop = o1.CreateInstance('com.sun.star.frame.Desktop')
ole_document = ole_desctop.LoadComponentFromURL('file:///' + ls_path, "_blank", 0,lstr_filtr)



Вылетает ошибка (вложена). Вообще мне кажется что все проблемы в кодировке из-за типа сохраняемого файла - excel5!, потому что, когда открываешь файл экселем, сохраняешь в формате ексель 2000, а потом открываешь документ в OOo, то все отображается нормально.

spas2001Лучше наверное не create, а ConnectToNewObject
и обращаться используя object
А что мешает сохранить в exel8!
-----------------------------------------------------------------------------
Главная деталь любой машины - голова ее владельца
ну функция коннект используется выше по скрипту, когда мы подключаем сервисменеджер. Может где то и ошибаюсь, просто в качестве вдохновления я использую документацию по openoffice.org basic, а там сказано то, что необходимо сначала подключить класс сервис, через коннект, а потом create. И уже затем открывать существующий документ. А насчет 8й версии эксель, пишем мы на 8 билдере, там в помощи его просто нет:( край, это 5.

С кодировкой разобрался, сохраняю документ в формате CSV, далее подключаю все нужные сервисы OOo, и открываю документ, сохраненный ранее. При этом задаю значения массива, которые указывают на то, что при открытии нужно использовать фильтр для csv.


Все отлично работает, но есть одно но: по умолчанию ООо открывает документ используя в качестве разделителя запятую, что неуместно, так как есть запятые и в ячейках. Может кто нибудь поделиться советом, какой параметр FilterOptions крутить, чтобы явно задать этот разделитель, или кинет ссылочку на документы. http://community.i-rs.ru/ уже просмотрел, вроде бы там нет примеров с конкретным разделителем. Буду благодарен:)