Debugers

Yang terakhir dilakukan dalam pembuatan sebuah program adalah membuatkan program tersebut sebuah laporan, nah yang akan kita bahas kali ini adalah cara membuat laporan vb di Ms.Excel atau dengan kata lain mengimpor laporan visual basic ke Microsoft Excel, berikut langkah-langkahnya :

Tambahkan Library Ms.Excel ke project dengan cara klik menu project kemudian pilih References berih tanda centang pada Microsoft Excel12.0 Object Library

Langkah selajutnya memasukkan listing programnya

Pertama kita buat variabel listinya

Dim excel As New excel.Application

Kemudian buat sub untuk mengisi Excel

Set excel = excel.Application

excel.Workbooks.Add

excel.Worksheets(1).Activate

        'nama Heading

    For i = 0 To DataEnvironment1.rsRBarang.Fields.Count - 1

        excel.Worksheets(1).Cells(1, i + 1) = DataEnvironment1.rsRBarang.Fields(i).Name

    Next

        'isi data

    If DataEnvironment1.rsRBarang.State = 0 Then DataEnvironment1.rsRBarang.Open

    If DataEnvironment1.rsRBarang.RecordCount > 0 Then DataEnvironment1.rsRBarang.MoveFirst

        For i = 1 To DataEnvironment1.rsRBarang.RecordCount

            For j = 0 To DataEnvironment1.rsRBarang.Fields.Count - 1

                excel.Worksheets(1).Cells(i + 1, j + 1) = DataEnvironment1.rsRBarang(j)

            Next

            DataEnvironment1.rsRBarang.MoveNext

        Next

            excel.Columns.AutoFit

    excel.Visible = True

    'excel.Worksheets(1).PrintPreview

    excel.Workbooks(1).Saved = False

    'excel.Visible = True     'False

End Sub

Kemudain masukkan listing berikut ini pada tombol import

Private Sub Command1_Click(Index As Integer)

    Select Case Index

        Case 0  'report

            DataReport1.Show 1

        Case 1  'word

            If DataEnvironment1.rsRBarang.State = 0 Then DataEnvironment1.rsRBarang.Open

            isiword "Laporan Data Barang", DataEnvironment1.rsRBarang.RecordCount, DataEnvironment1.rsRBarang.Fields.Count

        Case 2  'excel

            isiexcel

    End Select

End Sub

Lalu Pada saat Program Unload Masukkan listing

Private Sub Form_Unload(Cancel As Integer)

Set excel = Nothing

End Sub

Jadi deh laporannya di Excel..........Sekian dan semoga bermanfaat