Нужен конвертер DBF в XLS

Форум » [x]Harbour » Нужен конвертер DBF в XLS » Ответить

Нужен конвертер DBF в XLS

Oskar_Aa: Добрый день, нужен конвертер формата DBF (консольный xHarbour) в формат XLS, с перекодировкой из 866 в 1251 Спасибо...

Ответов - 105, стр: 1 2 3 4 5 6 All

Pasha: Тогда уж лучше на форуме опубликуйте, больше шансов, что кто-то посмотрит и подскажет

Oskar_AAA: „P„‚„y„r„u„„ „r„ѓ„u„}! „I„ѓ„‡„Ђ„t„~„Ќ„z „„„u„{„ѓ„„ „{„Ђ„t„p Export:={} Aadd(Export,{"Code_Uprav","C",4,0}) Aadd(Export,{"Name_Uprav","C",20,0}) Aadd(Export,{"Name_Oil","C",10,0}) Aadd(Export,{"Ostat_N_Lt","N",13,2}) Aadd(Export,{"Ostat_N_Kg","N",13,2}) Aadd(Export,{"Prixod_Lt","N",13,2}) Aadd(Export,{"Plotnost","N",13,4}) Aadd(Export,{"Prixod_Kg","N",13,2}) Aadd(Export,{"Rasxod_Lt","N",13,2}) Aadd(Export,{"Rasxod_Kg","N",13,2}) Aadd(Export,{"Ostat_K_Lt","N",13,2}) Aadd(Export,{"Ostat_K_Kg","N",13,2}) Aadd(Export,{"Cena","N",6,2}) Aadd(Export,{"Fakt_N_lt","N",13,2}) Aadd(Export,{"Fakt_N_Kg","N",13,2}) Aadd(Export,{"Fakt_K_Lt","N",13,2}) Aadd(Export,{"Fakt_K_Kg","N",13,2}) Aadd(Export,{"Vdm_Lt","N",13,2}) Aadd(Export,{"Krt_Lt","N",13,2}) Aadd(Export,{"Ala_Lt","N",13,2}) Aadd(Export,{"Fgr_Lt","N",13,2}) Aadd(Export,{"Pro_Lt","N",13,2}) Aadd(Export,{"Kassa","N",13,2}) Aadd(Export,{"Delta_1","N",13,2}) Aadd(Export,{"Delta_2","N",13,2}) Aadd(Export,{"Vdm_Kg","N",13,2}) Aadd(Export,{"Krt_Kg","N",13,2}) Aadd(Export,{"Ala_Kg","N",13,2}) Aadd(Export,{"Fgr_Kg","N",13,2}) Aadd(Export,{"Data1","D",12,0}) Aadd(Export,{"Data2","D",12,0}) Aadd(Export,{"Record","N",12,0}) Aadd(Export,{"Recoil","N",3,0}) File_Ex:='01_Table' Net_Use(200,(Mar4+File_Ex),'Ex_Dbf',1,1) Index On Code_Uprav To (Mar4+'01_Table.Cdx') Set Index To (Mar4+'01_Table.Cdx') Select OILTYPE Count To Rc_OilKol For Type_Oil==1 Select DATAGSM Set Relation To Code_Oil Into OILTYPE Set Relation To Code_Uprav Into OFFICE Additive Select OFFICE Count To Kol_Lc For Type_Uprav==1 Kolf_Ntx:=Kol_Lc Kolf_Prc:=0 Set Order To 1 Set Filter To Type_Uprav==1 DbGoTop() Do While !Eof() Rec_Off:=Recno() Kode_Uprav:=Code_Uprav Ip_Movet(Padr('Ѓh„I„„„Ђ„s„Ђ„r„Ќ„z „Ђ„„„‰„u„„ ЃN '+Code_Uprav,69),Dy_15) Day_Azs1() Select OFFICE Set Order To 1 Goto Rec_Off Skip Enddo Set Filter To Select EX_DBF Pack Rc_Export:=Reccount() Repl All Record With Rc_Export,Recoil With Rc_OilKol Use Xls_File:=Mar4+File_Ex Dbf_File:=Mar4+File_Ex Xls_Copy:=Mar12+File_Ex Main_file:=Mar10+'Rpt_Azs' oExcel :=ToleAuto():New( "Excel.Application" ) oExcel :Visible := .F. oExcel :Workbooks:Open(Dbf_File) oRange := oExcel:ActiveCell:SpecialCells(xlLastCell) cRecno :=oRange:Row cColumn:=oRange:Column oExcel:Set( "DisplayAlerts",.F.) oAs:= oExcel:ActiveSheet() oAs:Columns(2):Font:Bold := .T. For J_Rec = 4 To cColumn-4 oAs:Columns(J_Rec):NumberFormat:= "# ##0,00;-0,00;" Next oAs:Columns(7):NumberFormat:= "0,0000;;" oAs:Range(oAs:Cells(2,2),oAs:Cells(cRecno,cColumn-4)):Borders(xlEdgeTop):LineStyle:= xlContinuous oAs:Range(oAs:Cells(2,2),oAs:Cells(cRecno,cColumn-4)):Borders(xlEdgeBottom):LineStyle:= xlContinuous oAs:Range(oAs:Cells(2,1),oAs:Cells(cRecno,cColumn-4)):Borders(xlEdgeRight):LineStyle:= xlContinuous oAs:Range(oAs:Cells(2,1),oAs:Cells(cRecno,cColumn-4)):Borders(xlInsideVertical):LineStyle:= xlContinuous oAs:Range(oAs:Cells(2,1),oAs:Cells(cRecno,cColumn-4)):Borders(xlInsideHorizontal):LineStyle:= xlContinuous For I_Rec = 2 To cRecno I_Rec1:=I_Rec-1 If I_Rec1/Rc_OilKol-Int(I_Rec1/Rc_OilKol)==0 I_Rec2:=(Int(I_Rec1/Rc_OilKol)-1)*(Rc_OilKol+1)+2 I_Rec3:=Int(I_Rec1/Rc_OilKol)*(Rc_OilKol+1)+1 I_Rec4:=I_Rec3-1 * If I_Rec3<cRecno oAs:Rows(I_Rec3):Font:Bold:= .T. oAs:Rows(I_Rec3):Interior:ColorIndex = 6 oAs:Rows(I_Rec3):WrapText = .T. oAs:Range(oAs:Cells(I_Rec2,2),oAs:Cells(I_Rec4,2)):Merge() oAs:Range(oAs:Cells(I_Rec2,2),oAs:Cells(I_Rec4,2)):HorizontalAlignment := xlCenter oAs:Range(oAs:Cells(I_Rec2,2),oAs:Cells(I_Rec4,2)):VerticalAlignment:= xlCenter * Endif Endif Next oAs:SaveAs(Xls_Copy,Excel97_10) oAs:Range(oAs:Cells(2,2),oAs:Cells(cRecno,cColumn-4)):Select() oAs:Range(oAs:Cells(2,2),oAs:Cells(cRecno,cColumn-4)):Copy() oExcel:Workbooks:Open(Main_File) oBook := oExcel:ActiveWorkBook oSheet:=oBook:Sheets(1) oAs :=oExcel:ActiveSheet() oAs:Cells(5,1):Select() oAs:Paste() oExcel:CutCopyMode :=.F. oAs:SaveAs(Main_File,Excel97_10) oExcel:Set( "DisplayAlerts",.T.) oExcel:Quit() Xls_Screen() ****************************** Export:={} Aadd(Export,{"Code_Uprav","C",4,0}) Aadd(Export,{"Name_Uprav","C",20,0}) Aadd(Export,{"Name_Oil","C",10,0}) Aadd(Export,{"Prixod_Lt","N",13,2}) Aadd(Export,{"Prixod_Kg","N",13,2}) Aadd(Export,{"Rasxod_Lt","N",13,2}) Aadd(Export,{"Rasxod_Kg","N",13,2}) Aadd(Export,{"Vdm_Lt","N",13,2}) Aadd(Export,{"Krt_Lt","N",13,2}) Aadd(Export,{"Ala_Lt","N",13,2}) Aadd(Export,{"Fgr_Lt","N",13,2}) Aadd(Export,{"Ostatok_Lt","N",13,2}) Aadd(Export,{"Ostatok_Kg","N",13,2}) Aadd(Export,{"Kassa","N",13,2}) Aadd(Export,{"Realnms_Lt","N",13,2}) Aadd(Export,{"Realnmk_Kg","N",13,2}) Aadd(Export,{"Kassanm","N",13,2}) File_Ex:='02_Table' Net_Use(200,(Mar4+File_Ex),'Ex_Dbf',1,1) Select DATAGSM Set Relation To Code_Oil Into OILTYPE Set Relation To Code_Uprav Into OFFICE Additive Select OFFICE Set Order To 1 Count To Kol_Lc For Type_Uprav==1 Kolf_Ntx:=Kol_Lc Kolf_Prc:=0 Set Filter To Type_Uprav==1 DbGoTop() Do While !Eof() Rec_Off:=Recno() Kode_Uprav:=Code_Uprav Ip_Movet(Padr('Ѓh„Q„p„ѓ„‰„u„„ „x„p „ѓ„…„„„{„y ' +Code_Uprav,69),Dy_15) Day_Azs2() Select OFFICE Set Order To 1 Goto Rec_Off Skip Enddo Set Filter To Select EX_DBF Use /// Xls_File:=Mar4+File_Ex Dbf_File:=Mar4+File_Ex Xls_Copy:=Mar12+File_Ex oExcel :=ToleAuto():New( "Excel.Application" ) oExcel :Visible := .F. oExcel :Workbooks:Open(Dbf_File) oRange := oExcel:ActiveCell:SpecialCells(xlLastCell) cRecno :=oRange:Row cColumn:=oRange:Column oExcel:Set( "DisplayAlerts",.F.) oAs:= oExcel:ActiveSheet() oAs:Columns(2):Font:Bold := .T. For J_Rec = 4 To cColumn oAs:Columns(J_Rec):NumberFormat:= "# ##0,00;-0,00;" Next oAs:Range(oAs:Cells(2,2),oAs:Cells(cRecno,cColumn)):Borders(xlEdgeTop):LineStyle:= xlContinuous oAs:Range(oAs:Cells(2,2),oAs:Cells(cRecno,cColumn)):Borders(xlEdgeBottom):LineStyle:= xlContinuous oAs:Range(oAs:Cells(2,1),oAs:Cells(cRecno,cColumn)):Borders(xlEdgeRight):LineStyle:= xlContinuous oAs:Range(oAs:Cells(2,1),oAs:Cells(cRecno,cColumn)):Borders(xlInsideVertical):LineStyle:= xlContinuous oAs:Range(oAs:Cells(2,1),oAs:Cells(cRecno,cColumn)):Borders(xlInsideHorizontal):LineStyle:= xlContinuous For I_Rec = 2 To cRecno I_Rec1:=I_Rec-1 If I_Rec1/Rc_OilKol-Int(I_Rec1/Rc_OilKol)==0 I_Rec2:=(Int(I_Rec1/Rc_OilKol)-1)*(Rc_OilKol+1)+2 I_Rec3:=Int(I_Rec1/Rc_OilKol)*(Rc_OilKol+1)+1 I_Rec4:=I_Rec3-1 * If I_Rec3<cRecno oAs:Rows(I_Rec3):Font:Bold:= .T. oAs:Rows(I_Rec3):Interior:ColorIndex = 6 oAs:Rows(I_Rec3):WrapText = .T. oAs:Range(oAs:Cells(I_Rec2,2),oAs:Cells(I_Rec4,2)):Merge() oAs:Range(oAs:Cells(I_Rec2,2),oAs:Cells(I_Rec4,2)):HorizontalAlignment := xlCenter oAs:Range(oAs:Cells(I_Rec2,2),oAs:Cells(I_Rec4,2)):VerticalAlignment:= xlCenter * Endif Endif Next oAs:SaveAs(Xls_Copy,Excel97_10) oAs:Range(oAs:Cells(2,2),oAs:Cells(cRecno,cColumn)):Select() oAs:Range(oAs:Cells(2,2),oAs:Cells(cRecno,cColumn)):Copy() oExcel:Workbooks:Open(Main_File) oBook := oExcel:ActiveWorkBook oSheet:=oBook:Sheets(2) oAs :=oExcel:ActiveSheet() oAs:Cells(5,1):Select() oAs:Paste() oExcel:CutCopyMode :=.F. oAs:SaveAs(Main_File,Excel97_10) oExcel:Set( "DisplayAlerts",.T.) oExcel:Quit() *Dbf_to_Xls(Mar4+File_Ex,1) Xls_Screen() „x„p„t„p„‰„p „ѓ„Ђ„ѓ„„„Ђ„y„„ „r „„„Ђ„} „‰„„„Ђ „‡„Ђ„‰„… „ѓ„t„u„|„p„„„Ћ 1. „O„„„{„‚„Ќ„„„Ћ „O„q„‹„y„z „†„p„z„| „Ђ„„„‰„u„„„p MAIN_FILE „†„Ђ„‚„}„p„„„p XLS, „r „~„u„} „~„u„ѓ„{„Ђ„|„Ћ„{„Ђ „|„y„ѓ„„„Ђ„r, „~„p „{„p„w„t„Ђ„} „ѓ„r„Ђ„‘ „Љ„p„Ѓ„{„p („s„Ђ„„„Ђ„r„Ђ) 2. „Ѓ„‚„Ђ„s„‚„p„}„}„p „†„Ђ„‚„}„y„‚„…„u„„ „|„Ђ„{„p„|„Ћ„~„Ќ„u „†„p„z„|„Ќ „†„Ђ„‚„}„p„„„p DBF „y „Ѓ„u„‚„u„r„Ђ„t„y„„ „y„‡ „r „†„Ђ„‚„}„p„„ XLS „y „x„p„Ѓ„y„ѓ„Ќ„r„p„u„„ „~„p „t„y„ѓ„{ („s„Ђ„„„Ђ„r„Ђ) „‰„„„Ђ „~„…„w„~„Ђ „ѓ„t„u„|„p„„„Ћ 1. „Ђ„„„{„‚„Ќ„„„Ћ „|„Ђ„{„p„|„Ћ„~„Ќ„z „Ђ„„„‰„u„„ XLS 2. „ѓ„{„Ђ„Ѓ„y„‚„Ђ„r„p„„„Ћ „t„y„p„Ѓ„p„x„Ђ„~ „‘„‰„u„u„{ 3. „Ѓ„u„‚„u„z„„„y „~„p „…„{„p„x„p„~„~„Ќ„z „|„y„ѓ„„ „Ђ„„„‰„u„„„p MAIN_FILE 4. „r„ѓ„„„p„r„y„„„Ћ „t„p„~„~„Ќ„u „y„x „|„Ђ„{„p„|„Ћ„~„Ђ„s„Ђ „Ђ„„„‰„u„„„p „Ѓ„Ђ„r„„„Ђ„‚„y„„„Ћ „Ѓ. 1 - 3 „~„…„w„~„Ђ„u „{„Ђ„|„y„‰„u„ѓ„„„r„Ђ „‚„p„x („ѓ„{„Ђ„|„Ћ„{„Ђ „|„y„ѓ„„„Ђ„r „r „Ђ„„„‰„u„„„u MAIN_FILE) 5. „H„p„Ѓ„y„ѓ„p„„„Ћ „Ђ„„„‰„u„„ MAIN_FILE „r „Ѓ„‚„y„r„u„t„u„~„~„Ђ„} „Ѓ„‚„y„}„u„‚„u „r „|„y„ѓ„„ 1 „Ђ„„„‰„u„„„p MAIN_FILE „Ѓ„‚„r„y„|„Ћ„~„Ђ „Ѓ„u„‚„u„t„p„ђ„„„ѓ„‘ „t„p„~„~„Ќ„u „|„Ђ„{„p„|„Ћ„~„Ђ„s„Ђ „Ђ„„„‰„u„„„p '01_Table', „r „~„p „|„y„ѓ„„2 „Ђ„„„‰„u„„„p MAIN_FILE „r„ѓ„„„p„r„|„‘„ђ„„„ѓ„‘ „t„p„~„~„Ќ„u „y„x „|„Ђ„{„p„|„Ћ„~„Ђ„s„Ђ „Ђ„„„‰„u„„„p '01_table' „p „x„p„„„u„} „Ѓ„Ђ„r„u„‚„‡ „~„y„‡ „P„‚„p„r„y„|„Ћ„~„Ќ„u „t„p„~„~„Ќ„u „y„x „|„Ђ„{„p„|„Ћ„~„Ђ„s„Ђ „Ђ„„„‰„u„„„p '02_table'.... „~„u „x„~„p„ђ „{„p„{ „Ђ„‰„y„ѓ„„„y„„„Ћ „q„…„†„u„‚ „Ѓ„Ђ„ѓ„|„u „Ђ„Ѓ„u„‚„p„?„y„y „Ropy() „y Paste()??? „t„…„}„p„ђ „‰„„„Ђ „Ѓ„‚„Ђ„q„|„u„}„p „y„}„u„~„~„Ђ „r „Џ„„„Ђ„}. „N„Ђ „~„p„t„Ђ „y„x„‘„‹„~„Ђ: 1 .„O„t„y„~ „‚„p„x „Ђ„„„‚„Ќ„„„Ћ „ѓ„r„Ђ„t„~„Ќ„z „Ђ„„„‰„u„„ MAIN_FILE 2. „P„Ђ„ѓ„|„u„t„Ђ„r„p„„„u„|„Ћ„~„Ђ „Ђ„„„{„‚„Ќ„r„p„„„Ћ „|„Ђ„{„p„|„Ћ„~„Ќ„u „Ђ„„„‰„u„„„Ќ Dbf->XLS 3. „B„Ќ„q„y„‚„p„„„Ћ „t„p„~„~„Ќ„u „y„x „|„Ђ„{„p„|„Ћ„~„Ќ„Ђ„s„Ђ „Ђ„„„‰„u„„„p Dbf->XLS 4. „P„u„‚„u„z„„„y „r „ѓ„r„Ђ„t„~„Ќ„z „Ђ„„„‰„u„„ MAIN_FILE 5. „B„Ќ„q„‚„p„„„Ћ „~„…„w„~„Ќ„z „|„y„ѓ„„ 6. „B„ѓ„„„p„r„y„„„Ћ „t„p„~„~„Ќ„u „y„x „|„Ђ„{„p„|„Ћ„~„Ђ„s„Ђ „Ђ„„„‰„u„„„p Dbf->XLS 7. „O„‰„y„ѓ„„„y„„„Ћ „q„…„†„u„‚ „Ђ„q„}„u„~„p „y„„„t „‚„| „Ѓ 2-7 8.„H„p„Ѓ„y„ѓ„p„„„Ћ „ѓ„r„Ђ„t„~„Ќ„z „Ђ„„„‰„u„„ MAIN_FILE 9.„D„u„p„{„„„y„r„y„‚„Ђ„r„p„„„Ћ Excel. PS. „†„…„~„{„?„y„y DAY_AZS1, DAY_AZS2 - „‚„p„ѓ„‰„u„„ „t„p„~„~„Ќ„‡ „A„D „y „x„p„Ѓ„y„ѓ„Ћ „r „|„Ђ„{„p„|„Ћ„~„…„ђ „A„D

S-A-N: Oskar_AAA пишет: „x„p„t„p„‰„p „ѓ„Ђ„ѓ„„„Ђ„y„„ „r „„„Ђ„} „‰„„„Ђ „‡„Ђ„‰„… „ѓ„t„u„|„p„„„Ћ 1. „O„„„{„‚„Ќ„„„Ћ „O„q„‹„y„z „†„p„z„| „Ђ„„„‰„u„„„p MAIN_FILE „†„Ђ„‚„}„p„„„p XLS, „r „~„u„} „~„u„ѓ„{„Ђ„|„Ћ„{„Ђ „|„y„ѓ„„„Ђ„r, „~„p „{„p„w„t„Ђ„} „ѓ„r„Ђ„‘ „Љ„p„Ѓ„{„p („s„Ђ„„„Ђ„r„Ђ) 2. „Ѓ„‚„Ђ„s„‚„p„}„}„p „†„Ђ„‚„}„y„‚„…„u„„ „|„Ђ„{„p„|„Ћ„~„Ќ„u „†„p„z„|„Ќ „†„Ђ„‚„}„p„„„p DBF „y „Ѓ„u„‚„u„r„Ђ„t„y„„ „y„‡ „r „†„Ђ„‚„}„p„„ XLS „y „x„p„Ѓ„y„ѓ„Ќ„r„p„u„„ „~„p „t„y„ѓ„{ („s„Ђ„„„Ђ„r„Ђ) Это на каком языке :))

