Форум » [x]Harbour » Нужен конвертер DBF в XLS
	перенос

Автор

Сообщение

Oskar_Aa

Пост N: 4 Зарегистрирован: 05.08.08

Отправлено: 12.05.09 10:16. Заголовок: Нужен конвертер DBF в XLS

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

Ответов - 105 , стр: 1 2 3 4 5 6 All [только новые]

Pasha
Администратор
Пост N: 2087 Зарегистрирован: 23.05.05

Отправлено: 29.09.11 14:27. Заголовок: Тогда уж лучше на фо..

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

Oskar_AAA

Пост N: 16 Зарегистрирован: 09.09.11

Отправлено: 29.09.11 15:04. Заголовок: „P„‚„y„r„u„„ „r„ѓ„u„..

„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

Пост N: 54 Зарегистрирован: 22.09.09

Отправлено: 29.09.11 20:31. Заголовок: Oskar_AAA пишет: „x..

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

Пост N: 25 Зарегистрирован: 08.02.11

Отправлено: 30.09.11 01:27. Заголовок: Круто - ни одного ко..

Круто - ни одного комментария. Через неделю сам поймешь что там делается?

Код лучше вставлять в тэгах [ pre ][ /pre ] которые вставляются кнопкой < 123 > (или набрать вручную)
Тогда сохраняются отступы (если они есть в тексте).

Если в тексте есть "[ i ]" (="["+"i"+"]") то нужно заменить на "["+" "+"i"+" "+"]"
т.е. вставить пробелы между скобками и i, т.к. сайт понимает это как тэг перехода на шрифт Italic.

Oskar_AAA

Пост N: 17 Зарегистрирован: 09.09.11

Отправлено: 30.09.11 05:19. Заголовок: Круто написал... на ..

Круто написал... на предпросмотре было ОК...
комметарии к тексту.
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

Пост N: 18 Зарегистрирован: 09.09.11

Отправлено: 30.09.11 05:24. Заголовок: Не понял как организ..

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

Pasha
Администратор
Пост N: 2088 Зарегистрирован: 23.05.05

Отправлено: 30.09.11 08:56. Заголовок: Oskar_AAA пишет: Во..

Oskar_AAA пишет:

цитата:

Вопросы:
Как очистить буфер обмена?
Как организовать последовательный переход между книгами и листами, ранее уже открытыми?

1. hb_gtinfo(HB_GTI_CLIPBOARDDATA, "")

2. oBook:Sheets(n):Select()

Oskar_AAA

Пост N: 19 Зарегистрирован: 09.09.11

Отправлено: 30.09.11 10:24. Заголовок: Pasha, добрый день. ..

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

Pasha
Администратор
Пост N: 2089 Зарегистрирован: 23.05.05

Отправлено: 30.09.11 11:12. Заголовок: 1. Эта функция как р..

1. Эта функция как раз для консольного харбора. Надо только включить hbgtinfo.ch

2. oSeet:Select() делает указанный лист активным
Затем в этом листе надо выбрать нужную ячейку, и вызвать для листа метод Paste()
Метод Paste можно вызвать как для активного листа (переменная oAs), так и для произвольного:

oSheet5 := oBook:Sheets(5)
oSheet5:Paste()

или

oBook:Sheets(5):Select()
oAs:Paste()

Oskar_AAA

Пост N: 20 Зарегистрирован: 09.09.11

Отправлено: 30.09.11 11:41. Заголовок: Ошибка Error: Unres..

Ошибка
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
Администратор
Пост N: 2090 Зарегистрирован: 23.05.05

Отправлено: 30.09.11 11:52. Заголовок: Oskar_AAA пишет: Ош..

Oskar_AAA пишет:

цитата:

Ошибка
Error: Unresolved external '_HB_FUN_HB_GETINFO' referenced from COM_003.prg

Опять очепятка. Надо вызывать функцию hb_gtinfo()

Oskar_AAA

Пост N: 21 Зарегистрирован: 09.09.11

Отправлено: 30.09.11 12:00. Заголовок: oAs :Cells(5,1):Se..

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
Администратор
Пост N: 2091 Зарегистрирован: 23.05.05

Отправлено: 30.09.11 12:26. Заголовок: Я два раза написал и..

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

Hb_getInfo(HB_GTI_CLIPBOARDDATA, "")

Зачем ее результат присваивать обьекту Sheet ?

Oskar_AAA

Пост N: 22 Зарегистрирован: 09.09.11

Отправлено: 30.09.11 12:42. Заголовок: Pasha, туго мне с эт..

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
Администратор
Пост N: 2092 Зарегистрирован: 23.05.05

Отправлено: 30.09.11 13:05. Заголовок: hb_gtinfo(HB_GTI_CLI..

hb_gtinfo(HB_GTI_CLIPBOARDDATA, "")

Oskar_AAA

Пост N: 23 Зарегистрирован: 09.09.11

Отправлено: 30.09.11 13:35. Заголовок: Pasha, так и написан..

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
Администратор
Пост N: 2093 Зарегистрирован: 23.05.05

Отправлено: 30.09.11 13:51. Заголовок: В старых версих xHar..

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

Oskar_AAA

Пост N: 24 Зарегистрирован: 09.09.11

Отправлено: 04.10.11 05:48. Заголовок: „D„Ђ„q„‚„Ќ„z „t„u„~„..

„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

Пост N: 25 Зарегистрирован: 09.09.11

Отправлено: 04.10.11 07:49. Заголовок: Опять кракозябры......

Опять кракозябры....
Ошибка
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

Пост N: 292 Зарегистрирован: 11.06.10

Отправлено: 04.10.11 08:25. Заголовок: Oskar_AAA пишет: Ка..

Oskar_AAA пишет:

цитата:

Как написать, что бы не было Кракозябриков?

Прикрепить файл.

Ответов - 105 , стр: 1 2 3 4 5 6 All [только новые]

Ответ:

1 2 3 4 5 6 7 8 9

показывать это сообщение только модераторам
не делать ссылки активными

Имя, пароль:

зарегистрироваться

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

Тему читают:

- участник сейчас на форуме

- участник вне форума

Все даты в формате GMT 3 час. Хитов сегодня: 5
Права: смайлы да, картинки да, шрифты да, голосования нет
аватары да, автозамена ссылок вкл, премодерация откл, правка нет

Создай свой форум на сервисе Borda.ru
Форум находится на 59 месте в рейтинге
Текстовая версия