Selamat siang para master
Sebelumnya mohon maaf jika kasus ini sering diulas dalam forum ini. saya membuat prosedur untuk convert tabel ke excel. dimana hasil convertannya nanti akan dibentuk dalam beberapa sheet sesuai dengan pengelompokan. dalam hal ini saya ambil contoh per project. dengan prosedur yang saya berikan :
SELECT * FROM DATAPAS WHERE PROJECT='XL' INTO CURSOR CURXL
EXCEL = CREATEOBJECT('EXCEL.APPLICATION')
EXCEL.WORKBOOKS.ADD
EXCEL.SHEETS("SHEET1").SELECT
EXCEL.CELLS(1,1) = "PROJECT"
EXCEL.CELLS(1,2) = "SUB PROJECT"
EXCEL.CELLS(1,3) = "SITE NEAR"
EXCEL.CELLS(1,4) = "SITE FAR "
SCAN
ccount = recno()+1
EXCEL.CELLS(ccount,1) = PROJECT
EXCEL.CELLS(ccount,2) = SUBPROJECT
EXCEL.CELLS(ccount,3) = NAME_N
EXCEL.CELLS(ccount,4) = NAME_F
ENDSCAN
SELECT * FROM DATAPAS WHERE PROJECT='NON TINEM' INTO CURSOR CURNON
EXCEL.SHEETS.ADD
EXCEL.SHEETS("SHEET2").SELECT
EXCEL.CELLS(1,1) = "PROJECT"
EXCEL.CELLS(1,2) = "SUB PROJECT"
EXCEL.CELLS(1,3) = "SITE NEAR"
EXCEL.CELLS(1,4) = "SITE FAR "
SCAN
ccount = recno()+1
EXCEL.CELLS(ccount,1) = PROJECT
EXCEL.CELLS(ccount,2) = SUBPROJECT
EXCEL.CELLS(ccount,3) = NAME_N
EXCEL.CELLS(ccount,4) = NAME_F
ENDSCAN
CSTR = "EXCEL.ACTIVEWORKBOOK.SAVEAS"
EXCEL.WORKBOOKS.CLOSE
EXCEL.QUIT
MESSAGEBOX("CONVERT TO EXCEL SUKSES")
Setelah prosedur ini dijalankan, tabel berhasil diconvert ke bentuk excel. yang jadi pertanyaan buat saya, bagaimana merubah tulisan sheet1 dan sheet2 (hasil convertan)menjadi nama group, misalkan dalam kasus ini, sheet1 menjadi Xl dan sheet2 menjadi NON TINEM.
Sebelumnya saya ucapkan terima kasih atas masukan dari para master