SADSTAR4: Круто - ни одного комментария. Через неделю сам поймешь что там делается? Код лучше вставлять в тэгах [ pre ][ /pre ] которые вставляются кнопкой < 123 > (или набрать вручную) Тогда сохраняются отступы (если они есть в тексте). Если в тексте есть "[ i ]" (="["+"i"+"]") то нужно заменить на "["+" "+"i"+" "+"]" т.е. вставить пробелы между скобками и i, т.к. сайт понимает это как тэг перехода на шрифт Italic.

Oskar_AAA: Круто написал... на предпросмотре было ОК... комметарии к тексту. 1. Проходит обработка БД и создание локальных DBF файлов (01_table, 02_table итд) 2. Преобразование локальных DBF файлов (01_table, 02_table итд) в формат XLS и форматирование ячеек 3.Запись XLS файлов на диск в текщем коде формирование локальных XLS и их форматирование проходит нормально. Но хочу сделать следующее: 1.Открыть сводный отчет XLS (Main_File) - в нем 9 Листов, с шапками и прочими атрибутами 2.Открывать локальные XLS файлы (01_table, 02_table .... 09_table) 3.Копировать диапазон ячеек, уже сформатированных 4.Перейти в сводный отчет XLS (Main_File) 5.Установить нужный лист 6.Вставить данные локального отчета XLS 7. Повторить п 2-6 в данном случае 9 раз (01_table, 02_table ..... 09_table) 8.Записать сводный отчет XLS Main_File. в коде программы есть функции DAY_AZS1, DAY_AZS2 - это обработка основной БД, расчет и ФОРМИРОВАНИЕ выходных локальных DBF Копирование данных проходит в первом случае (01_table) проходит правильно, при переходе к обработке 02_table и переходе к листу 2 отчета MAIN_FILE происходит копирование данных из 01_table а затем уже из 02_Table.... Вопросы: Как очистить буфер обмена? Как организовать последовательный переход между книгами и листами, ранее уже открытыми? Форумчане , прошу помочь советами... Сейчас я каждый раз открываю сводный MAIN_FILE, затем открываю локальный 01_table.xls копирую данные и ЗАКРЫВАЮ оба файла, затем снова открываю сводный MAIN_FILE и локальный 02_table.xls.

