membuat aplikasi word and excell generator menggunakan visual basic

Sekarang kita mencoba tuk bermain-main dgn  membuat aplikasi sederhana yang men-generate  atau menghasilkan microsoft excell document, kemuadian men-generate microsoft word dengan mengambil data2 dari microsoft excell yang telah kita generate tadi.

Aplikasi tersebut akan menghasilkan file excell seperti gambar di bawah ini . 

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 = “Umur   :”
.Range(”A5″).Value = “Alamat:”
.Range(”A6″).Value = “Telp  :”
.Range(”B2″).ColumnWidth = 30
.Range(”B3″).Value = “Angga”
.Range(”B3″).Font.Bold = True
.Range(”B4″).Value = “25″
.Range(”B4″).Font.Italic = True
.Range(”B4″).HorizontalAlignment = Excel.XlHAlign.xlHAlignLeft
.Range(”B5″).Value = “Surabaya”
.Range(”B5″).Font.Underline = True
.Range(”B6″).Value = “1234567890”
.Range(”B6″).Font.Name = “Arial”
.Range(”B6″).Font.Size = 12
.Range(”A8″).Value = “Pernyataan :”
.Range(”A9″).Value = “saya tampan selalu..thanks..^^”
.Range(”C11″).Value = “20 - 10 - 2009″
.Range(”C13″).Value = “Raditya Rangga”
.ActiveWorkbook.SaveAs App.Path & “\test.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 & “\test.xls”
.Range(”A1..C13″).Copy
.Quit
End With
With myWORD
.Documents.Add
.ActiveDocument.Content.Paste
.ActiveDocument.SaveAs App.Path & “\test.doc”
.Quit
End With
End Sub

 hasil nya adalah file microsoft word dengan isi yang sama dengan file excell nya...

happy coding with visual basic...^^