Dear Bilie
kalau saya pake seperti ini
//ckp oje
OLEObject excel
Integer li_RetValue, li_rtn
Boolean lb_sheet_rtn
Long ll_cnt
excel = create OLEObject
li_rtn = excel.ConnectToNewObject("excel.application")
IF li_rtn <> 0 THEN
MessageBox('Excel error','can not run Excel Program')
DESTROY excel
RETURN 0
END IF
excel.WorkBooks.Open( "g:\coba.xls" )
excel.Application.Visible = false
excel.windowstate = 2 // 1 : Normal, 2 : Minimize, 3 : Maximize
lb_sheet_rtn = excel.worksheets(2).Activate
excel.Worksheets(2).Range("A19:F659").Copy // copy to clipboard
ll_cnt = dw_import.importclipboard()
IF ll_cnt <= 1 THEN
Messagebox("Inf", "Could not find .")
END IF
excel.Worksheets(2).Range("A10000:A10000").Copy //reset clipboard
excel.Application.Quit
excel.DisConnectObject()
DESTROY excel
//BR
CKP
________________________________
Dari: bilie <[email protected]>
Kepada: [email protected]
Terkirim: Jum, 8 Oktober, 2010 11:22:06
Judul: [indopb] Mau Tanya dong
Para master, aku mau tanya nih,.. Gmana carany import record dri file excel to
datawindow? Mohon penjelasanny agak detail, maklum bru bljr nih,hehehe thank you
bilie christiansen, s.kom
