Wey....

Bisa juga dia rupanya....

wah wah wah... jago VB juga nih bos...

salam
Andi


  ----- Original Message ----- 
  From: Prog Tel 
  To: yogyafree-perjuangan@yahoogroups.com 
  Sent: Sunday, April 18, 2010 7:40 PM
  Subject: Re: [YF] [JAWAB] Cara buat laporan excel dengan vb


    

  Kalo Delphi bisa pake komponen Export to Excel...

  http://jamesbond.xcode.or.id/files/tools/MyExport2Excel.rar

  Kalo VB, anda bisa Googling banyak jg koq... atau bisa coba yg dibawah ini :


  Salam,


  N4th4n

  ========

  Private Sub Command1_Click()
  Dim app As Application
  Dim wbk As Workbook
  Dim sheet As Worksheet
  Set app = Excel.Application
  Set wbk = app.Workbooks.Add
  Set sheet = wbk.Worksheets(1)
  sheet.Cells(5, 5) = "Kode"
  sheet.Cells(5, 6) = "Nama Hardware"
  sheet.Range("E5:F5").Font.Bold = True
  sheet.Range("E5:F5").Borders.LineStyle = xlContinuous
  ActiveWindow.DisplayGridlines = False
  With RstHardwareExcel
  .MoveFirst
  n = 5
  For i = 1 To .RecordCount
  sheet.Cells(n + i, 5) = .Fields(0)
  sheet.Cells(n + i, 6) = .Fields(1)
  sheet.Range("E" & n+i & ":F" & n+i).Borders.LineStyle=xlContinuous
  .MoveNext
  Next i
  End With
  sheet.Range("E5").EntireColumn.AutoFit
  sheet.Range("F5").EntireColumn.AutoFit
  Me.CommonDialog1.DialogTitle = "File Name"
  Me.CommonDialog1.Filter = "File Excel|*.xls"
  Me.CommonDialog1.ShowSave
  wbk.SaveAs Me.CommonDialog1.FileName
  wbk.Close
  app.Quit
  Set sheet = Nothing
  Set wbk = Nothing
  Set app = Nothing
  End Sub

  Private Sub Form_Load()
  BukaKoneksi
  BukaHardwareExcel
  End Sub

  Private Sub Form_Unload(Cancel As Integer)
  TutupHardwareExcel
  TutupKoneksi
  End Sub

  *) Untuk koneksi Database Access menggunakan Modul, berikut dibawah ini 
adalah isi dari Modul yang dibuat di VB

  Public Koneksi As ADODB.Connection
  Public RstHardwareExcel As ADODB.Recordset
  Sub BukaKoneksi()
  Set Koneksi = CreateObject("ADODB.Connection")
  Koneksi.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & app.Path & 
"\data.mdb"
  End Sub

  Sub BukaHardwareExcel()
  Set RstHardwareExcel = CreateObject("ADODB.RecordSet")
  RstHardwareExcel.Open "Hardware", Koneksi, adOpenStatic,adLockOptimistic
  End Sub

  Sub TutupKoneksi()
  Koneksi.Close
  Set Koneksi = Nothing
  End Sub




------------------------------------------------------------------------------
  From: SUKRON SAMOSIR <babiat_n...@yahoo.co.id>
  To: yogyafree-perjuangan@yahoogroups.com
  Sent: Mon, April 19, 2010 8:38:17 AM
  Subject: Bls: [YF] [JAWAB] Cara buat laporan excel dengan vb

    
        laporannya dalam bentuk apa nih??


        About Me : 



        http://babiatnapa. blogspot. com/

        http://babiat. multiply. com/

        http://profiles. friendster. com/30759605

        http://www.facebook .com/people/ Sukron-Samosir/ 1398614688



        --- Pada Ming, 18/4/10, Gopy Bermana <gopy_punya24@ yahoo.co. id> 
menulis:


          Dari: Gopy Bermana <gopy_punya24@ yahoo.co. id>
          Judul: [YF] [TANYA] Cara buat laporan excel dengan vb
          Kepada: yogyafree-perjuanga n...@yahoogroups. com
          Tanggal: Minggu, 18 April, 2010, 4:58 PM


            

          Dear All..



          Mohon bantuannya ya..

          Gimana caranya mengkonvert laporan dari visual basic 6.0 menjadi file 
excel..

          Thank ya…



          Regards

          wassalam
       






  

Kirim email ke