Pada tutorial kali ini saya akan mencoba membahas tentang bagaimana cara export data ke dalam file excel dengan menggunakan foxpro. Disini diasumsikan kita punya sebuah database mahasiswa dalam file dbf. Pertama-tama mari kita buat form baru terlebih dahulu seperti gambar dibawah ini,

Kemudian double klik pada button yang dibuat sehingga keluar window baru untuk memasukan source codenya, setelah keluar windows baru tersebut pilihlah object-nya yaitu Command1 (button name, untuk button name ini tidak harus Command1, disini saya menggunakan nama defaultnya). Kemudian pilihlah procedure click sehingga terlihat seperti berikut :

Setelah keluar seberti gambar diatas dan telah dipilih object dan procedurenya barulah kita masukan code-code untuk eksport data ke excel berikut :

local oExcel, oSheet

oExcel = CreateObject([Excel.Application])
oExcel.Visible = .T.
oExcel.Workbooks.Add()

oSheet = oExcel.ActiveSheet

oSheet.Cells(1,1).Value = [DATA MAHASISWA]
oSheet.Cells(1,1).Font.Bold = .T. 

lnRow = 0
SELECT * FROM mahasiswa INTO CURSOR csrMHS
SELECT csrMHS
GO TOP
DO WHILE NOT EOF()
    lnRow = lnRow + 1
    IF lnRow = 1    
        lnRow = 3
        lnCol = 1
        
        oSheet.Range([A3]).Select
        oSheet.Cells(lnRow,lnCol).Value = [NIM]
        oSheet.Cells(lnRow,lnCol).Font.Bold = .T.       
        oSheet.Cells(lnRow,lnCol).HorizontalAlignment = 3
        
        lnCol = lnCol + 1
        oSheet.Range([B3]).Select
        oSheet.Cells(lnRow,lnCol).Value = [NAMA]
        oSheet.Cells(lnRow,lnCol).Font.Bold = .T.       
        oSheet.Cells(lnRow,lnCol).HorizontalAlignment = 3
        
        lnCol = lnCol + 1
        oSheet.Range([C3]).Select
        oSheet.Cells(lnRow,lnCol).Value = [JK]
        oSheet.Cells(lnRow,lnCol).Font.Bold = .T.
        oSheet.Cells(lnRow,lnCol).HorizontalAlignment = 3
        
        lnCol = lnCol + 1
        oSheet.Range([D3]).Select
        oSheet.Cells(lnRow,lnCol).Value = [TEMPAT LAHIR]
        oSheet.Cells(lnRow,lnCol).Font.Bold = .T.
        oSheet.Cells(lnRow,lnCol).HorizontalAlignment = 3

        lnCol = lnCol + 1
        oSheet.Range([E3]).Select
        oSheet.Cells(lnRow,lnCol).Value = [ALAMAT]
        oSheet.Cells(lnRow,lnCol).Font.Bold = .T.
        oSheet.Cells(lnRow,lnCol).HorizontalAlignment = 3
        
        lnRow = 4
        lnBeginRange = lnRow
    ENDIF
    
    oSheet.Cells(lnRow,1).Value = "'"+csrMHS.nim 
    oSheet.Cells(lnRow,2).Value = csrMHS.nama_mhs
    oSheet.Cells(lnRow,3).Value = csrMHS.jk 
    oSheet.Cells(lnRow,4).Value = csrMHS.tmpt_lahir 
    oSheet.Cells(lnRow,5).Value = csrMHS.alamat 

    SKIP
ENDDO

 Setelah itu silahkan disimpah, dan kemudian di jalankan programnya maka akan tampil seperti gambar dibawah ini :

Kemudian tekan tombol Export ke Excel maka akan membuka sebuah file excel seperti gambar dibawah ini :

Sekian dulu pembahasan tentang expor data ke file excelnya, nantikan tutorial-tutorial foxpro selanjutnya. Selamat Mencoba semuanya.