langsung aja gan...
langkah ke 1:
buka dulu tampilan kerja visual basic nya (windows form app )
simpan dengan nama laporan excel
langkah ke 2:
untuk mengaktifkan objek ms excel di vb, kita harus menambahkan Reference Object Microsoft.Office.Interop.Excel
langkah ke 3 :
buat design formnya seperti gambar berikut
langkah 4:
tulis codingannya gan, berikut adalah view code dari project kali ini
Imports Excel = Microsoft.Office.Interop.Excel
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles excel.Click
Dim excel_App As Excel.Application
Dim excel_WorkBook As Excel.Workbook
Dim exel_WorkSheet As Excel.Worksheet
Dim misValue As Object = System.Reflection.Missing.Value
excel_App = New Excel.Application
excel_WorkBook = excel_App.Workbooks.Add(misValue)
exel_WorkSheet = excel_WorkBook.Sheets("sheet1")
exel_WorkSheet.Cells(1, 1) = "selamat bos anda berhasil"
exel_WorkSheet.SaveAs("E:\latihan visual studio\vbexcel.xlsx")
excel_WorkBook.Close()
excel_App.Quit()
If MsgBox("file excel sukses di cetak, silahkan cek file tersebut di drive E:\latihan visual studio", MsgBoxStyle.OkOnly) = MsgBoxResult.Ok Then
End
End If
End Sub
End Class
langkah ke 5:
jalankan (run) aplikasi tersebut dan klik tombol Cetak Dokumen Excel setelah program dijalankan
hasil dari proses tersebut adalah aplikasi akan mencetak dokumen Ms Excel dan file tersebut dapat dilihat dari lokasi data yang anda buat gan
selamat mencoba gan
0 comments:
Post a Comment