Форум » [x]Harbour » Прошу помощи c Excel » Ответить

Прошу помощи c Excel

Allcome: Всем привет! Помогите разобраться! При выполнении COPY FILE ( PATHDB + 'DOGTMP.XLS' ) TO (NAMEFILE) oExcel := CreateObject( "Excel.Application" ) oExcel:DisplayAlerts := .F. oExcel:visible := .F. oBook := oExcel:workbooks:Open(NAMEFILE) - ////////// oSheet := oBook:Sheets( 1 ) oSheet:Cells( 1, 'A' ):value := 'СТРУКТУРА ОСТРЫХ ОТРАВЛЕНИЙ ХИМИЧЕСКОЙ ЭТИОЛОГИИ ' oExcel:Visible := .T. oBook:Close(.f.) oExcel:Quit() программы вылетает с ошибкой: Error 1555428/-2147352562 DISP_E_BADPARAMCOUNT: OPEN Called from TOLEAUTO:OPEN(0) Called from VIH_DOG(388) Подскажите, где я что не так делаю?!!!

Ответов - 13

Dima: Allcome пишет: NAMEFILE Полный путь к файлу указан ?

Allcome: Да, конечно. Local NAMEFILE := PATHTM + 'ST_' + ALLTRIM(STR(INT(SECONDS()))) + '.XLS'

Dima: А на какой строке падает ?


Allcome: Падает на этом oBook := oExcel:workbooks:Open(NAMEFILE) Файл физически существует

Dima: Смотри тему http://clipper.borda.ru/?1-4-0-00000459-000-10001-0-1317656618 Внутри ищи по тексту DISP_E_BADPARAMCOUNT

Allcome: Спасибо большое. Буду искать!

Pasha: Я открываю документы Excel вызовом: oExcel:workbooks:Open(<NAMEFILE>, 0) 2-й параметр: UpdateLinks - наверное, в некоторых версиях Office обязателен.

Allcome: Спасибо за помощь. Проблема оказалась в полном пути к файлу при открытии его. Как только указан путь с именем диска - всё срастается.

Dazzler: Всем Привет! Подскажите, Какую библиотеку надо подключать чтобы откомпилировать текст выше?

Dima: Dazzler пишет: Какую библиотеку надо подключать чтобы откомпилировать текст выше? Hbmk2 сам вообще то пишет какую , ну если сам Harbour не очень древний. HBWIN либу надо включить в сборку.

Dazzler: подключил, не собирается. пишет: Harbour 3.2.0dev (r1410240213) Copyright (c) 1999-2014, http://harbour-project.org/ Compiling 'exceltest.prg'... 100 200 Lines 241, Functions/Procedures 1 Generating C source output to 'C:\Temp\hbmk_dr9gs2.dir\exceltest.c'... Done. C:\Temp\hbmk_dr9gs2.dir\exceltest.c: hbmk2: Hint: Add option 'xhb.hbc' for missing function(s): CreateObject()

Dima: Dazzler пишет: Add option 'xhb.hbc' Добавляем еще либу XHB

Dazzler: Собралось без ошибок! Спасибо



полная версия страницы