Pengertian Automation :proses mengendalikan satu program dari
lain program atau alat pengembangan eksternal. Anda dapat mengotomatisasi setiap program yang
berisi Visual Basic object model. Model objek adalah kumpulan hirarkis program
objek yang tersedia atau terkena untuk Visual Basic.
berikut contoh prgram sederhana automation :
-buat form seperti ini
pada menu project terdapat add reference :
-Pilih COM dari cari micosoft word atau excel masing-masing(sesuiakan)
Public Class Form1
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim total As New Integer
If RadioButton1.Checked Then
TextBox5.Text = 2000000
Else
TextBox5.Text = 3000000
End If
total = (Convert.ToInt32(TextBox2.Text) + Convert.ToInt32(TextBox3.Text) + Convert.ToInt32(TextBox5.Text))
TextBox4.Text = total
End Sub excel sesuai dengan milik masing-masing.
-jangan lupa siapkan word atau excel, untuk word lakukan bookmark
perintah bookmark terdapat pada menu insert, pilih tempat sesuai keinginan.
-untuk excel tidak perlu.
-pada button Lembar perhitungan masukan coding berikut :
Dim A As New word.Application
Dim B As New word.Document
B = A.Documents.Open("d:\new folder\Perhitungan Gaji Pegawai.docx")
B.Bookmarks("Nama").Select()
A.Selection.TypeText(TextBox1.Text)
B.Bookmarks("Golongan").Select()
A.Selection.TypeText(TextBox5.Text)
B.Bookmarks("Gaji").Select()
A.Selection.TypeText(TextBox4.Text)
B.SaveAs("d:\new folder\Perhitungan Gaji Pegawai_new.docx")
A.Visible = True
A.Quit()
End Sub
-untuk button terakhir :
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim myexcelapp As New excel.Application
Dim myexcelbook As excel.Workbook
myexcelapp.Visible = True
myexcelbook = myexcelapp.Workbooks.Open("D:\A.xlsx")
myexcelapp.Range("B3").Value = TextBox1.Text
myexcelapp.Range("C3").Value = TextBox5.Text
myexcelapp.Range("D3").Value = TextBox2.Text
myexcelapp.Range("E3").Value = TextBox3.Text
myexcelapp.Range("F3").Value = TextBox4.Text
myexcelbook.SaveAs("D:\A_new.xlsx")
myexcelapp.Quit()
End Sub
-jika ingin jalankan program sebaiknya hitung dahulu.
-berikut contoh hasilnya :