Menghubungkan Word, Excel dan Power Point ke Visual Basic 6.0 - Pada pertemuan akhir pekan ini tip dan trik visual basic 6.0 akan membuat sebuah artikel tentang Menghubungkan Word, Excel dan Power Point ke Visual Basic 6.0, yang mudah-mudahan bisa bermanfaat buat kita semua dan dapat menambah wawasan kita di dunia programming. Berikut adalah program yang dapat kita hubungkan ke program VB6 :
A. Menghubungkan ke Microsoft Word
Program aplikasi yang kita buat dapat di hubungkan dengan Microsoft Word melalui kode program. Tetapi kita harus menambahkan referensi terhadap pustaka yang akan digunakan terlebih dahulu, yaitu referensi pustaka Microsoft Word.
Referensi yang Anda gunakan tergantung dari aplikasi Microsoft Office yang terinstall pada komputer Anda. Untuk Microsoft Office 2000 gunakan Microsoft Word 9.0 Object Library atau untuk Microsoft Office XP gunakan Microsoft Word 10.0 Object Library.
Untuk menambahkan referensi pustaka Microsoft Word, lakukan langkah-langkah berikut :
- Klik Project pada menu bar, lalu klik References....
- Klik/Aktifkan kota ceklist Mocrosoft Word 10.0 Object Library
-Klik OK
Untuk berlatih menghubungkan aplikasi yang kita buat dengan MS.Word, ikuti langkah-langkah berikut :
Menyimpan Memo ke Word
-Buka Form Standar EXE VB6 Anda
-Tambahkan referensi pustaka MS.Word (dengan cara yang sudah disebutkan diatas)
-Tanamkan Label, TextBox, dan Commandbutton sehingga tampilannya seperti gambar dibawah ini :
-Atur properti masing-masing objek dalam sebagai berikut :
| Objek | Properti | Nilai |
| Form1 | Name | Membuat Memo ke dalam Microsoft Word |
| Label1 | Name | Judul Memo |
| Label2 | Name | Isi Memo |
| TextBox1 Text |
Name Text |
txt_judul Kosongkan |
| TextBox2 | Name Text |
txt_isi Kosongkan |
| CommandButton1 | Name Caption |
cmd_simpan Simpan Memo ke Word |
-Buka jendela kode program dengan F7, lalu ketik kode program berikut dibawah ini:
Private Sub Form_Load()
Dim wordku As Object
Set wordku = CreateObject("word.application")
End Sub
Private Sub cmd_simpan_Click()
Set wordku = New Word.Application
wordku.Visible = False 'atur agar word tidak ditampilkan
wordku.Documents.Add 'menambahkan sebuag dokumen baru
wordku.Selection.Text = Txt_judul.Text + vbCrLf + vbCrLf + Txt_isi.Text 'letak teks dalam dokumen
wordku.ActiveDocument.SaveAs "d:\memoku.doc" 'simpan file word
wordku.Application.Quit 'keluar dari word
Set wordku = Nothing
End Sub
-Simpan kode Anda dan jalankan program
-Masukan Judul dan isi Memo, lalu tekan Simpan Memo ke Word
-Bukalah file C:\memoku.doc, amati apakah memo tersebut sudah tersimpan dengan benar
B. Menghubungkan dengan Microsoft excel
Program aplikasi yang kita buat dapat dihubungkan dengan MS.Excel melalui kode program. Tetapi kita harus menambahkan referensi terhadap pustaka yang akan digunakan terlebih dahulu ke dalam project yang kita buat, yaitu referensi pustaka Microsoft Excel.
Referensi yang Anda gunakan tergantung dari aplikasi Microsoft Office yang terinstall pada komputer Anda. Untuk Microsoft Office 2000 gunakan Microsoft Excel 9.0 Object Library atau untuk Microsoft Office XP gunakan Microsoft Excel 10.0 Object Library.
Untuk menambahkan referensi pustaka Microsoft Excel, lakukan langkah-langkah berikut :
-Klik Project pada menu bar, lalu klik References....
-Kliik/Aktifkan kota ceklist Mocrosoft Excel 9.0 Object Library
-Klik OK
Untuk berlatih menghubungkan aplikasi yang kita buat dengan MS.Excel, ikuti langkah-langkah berikut :
Menyimpan Database ke Word
-Buka project Anda yang sudah Anda buat yang terkoneksi dengan Database (terserah apa saja yang jelas sudah ada Database-nya)
-Kemudian Tambahkan 1 CommandButton di Form dan ubah Caption-nya: "Simpan Excel" dan Name-nya: cmd_excel
-Tambahkan sebuah referensi pustaka MS.Excel (dengan cara yang sudah disebutkan diatas)
-Buka jendela kode program, lalu ketik kode program dibawah ini, tetapi sesuaikan dengan isi Database dan Record yang Anda puya. Disini Saya menggunakan Database Karyawan:
Private Sub cmd_excel_Click()
Dim baris As Integer
Set excelappku = New Excel.Application
Set excelbookku = excelappku.WorkBooks.Add
Set excelSheetku = excelbookku.WorkSheets(1)
With excelSheetku
'Judul
.Cells(1, 2).Value = "DATA KARYAWAN"
.Cells(4, 1).Value = "NIP"
.Cells(4, 2).Value = "Nama"
.Cells(4, 3).Value = "Devisi"
'tulis setiap record dalam tabel ke file excel
baris = 5
If Not ado_karyawan.Recordset.BOF Then
ado_karyawa.Recordset.MoveFirst
While Not ado_karyawan.Recordset.EOF
.Cells(baris, 1) = ado_karyawan.Recordset!NIP
.Cells(baris, 2) = ado_karyawan.Recordset!NAMA
.Cells(baris, 3) = ado_karyawan.Recordset!DEVISI
baris = baris + 1
ado_karyawan.Recordset.MoveNext
Wend
End If
End With
'Simpan file Excel
excelSheetku = Nothing
excelbookku = Nothing
ado_karyawan.Refresh
Ens Sub
-Kemudian jalankan program Anda
-Klik Simpan ke Excel
-Bukalah file C:\datakaryawan.xls, amati apakah data tersebut sudah tersimpan dengan benar
C. Menghubungkan dengan Microsoft Power Point
Sebelum menghubungkan program aplikasi kita dengan MS.Power Point, kita harus menambahkan sebuah referensi pustaka MS.Power Point terlebih dahulu. Referensi yang digunakan tergantung dari aplikasi Microsoft Office yang terinstall pada komputer Anda. Untuk Microsoft Office 2000 gunakan Microsoft Power Point 9.0 Object Library atau untuk Microsoft Office XP gunakan Microsoft Power Point 10.0 Object Library.
Untuk menambahkan referensi pustaka Microsoft Power Point, lakukan langkah-langkah berikut :
-Klik Project pada menu bar, lalu klik References....
-Kliik/Aktifkan kota ceklist Mocrosoft Power Point 9.0 Object Library
-Klik OK
Untuk berlatih menghubungkan aplikasi yang kita buat dengan MS.Power Point, ikuti langkah-langkah berikut :
-Buka Form VB6 Anda
-Tanamakan 1 CommonDialog dan 1 CommandButton kedalam Form
-Atur properti masing-masing objek dalam form sebagai berikut :
| Objek | Properti | Nilai |
| Form1 | Caption | Latihan Power Point |
| CommandButton1 | Name Caption |
cmd_tampil Tampilkan Slide Power Point |
| CommonDialog1 | Name | cdg_satu |
-Buka jendela kode program, lalu ketik kode dibawah ini:
1. Membuka Aplikasi Program Power Point
Private Sub Cmd_ppt_Click()
Dim Obj1 As Object
Set Obj1 = CreateObject("powerpoint.application")
Obj1.Presentations.Add
Obj1.Visible = True
End Sub
2. Membuka File Presentasi PowerPoint
Dim PPTFile As String
With cdg_satu
.CancelError = True
.Filter = "PowerPoint Presentations (*.pptx)|*.pptx"
'.FilterIndex = 1
.InitDir = "D:\"
.DialogTitle = "Please select a Presentation"
.ShowOpen
End With
PPTFile = cdg_satu.FileName
-Jalankan program Anda denga F5 dan simpan program Anda jika sudah benar
Demukian artikel tentang cara Menghubungkan dengan Word, Excel dan Power Ppint di Visual Basic 6.0. Semoga bermanfaat.Terimakasih atas kunjungan Anda
No comments:
Post a Comment