Monggo yg perlu dw2xls silahkan ambil aja, gratis-tis ... in versi 7, kl mau ke versi atasnya tinggal direbuild aja.
________________________________ From: Hermawan Dephe <[email protected]> To: [email protected] Sent: Tue, July 19, 2011 8:43:37 AM Subject: Re: Bls: Trs: [indopb] save to excell with htmltable o.. mungkin bs pake dw2xls monggo yg punya.... silahkan dishare... NASRULLAH ARUL wrote: >klo lewat excell langsung tampilan report yang di excell tidak sama dengan >yang >ada di datawindow, jadi saya saveas ke htmltable dulu baru ke excell... > > > ________________________________ Dari: Afrianto Dulbahri ST. <[email protected]> >Kepada: [email protected] >Terkirim: Sel, 19 Juli, 2011 08:32:09 >Judul: Re: Trs: [indopb] save to excell with htmltable > > >Pak Nasrullah, > >Kenapa tidak langsung ke Excel saja? > >IF (dw_report.SaveAs(pv_filename,HtmlTable!,False)) <= 0 THEN > >diubah menjadi > >IF (dw_report.SaveAs(pv_filename,Excel!,False)) <= 0 THEN > >Salam, >Afri > >>>> NASRULLAH ARUL <[email protected]> 7/19/2011 9:23 AM >>> > >Master2 pb sekalian, saya mau bertanya, kenapa bila menggunakan versi pb.11.5 >waktu save to excell selalu nambah 1 baris di atas header,kadang2 juga >manambah >jumlah kolom, sedangkan bila memakai versi bawaanya yaitu pb.5 tidak mengalami >kendala demikian, ada yang bisa bantu..! > > >ini contoh scripnya..kira2 ada yang kurang .. > > >OLEObject oWorkBook >OLEObject oExcel >OLEObject oActiveSheet >OleObject oRange,oRange1,oRange2 > > >Long ll_dwrow,ll_dwcol,ll_dwcolcount,ll_dwrowcount >String ls_columns[],ls_columnname,ls_lastcol >Any lany_value >Integer I,li_rec,li_displaynamestyle_org,li_lastcol >Integer li_maxcols = 256,li_teller > > >IF (dw_report.SaveAs(pv_filename,HtmlTable!,False)) <= 0 THEN >This.SetMicrohelp("Error while saving to temporary file .....") >RETURN -1 >END IF > > >IF FileExists(is_filenamecomplete) THEN >IF Not FileDelete(is_filenamecomplete) THEN > THIS.SetMicrohelp("Error while deleting Target file ...") > RETURN -1 > END IF >END IF > > >oExcel = CREATE OLEObject >IF oExcel.ConnectToNewObject("Excel.Application") <> 0 THEN > THIS.SetMicrohelp("Error while connecting to Excel ...") > f_error('A',67,'"Could Not Connect To Excel"','','') > RETURN -1 >END IF > > >oExcel.Application.Visible = TRUE > > >oWorkBook = CREATE OleObject >THIS.SetMicrohelp("Opening Temporary File ...") >oWorkBook = oExcel.Workbooks.OPEN(pv_filename) > > >THIS.SetMicrohelp("Saving As Excel Workbook ...") >//oWorkBook.SaveAs(is_filenamecomplete,-4143) >oWorkBook.SaveAs(pv_filename,-4143) > > >FileDelete(pv_filename) > > >oActiveSheet = CREATE OleObject >oActiveSheet = oWorkBook.ActiveSheet > > >//oActiveSheet = oWorkBook.Worksheets.Add > > >THIS.SetMicrohelp("Applying Lay-out ...") > > >oActiveSheet.Cells.SELECT >oExcel.Selection.MergeCells = FALSE >oExcel.Selection.Wraptext = FALSE >oExcel.Selection.Columns.Autofit() > > >//oActiveSheet.Rows("1:1").SELECT >oRange = CREATE OleObject >oRange = oExcel.Selection >//oRange.DELETE(-4162) > > >oRange1 = CREATE OleObject >oRange2 = CREATE OleObject > > >SetNull(ls_lastcol) > > >//oExcel.Application.Cells(1,1).value = 24 > > > > >//FOR I = 255 TO 1 STEP -1 >//IF NOT IsNull(oExcel.Application.Cells(1,I).Value) THEN >//ls_lastcol = String(oExcel.ActiveSheet.Cells(1,I).Value) >//EXIT >//END IF >//NEXT > > >I = 1 > > >DO WHILE TRUE AND NOT IsNull(ls_lastcol) //AND NOT dw_xls.ib_isfreeform >oWorkBook.Save() >li_teller ++ >IF li_teller > li_maxcols THEN >EXIT >END IF >//lany_value = oExcel.Cells(1,I).Value >// >//IF IsNull(lany_value) THEN >// oActiveSheet.Cells(1,I).SELECT >// oRange1 = oExcel.Selection >// >// oActiveSheet.Cells(65536,I).SELECT >// oRange2 = oExcel.Selection >// >// oActiveSheet.Range(oRange1,oRange2).SELECT >// oRange = oExcel.Selection >// >// oRange.DELETE >// ELSE >//If String(lany_value) <> ls_lastcol Then >//I = I + 1 >//ELSE >//EXIT >// END IF >// END IF >LOOP > > >oActiveSheet.Cells.Select >oExcel.Selection.Wraptext = False >oExcel.Selection.Columns.Autofit() >oExcel.Selection.Rows.Autofit() >//oActiveSheet.Cells(1,1).Select > > >oRange1.DisconnectObject() >DESTROY oRange1 > > >oRange2.DisconnectObject() >DESTROY oRange2 > > >oRange.DisconnectObject() >DESTROY oRange > > >oActiveSheet.DisconnectObject() >DESTROY oActiveSheet > > >oWorkBook.Save() >oWorkBook.Close(True) >oWorkBook.DisconnectObject() >DESTROY oWorkBook > > >oExcel.Quit >oExcel.DisConnectObject() >DESTROY oExcel > > >SetPointer(Arrow!) >THIS.SetMicrohelp("Retrieving, please wait ..!") > > >RETURN 100