Oskar_AAA: Не понял как организовать тэги, для передачи PRG в явном виде, т.е. с отспупами ?

Pasha: Oskar_AAA пишет: Вопросы: Как очистить буфер обмена? Как организовать последовательный переход между книгами и листами, ранее уже открытыми? 1. hb_gtinfo(HB_GTI_CLIPBOARDDATA, "") 2. oBook:Sheets(n):Select()

Oskar_AAA: Pasha, добрый день. п.1 консольный xharbour, какая там команда п.2 можно по нагляднее, подробнее описать oBook:Sheets(1):Select() //// oBook1:Sheets(1):Select()Psate() ////

Pasha: 1. Эта функция как раз для консольного харбора. Надо только включить hbgtinfo.ch 2. oSeet:Select() делает указанный лист активным Затем в этом листе надо выбрать нужную ячейку, и вызвать для листа метод Paste() Метод Paste можно вызвать как для активного листа (переменная oAs), так и для произвольного: oSheet5 := oBook:Sheets(5) oSheet5:Paste() или oBook:Sheets(5):Select() oAs:Paste()

Oskar_AAA: Ошибка Error: Unresolved external '_HB_FUN_HB_GETINFO' referenced from COM_003.prg в начале проги подключаются # Include 'Command.Ch' # Include 'Inkey.Ch' # Include 'Dbedit.Ch' # Include 'Setcurs.ch' # Include 'Excel.Ch' # Include 'Hbgtinfo.Ch' /// /// oAs:Range(oAs:Cells(2,2),oAs:Cells(cRecno,cColumn-4)):Select() oAs:Range(oAs:Cells(2,2),oAs:Cells(cRecno,cColumn-4)):Copy() oExcel :Workbooks:Open(Main_File) oBook :=oExcel:ActiveWorkBook oSheet:=oBook :Sheets(1) oAs :=oExcel:ActiveSheet() oAs :Cells(5,1):Select() oAs :Paste() oAs :=Hb_getInfo(HB_GTI_CLIPBOARDDATA, "") oExcel:CutCopyMode :=.F. oAs :=Hb_getInfo(HB_GTI_CLIPBOARDDATA, "") это я правильно записал? Что дальше?

