Author Topic: error ketka membuat laporan format excell  (Read 244 times)

0 Members and 1 Guest are viewing this topic.

Offline soegeng

  • Junior Member
  • *
  • Posts: 152
error ketka membuat laporan format excell
« on: May 05, 2017, 04:37:56 PM »
para master fox, mohon pencerahannya . begini sy membuat laporan dg format excell dg database Mysql dari visual foxpro

tetapi ketika sy jalankan ada error sbb :

ini syntax sy
 LOCAL oExcel,oSheet
     oExcel = CreateObject([Excel.Application])
    oExcel.visible=.t.
    oExcel.workbooks.add()
    oSheet=oExcel.ActiveSheet
    oSheet.Cells(1,1).value=[LAPORAN NAMA NAMA PROYEK]
    oSheet.Cells(1,1).Fontbold=.t.
    lnRow=0
    SELECT kode_proy,nama_proy,alamat,kota,telp FROM proyek ORDER BY     kode_proy INTO CURSOR exproyek
    GO top
    DO whil NOT EOF()
       lnRow=lnRow+1
       IF lnRow=1
          lnRow=3
          lnCol=1
          oSheet.Range([A3]).Select
          oSheet.Cells(lnRow,lnCol).value=[KODE PROYEK]
          oSheet.Cells(lnRow,lnCol).Fontbold=.t.
          oSheet.Cells(lnRow,lnCol).HorizontalAlignment=3
          lnCol=lnCol+1
          oSheet.Range([B3]).Select
          oSheet.Cells(lnRow,lnCol).value=[NAMA PROYEK]
          oSheet.Cells(lnRow,lnCol).Fontbold=.t.
          oSheet.Cells(lnRow,lnCol).HorizontalAlignment=3
          lnCol=lnCol+1
          oSheet.Range([C3]).Select
          oSheet.Cells(lnRow,lnCol).value=[A L A M A T]
          oSheet.Cells(lnRow,lnCol).Fontbold=.t.
          oSheet.Cells(lnRow,lnCol).HorizontalAlignment=3
          lnCol=lnCol+1
          oSheet.Range([D3]).Select
          oSheet.Cells(lnRow,lnCol).value=[NO. TELP / HP]
          oSheet.Cells(lnRow,lnCol).Fontbold=.t.
          oSheet.Cells(lnRow,lnCol).HorizontalAlignment=3
          lnCol=lnCol+1
           LnRow=4
           lnBeginRange=lnRow
        ENDIF
        oSheet.Cells(lnRow,1).Value=""+exproyek.str(kode_proy)
        oSheet.Cells(lnRow,2).Value=""+exproyek.nama_proy             
        oSheet.Cells(lnRow,3).Value=""+exproyek.alamat
        oSheet.Cells(lnRow,4).Value=""+exproyek.telp
        MESSAGEBOX('EXPROT DATA PROYEK BERHASIL !!!',0+64,'INFORMASI')
        SKIP
     Endd

ini pesan error nya

ole error code 0x80040154:class not registered

 LOCAL oExcel,oSheet
 => ini sytax yg error    oExcel = CreateObject([Excel.Application])

bisa bantu kah utk pencerhannya...???? thq be 4


Offline soegeng

  • Junior Member
  • *
  • Posts: 152
Re: error ketka membuat laporan format excell
« Reply #1 on: May 05, 2017, 05:37:40 PM »
Apa karena di kompi ku nggak ada msexcell ya??? He3x aku install kingsoff yg kompatibel dg ms office

Offline Atmanegara

  • Hero Member
  • *
  • Posts: 1.600
  • Berbagi Kerena Peduli
Re: error ketka membuat laporan format excell
« Reply #2 on: May 06, 2017, 04:58:32 AM »
Apa karena di kompi ku nggak ada msexcell ya??? He3x aku install kingsoff yg kompatibel dg ms office
:tongue9: :tongue9: ya iyalah om
Cara terbaik untuk membuat mimpi Anda menjadi kenyataan adalah dengan bangun dari tidur

Offline soegeng

  • Junior Member
  • *
  • Posts: 152
Re: error ketka membuat laporan format excell
« Reply #3 on: May 06, 2017, 10:16:06 AM »
Ha3x....

Offline poison

  • Hero Member
  • *
  • Posts: 1.593
  • Poison 4 Women
Re: error ketka membuat laporan format excell
« Reply #4 on: May 07, 2017, 05:51:53 AM »
tips....datanya jangan diLooping, jadi :
1. data dari cursor lempar aja ke XLS
2. XLS dibuka (awas kalau belum install excel)
3. modif dah tu excel

* timbul pertanyaan
1. modifnya pake apa?!..
jawab : naaah itu udah bisa, dipertanyaan awal
2. waaaaaaah klo pake cara ini, row-nya enggak bisa banyak
jawab : kalau masih butuh row banyak, ngapain bikin system database?!..(eh sori, becanda)
yaaaa tidak tinggal export ulang ke file XLS yang lain, trus import dech


**
awas, jika ada yang ngeganjel  lagi
« Last Edit: May 09, 2017, 03:28:59 AM by poison »
think BIG to get BIG thing

Offline soegeng

  • Junior Member
  • *
  • Posts: 152
Re: error ketka membuat laporan format excell
« Reply #5 on: May 08, 2017, 09:41:14 PM »
He3x ... thanks jga ya om poison