Cara Menghubungkan Ms.Office (Word, Excel, Power Point) ke Visual Basic 6.0

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 :
Menghubungkan vb6 dengan ms. office, Koneksi vb6 dengan office word, excel, power point
-Atur properti masing-masing objek dalam sebagai berikut :

ObjekPropertiNilai
Form1NameMembuat Memo ke dalam Microsoft Word
Label1NameJudul Memo
Label2NameIsi Memo
TextBox1
Text
Name
Text
txt_judul
Kosongkan
TextBox2Name
Text
txt_isi
Kosongkan
CommandButton1Name
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 :

ObjekPropertiNilai
Form1CaptionLatihan Power Point
CommandButton1Name
Caption
cmd_tampil
Tampilkan Slide Power Point
CommonDialog1Namecdg_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.
Tag : Menghubungkan vb6 dengan ms. office, Koneksi vb6 dengan office word, excel, power point.

Cara Menghasilkan Bitcoin

Silahkan komentar pada kolom dibawah ini jika ada yang ingin ditanyakan tentang Cara Menghubungkan Ms.Office (Word, Excel, Power Point) ke Visual Basic 6.0.

0 Response to "Cara Menghubungkan Ms.Office (Word, Excel, Power Point) ke Visual Basic 6.0"

Catatan: Hanya anggota dari blog ini yang dapat mengirim komentar.