Code: Select all
oExcel := ComObjActive("Excel.Application")
oExcel.Sheets("KAS DES").Activate
oExcel.Range("C2").Select
C2KasAkun := oExcel.Range("C2").Value
F2KasDeb := oExcel.Range("F2").Value
if WinExist("contoh.xlsx")
WinActivate
sleep 2000
oExcel := ComObjActive("Excel.Application")
oExcel.Sheets("BJ-01").Activate
oExcel.Range("D4").Value := %C2KasAkun%
oExcel.Range("E3").Value := %F2KasDeb%