Contoh Aplikatif : Word and Excell Generator

Sekarang kita membuat aplikasi sederhana yang men-generate  microsoft excell, kemuadian men-generate microsoft word dengan mengambil data2 dari microsoft excell yang telah kita generate tadi.

Ketika tombol1 ditekan maka akan mengenerate excell seperti tampak gambar sebagai berikut

dan ketika tombol 2 di tekan maka akan mengenerate file word yang mengambil data-datanya dari file excell yang di generate tersebut.

Penjelasan Source code

Kita deklarasikan dulu Obkect Librarynya. Kita menggunakan Microsoft Word 12.0 Object Library dan Microsoft Excell 12.0 Object Library. Caranya, kita pilih di Project -> reference, lalu kita centang dua object tersebut.

Dim myEXCEL As New Excel.Application
Dim myWORD As New Word.Application

Untuk men-generate kita kita ketik codenya sebagai berikut.

Private Sub Command1_Click()
With myEXCEL
.Workbooks.Add

‘Title
.Range(“A1..C1”).Merge
With Range(“A1”)
.Value = “Biodata”
.Font.Name = “Comic Sans MS”
.Font.Size = 20
.Font.Bold = True
.HorizontalAlignment = Excel.xlHAlignCenter
End With

.Range(“A2”).ColumnWidth = 20
With Range(“A3..A6”).Font
.Name = “Courier New”
.Size = 12
End With

.Range(“A3”).Value = “Nama  :”
.Range(“A4”).Value = “NRP   :”
.Range(“A5”).Value = “Alamat:”
.Range(“A6”).Value = “Telp  :”

.Range(“B2”).ColumnWidth = 30

.Range(“B3”).Value = “Hendra Fajri Bukhari”
.Range(“B3”).Font.Bold = True

.Range(“B4”).Value = “5102100093”
.Range(“B4”).Font.Italic = True
.Range(“B4”).HorizontalAlignment = Excel.XlHAlign.xlHAlignLeft

.Range(“B5”).Value = “Serambi Mekah”
.Range(“B5”).Font.Underline = True

.Range(“B6”).Value = “YM aja”
.Range(“B6”).Font.Name = “Arial”
.Range(“B6”).Font.Size = 12

.Range(“A8”).Value = “Pernyataan :”
.Range(“A9”).Value = “Saya mengerjakan UAS ini dengan jujur dan tidak mencontek pekerjaan teman saya”

.Range(“C11”).Value = “17 Juni 2009”
.Range(“C13”).Value = “Hendra Fajri Bukhari”
.ActiveWorkbook.SaveAs App.Path & “\5102100093 – Hendra Fajri.xls”
.Quit
End With
End Sub

Dan untuk mendapatkan mengenerate microsoft word yang datanya mirip dengan file excell yang kita generate tadi bisa kita lakukan dengan mengcopy content dari semua range excell nya kemudian kita paste kan ke dokumen word. Sourcenya seperti berikut ini

Private Sub Command2_Click()
With myEXCEL
.Workbooks.Open App.Path & “\5102100093 – Hendra Fajri.xls”
.Range(“A1..C13”).Copy
.Quit
End With

With myWORD
.Documents.Add
.ActiveDocument.Content.Paste
.ActiveDocument.SaveAs App.Path & “\5102100093 – Hendra Fajri.doc”
.Quit
End With
End Sub

Source code lengkapnya dapat di download di sini