Pasha: Oskar_AAA пишет: Ошибка Error: Unresolved external '_HB_FUN_HB_GETINFO' referenced from COM_003.prg Опять очепятка. Надо вызывать функцию hb_gtinfo()

Oskar_AAA: oAs :Cells(5,1):Select() oAs :Paste() oAs :Hb_getInfo('') Error Excel.Application:ACTIVESHEET/3 DISP_E_MEMBERNOTFOUND: HB_GETINFO Arguments: ( [ 1] = Type: C Val: )

Pasha: Я два раза написал имя функции hb_gtinfo(), а Вы упорно пишите зачем-то hb_getinfo Где я показывал, что hb_gtinfo - это метод обьекта Sheet ? Это функция, и ее надо вызывать так: Hb_getInfo(HB_GTI_CLIPBOARDDATA, "") Зачем ее результат присваивать обьекту Sheet ?

Oskar_AAA: Pasha, туго мне с этим направлением, поэтому мучаю Вас и самому тоскливо... oAs:Range(oAs:Cells(2,2),oAs:Cells(cRecno,cColumn-4)):Select() oAs:Range(oAs:Cells(2,2),oAs:Cells(cRecno,cColumn-4)):Copy() oExcel :Workbooks:Open(Main_File) oBook :=oExcel:ActiveWorkBook oSheet:=oBook :Sheets(1) oAs :=oExcel:ActiveSheet() oAs :Cells(5,1):Select() oAs :Paste() Hb_getInfo(HB_GTI_CLIPBOARDDATA, "") Все варно ошибка Error: Unresolved external '_HB_FUN_HB_GETINFO' Покажи на этом фрагменте как правильно записать....

