KONEKSI MS.WORD DENGAN VISUAL BASIC.NET
- Mulai Microsoft Visual Studio.NET.
- Pada Berkas menu, klik Baru, lalu klik Project. Pilih Aplikasi Windows dari jenis proyek Visual Basic. Form1 dibuat secara default.
- Menambahkan referensi ke Perpustakaan objek Microsoft Word. Untuk melakukannya, ikuti langkah-langkah berikut:
- Pada Project menu, klik Menambahkan referensi.
- Pada COM tab, Cari Perpustakaan objek Microsoft Word, lalu klik Pilih.
Catatan Microsoft Office 2003 mencakup Interop utama Majelis (PIAs). Microsoft Office XP tidak mencakup PIAs, tetapi mereka dapat di-download.Untuk informasi lebih lanjut tentang Office XP PIAs, klik nomor artikel di bawah ini untuk melihat artikel di dalam Basis Pengetahuan Microsoft:328912Microsoft Office XP utama interop Majelis (PIAs) tersedia untuk di-download - Klik Oke dalam Menambahkan referensi kotak dialog untuk menerima pilihan Anda.
- Pada Lihat menu, pilih Toolbox untuk menampilkan toolbox, dan kemudian menambahkan tombol ke Form1.
- Klik dua kali Button1. Jendela kode untuk bentuk muncul.
- Dalam jendela kode, mengganti kode berikut.
Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click End Sub
Dim wrdApp As Word.Application Dim wrdDoc As Word._Document Private Sub InsertLines(ByVal LineNum As Integer) Dim iCount As Integer ' Insert "LineNum" blank lines. For iCount = 1 To LineNum wrdApp.Selection.TypeParagraph() Next iCount End Sub Private Sub FillRow(ByVal Doc As Word.Document, ByVal Row As Integer, _ ByVal Text1 As String, ByVal Text2 As String, _ ByVal Text3 As String, ByVal Text4 As String) With Doc.Tables.Item(1) ' Insert the data in the specific cell. .Cell(Row, 1).Range.InsertAfter(Text1) .Cell(Row, 2).Range.InsertAfter(Text2) .Cell(Row, 3).Range.InsertAfter(Text3) .Cell(Row, 4).Range.InsertAfter(Text4) End With End Sub Private Sub CreateMailMergeDataFile() Dim wrdDataDoc As Word._Document Dim iCount As Integer ' Create a data source at C:\DataDoc.doc containing the field data. wrdDoc.MailMerge.CreateDataSource(Name:="C:\DataDoc.doc", _ HeaderRecord:="FirstName, LastName, Address, CityStateZip") ' Open the file to insert data. wrdDataDoc = wrdApp.Documents.Open("C:\DataDoc.doc") For iCount = 1 To 2 wrdDataDoc.Tables.Item(1).Rows.Add() Next iCount ' Fill in the data. FillRow(wrdDataDoc, 2, "Steve", "DeBroux", _ "4567 Main Street", "Buffalo, NY 98052") FillRow(wrdDataDoc, 3, "Jan", "Miksovsky", _ "1234 5th Street", "Charlotte, NC 98765") FillRow(wrdDataDoc, 4, "Brian", "Valentine", _ "12348 78th Street Apt. 214", "Lubbock, TX 25874") ' Save and close the file. wrdDataDoc.Save() wrdDataDoc.Close(False) End Sub Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click Dim wrdSelection As Word.Selection Dim wrdMailMerge As Word.MailMerge Dim wrdMergeFields As Word.MailMergeFields Dim StrToAdd As String ' Create an instance of Word and make it visible. wrdApp = CreateObject("Word.Application") wrdApp.Visible = True ' Add a new document. wrdDoc = wrdApp.Documents.Add() wrdDoc.Select() wrdSelection = wrdApp.Selection() wrdMailMerge = wrdDoc.MailMerge() ' Create MailMerge Data file. CreateMailMergeDataFile() ' Create a string and insert it in the document. StrToAdd = "State University" & vbCr & _ "Electrical Engineering Department" wrdSelection.ParagraphFormat.Alignment = _ Word.WdParagraphAlignment.wdAlignParagraphCenter wrdSelection.TypeText(StrToAdd) InsertLines(4) ' Insert merge data. wrdSelection.ParagraphFormat.Alignment = _ Word.WdParagraphAlignment.wdAlignParagraphLeft wrdMergeFields = wrdMailMerge.Fields() wrdMergeFields.Add(wrdSelection.Range, "FirstName") wrdSelection.TypeText(" ") wrdMergeFields.Add(wrdSelection.Range, "LastName") wrdSelection.TypeParagraph() wrdMergeFields.Add(wrdSelection.Range, "Address") wrdSelection.TypeParagraph() wrdMergeFields.Add(wrdSelection.Range, "CityStateZip") InsertLines(2) ' Right justify the line and insert a date field ' with the current date. wrdSelection.ParagraphFormat.Alignment = _ Word.WdParagraphAlignment.wdAlignParagraphRight wrdSelection.InsertDateTime( _ DateTimeFormat:="dddd, MMMM dd, yyyy", _ InsertAsField:=False) InsertLines(2) ' Justify the rest of the document. wrdSelection.ParagraphFormat.Alignment = _ Word.WdParagraphAlignment.wdAlignParagraphJustify wrdSelection.TypeText("Dear ") wrdMergeFields.Add(wrdSelection.Range, "FirstName") wrdSelection.TypeText(",") InsertLines(2) ' Create a string and insert it into the document. StrToAdd = "Thank you for your recent request for next " & _ "semester's class schedule for the Electrical " & _ "Engineering Department. Enclosed with this " & _ "letter is a booklet containing all the classes " & _ "offered next semester at State University. " & _ "Several new classes will be offered in the " & _ "Electrical Engineering Department next semester. " & _ "These classes are listed below." wrdSelection.TypeText(StrToAdd) InsertLines(2) ' Insert a new table with 9 rows and 4 columns. wrdDoc.Tables.Add(wrdSelection.Range, NumRows:=9, _ NumColumns:=4) With wrdDoc.Tables.Item(1) ' Set the column widths. .Columns.Item(1).SetWidth(51, Word.WdRulerStyle.wdAdjustNone) .Columns.Item(2).SetWidth(170, Word.WdRulerStyle.wdAdjustNone) .Columns.Item(3).SetWidth(100, Word.WdRulerStyle.wdAdjustNone) .Columns.Item(4).SetWidth(111, Word.WdRulerStyle.wdAdjustNone) ' Set the shading on the first row to light gray. .Rows.Item(1).Cells.Shading.BackgroundPatternColorIndex = _ Word.WdColorIndex.wdGray25 ' Bold the first row. .Rows.Item(1).Range.Bold = True ' Center the text in Cell (1,1). .Cell(1, 1).Range.Paragraphs.Alignment = _ Word.WdParagraphAlignment.wdAlignParagraphCenter ' Fill each row of the table with data. FillRow(wrdDoc, 1, "Class Number", "Class Name", "Class Time", _ "Instructor") FillRow(wrdDoc, 2, "EE220", "Introduction to Electronics II", _ "1:00-2:00 M,W,F", "Dr. Jensen") FillRow(wrdDoc, 3, "EE230", "Electromagnetic Field Theory I", _ "10:00-11:30 T,T", "Dr. Crump") FillRow(wrdDoc, 4, "EE300", "Feedback Control Systems", _ "9:00-10:00 M,W,F", "Dr. Murdy") FillRow(wrdDoc, 5, "EE325", "Advanced Digital Design", _ "9:00-10:30 T,T", "Dr. Alley") FillRow(wrdDoc, 6, "EE350", "Advanced Communication Systems", _ "9:00-10:30 T,T", "Dr. Taylor") FillRow(wrdDoc, 7, "EE400", "Advanced Microwave Theory", _ "1:00-2:30 T,T", "Dr. Lee") FillRow(wrdDoc, 8, "EE450", "Plasma Theory", _ "1:00-2:00 M,W,F", "Dr. Davis") FillRow(wrdDoc, 9, "EE500", "Principles of VLSI Design", _ "3:00-4:00 M,W,F", "Dr. Ellison") End With ' Go to the end of the document. wrdApp.Selection.GoTo(Word.WdGoToItem.wdGoToLine, _ Word.WdGoToDirection.wdGoToLast) InsertLines(2) ' Create a string and insert it into the document. StrToAdd = "For additional information regarding the " & _ "Department of Electrical Engineering, " & _ "you can visit our Web site at " wrdSelection.TypeText(StrToAdd) ' Insert a hyperlink to the Web page. wrdSelection.Hyperlinks.Add(Anchor:=wrdSelection.Range, _ Address:="http://www.ee.stateu.tld") ' Create a string and insert it in the document. StrToAdd = ". Thank you for your interest in the classes " & _ "offered in the Department of Electrical " & _ "Engineering. If you have any other questions, " & _ "please feel free to give us a call at " & _ "555-1212." & vbCr & vbCr & _ "Sincerely," & vbCr & vbCr & _ "Kathryn M. Hinsch" & vbCr & _ "Department of Electrical Engineering" & vbCr wrdSelection.TypeText(StrToAdd) ' Perform mail merge. wrdMailMerge.Destination = _ Word.WdMailMergeDestination.wdSendToNewDocument wrdMailMerge.Execute(False) ' Close the original form document. wrdDoc.Saved = True wrdDoc.Close(False) ' Release References. wrdSelection = Nothing wrdMailMerge = Nothing wrdMergeFields = Nothing wrdDoc = Nothing wrdApp = Nothing ' Clean up temp file. System.IO.File.Delete("C:\DataDoc.doc") End Sub
KONEKSI VISUAL BASIC DENGAN MS.EXCEL
Visual basic dapat membaca dan menulis informasi dari dan ke worksheet excel bahkan dapat melaksanakan perintah excel seperti merobah lebar column, memilih jenis huruf, mengatur border dll.
Untuk membuat koneksi Visual basic dengan excel dapat dilakukan dengan sangat mudah sehingga anda dengan mudah dapat menampilkan laporan keuangan dari aplikasi database visual basic ke dalam worksheet excel mulai dari form, laporan periodik, rugilaba, neraca bahkan grafik dll. Sebaliknya anda dapat mengimport data dari workseet excel ke database.
Berikut ini adalah cara membuat koneksi visual basic ke excel untuk membuka file tamplate yang telah disediakan dan selanjutnya anda dapat menuliskan informasi pada worksheet tersebut
Membuat koneksi
Dim vExcel As Excel.Application
Dim No, tbatal, tlunas, Tajt
No = 0
tbatal = 0
tlunas = 0
tajt = 0
Dim startRow
Membuka aplikasi Excel dengan mengalokasikan memori untuk aplikasi excel.
Set vExcel = CreateObject(“Excel.Application”)
Membuka file tamplate yang telah disediakan.
vExcel.Workbooks.Add (App.Path & “\namafile.xlt”)
Mengaktifkan Worksheet excel
vExcel.Visible = True
Menentukan windows excel ditampilkan maksimum
vExcel.WindowState = xlMaximized
Mengatur lebar Column misalnya column A akan di set menjadi 30
vExcel.Columns(“A”).ColumnWidth = 30
Menulis informasi ke dalam worksheet
With vExcel.ActiveSheet
- .Cells(1, 1).Value = MyCom
- .Cells(2, 1).Value = MyAddr
- .Cells(3, 1).Value = “LAPORAN PENGELUARAN KAS”
- .Cells(4, 1).Value = “PERIODE : ” & Format(DrTgl, “dd-MMM”) & ” s/d ” & Format(SdTgl, “dd-MMM-YYYY”)
- .Cells(6, 1).Value = “No”
- .Cells(6, 2).Value = “Voucher”
- .Cells(7, 2).Value = “Nomor”
- .Cells(7, 3).Value = “Tanggal”
- .Cells(6, 4).Value = “Chk/Giro”
- .Cells(7, 4).Value = “Nomor”
- .Cells(7, 5).Value = “Efektif”
- .Cells(6, 6).Value = “Rek”
- .Cells(6, 7).Value = “KodeSpl”
- .Cells(6, 8).Value = “Jumlah”
- .Cells(6, 9).Value = “Keterangan”
Dari cuplikan coding di atas anda telah mendapatkan header laporan pengeluaran kas yang selanjutnya anda tinggal mengisikan detail dari database yang telah tekoneksi melalui kodesi Ado dengan recordsed rs sbb
N = 1
startRow
Do While Not rs.EOF
‘Cells(Baris,Kolom)
.Cells(startRow + N, 1).Value = N
.Cells(startRow + N, 2).Value = rs!Voucher
.Cells(startRow + N, 3).Value = rs!tanggal
.Cells(startRow + N, 4).Value = rs!chkNo
.Cells(startRow + N, 5).Value = rs!efektif
.Cells(startRow + N, 6).Value = Left(rs!account, 6)
.Cells(startRow + N, 7).Value = rs!kodespl
.Cells(startRow + N, 8).Value = rs!Jumlah
.Cells(startRow + N, 9).Value = rs!Ket
‘ mendapatkan data yang telah jatuh tempo dan yang belum jatuh tempo
if rs!batal then
tbatal = tbatal + 1
else
If rs!efektif <= Date Then
tlunas = tlunas + rs!Jumlah
Else
Tajt = Tajt + rs!Jumlah
End If
End If
rs.MoveNext
N = N + 1
Loop
dan seterusnya anda tinggal membuat bagian penutup dari laporan ….