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