Pasha: hb_gtinfo(HB_GTI_CLIPBOARDDATA, "")

Oskar_AAA: Pasha, так и написано hb_gtinfo(HB_GTI_CLIPBOARDDATA, "") но ошибка то осталась, похоже я точно устал....., может какую-то Lib надо подключить? Список библиотек, подключаемых при формировании EXE lang.lib vm.lib rtl.lib rdd.lib macro.lib pp.lib dbfcdx.lib dbffpt.lib common.lib gtwin.lib codepage.lib ct.lib tip.lib pcrepos.lib hsx.lib hbsix.lib zlib.lib debug.lib import32.lib cw32.lib DbfNtx.Lib

Pasha: В старых версих xHarbour эта функция называлась gtinfo()

Oskar_AAA: „D„Ђ„q„‚„Ќ„z „t„u„~„Ћ.... „N„u „Ѓ„Ђ„|„…„‰„p„u„„„ѓ„‘ „Ѓ„Ђ„ѓ„|„u„t„Ђ„r„p„„„u„|„Ћ„~„Ђ „Ђ„„„{„‚„Ќ„„„Ћ, „r„Ќ„q„‚„p„„„Ћ „t„y„p„Ѓ„p„x„Ђ„~ „‘„‰„u„u„{ „y„x „Ђ„t„~„Ђ„z „{„~„y„s„y, „ѓ„{„Ђ„Ѓ„y„‚„Ђ„r„p„„„Ћ „y „r„ѓ„„„p„r„y„„„Ћ „r „|„y„ѓ„„ „t„‚„…„s„Ђ„z „{„~„y„s„y... Pasha, Sadstar4, „‰„„„Ђ „~„u „„„p„{ „r „{„Ђ„t„u. // „ѓ„r„Ђ„t„~„Ќ„z „Ђ„„„‰„u„„ XLS Main_File:=Mar10+'Rpt_Azs' oExcel_S:=ToleAuto():New("Excel.Application") oExcel_S:Workbooks:Open(Main_File) oBook_S :=oExcel_S:ActiveWorkBook oExcel_S:Set( "DisplayAlerts",.F.) oAs_S :=oExcel_S:ActiveSheet() oSheet_S:=oBook_S :Sheets(1) oExcel_S:Visible := .T. // 1 xls „Ђ„„„‰„u„„ File_Ex:='01_Table' Xls_Copy:=Mar12+File_Ex oExcel :Workbooks:Open(Xls_Copy) oExcel :Set( "DisplayAlerts",.F.) oAs:= oExcel:ActiveSheet() oRange := oExcel:ActiveCell:SpecialCells(xlLastCell) cRecno :=oRange:Row cColumn:=oRange:Column oAs:Range(oAs:Cells(2,2),oAs:Cells(cRecno,cColumn-4)):Select() oAs:Range(oAs:Cells(2,2),oAs:Cells(cRecno,cColumn-4)):Copy() // „Ѓ„u„‚„u„‡„Ђ„t „~„p „ѓ„r„Ђ„t„~„Ќ„z „Ђ„„„‰„u„„ oAs_S:Cells(5,1):Select() oAs_S:Paste() Hb_gtInfo(HB_GTI_CLIPBOARDDATA, "") oExcel:CutCopyMode := .F. oExcel:Quit() *oAs_S:SaveAs(Main_File,Excel97_10) *oExcel_S:Quit() *Main_File:=Mar10+'Rpt_Azs' *oExcel_S:=ToleAuto():New("Excel.Application") *oExcel_S:Workbooks:Open(Main_File) *oBook_S :=oExcel_S:ActiveWorkBook // 2 XLS „Ђ„„„‰„u„„ File_Ex:='02_table' Xls_Copy:=Mar12+File_Ex oExcel :Workbooks:Open(Xls_Copy) oAs:= oExcel:ActiveSheet() oExcel :Visible := .T. oExcel :Set( "DisplayAlerts",.F.) oRange := oExcel:ActiveCell:SpecialCells(xlLastCell) cRecno :=oRange:Row cColumn:=oRange:Column oAs:Range(oAs:Cells(2,2),oAs:Cells(cRecno,cColumn)):Select() oAs:Range(oAs:Cells(2,2),oAs:Cells(cRecno,cColumn)):Copy() oExcel:Quit() // „Ѓ„u„‚„u„‡„Ђ„t „~„p „ѓ„r„Ђ„t oBook_S :=oExcel_S:ActiveWorkBook oAs_S :=oExcel:ActiveSheet() oSheet_S:=oBook_S :Sheets(2) oAs_S :Cells(5,1):Select() oAs_S:Paste() oAs_S:SaveAs(Main_File,Excel97_10) Hb_gtInfo(HB_GTI_CLIPBOARDDATA, "") oExcel:CutCopyMode := .F. oAs_S:SaveAs(Main_File,Excel97_10) // „x„p„Ѓ„y„ѓ„Ћ „ѓ„r„Ђ„t„~„Ђ„s„Ђ „Ђ„„„‰„u„„„p oExcel_S:Quit() „B„Ќ„|„u„„„p„u„„ „Ђ„Љ„y„q„{„p Error BASE/1004 Class: 'NIL' has no exported method: CELLS Arguments: ( [ 1] = | |Type: U [ 2] = Type: N Val: 5 [ 3] = Type: N Val: 1) „ | „r„Ђ„„ „~„p „Џ„„„Ђ„z „ѓ„„„‚„Ђ„{„u „y „Џ„„„Ђ „Ѓ„‚„y „Ђ„q„‚„p„q„Ђ„„„{„u 2 XLS oAs_S :Cells(5,1):Select()

Oskar_AAA: Опять кракозябры.... Ошибка Error BASE/1004 Class: 'NIL' has no exported method: CELLS Arguments: ( [ 1] = | |Type: U [ 2] = Type: N Val: 5 [ 3] = Type: N Val: 1) „ при обработке 2 отчета.... Как написать, что бы не было Кракозябриков?

AlexMyr: Oskar_AAA пишет: Как написать, что бы не было Кракозябриков? Прикрепить файл.

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