Tutorial VB.6 Membuat Aplikasi pembuat file Excel Sheet

Untuk Tutorial kali ini kita akan membuat Aplikasi yang bisa membuat file Excel.

Nanti File Excelnya akan ditempatkan di Drive D: dan kita akan meggunakan Progress Bar. Untuk langkah-langkahnya sebagai berikut :

1. Buat Project Baru Standard Exe.

   

2. Kemudian kita akan menambahkan component progress bar, tekan tombol Ctrl + T dan akan muncul jendela Components, cari Microsoft Windows Common Control 6.0 (SP6) checklist dan tekan OK.

   

3. Setelah itu kita tambahkan 2 Command Button (CmdMake dan CmdExit) 1 ProgressBar, 1 Timer, 1 Label (LblHasil).

   

4. Untuk Timer ubah properties interval menjadi 5.

   

5. Setelah itu Copy-kan Script Berikut.





	'Make Excel
	'by Mr. Nugh
	'2015
	Private Sub CmdExit_Click()
	Unload Me
	End Sub
	Private Sub CmdMake_Click()
	Timer1.Enabled = True
	Dim xlApp As Excel.Application
	Dim xlWB As Excel.Workbook
	Dim xlWS As Excel.Worksheet
	Set xlApp = New Excel.Application
	Set xlWB = xlApp.Workbooks.Add
	Set xlWS = xlWB.Worksheets.Add
	'Baris berikut ini akan mengisi cell (2,2) dengan tulisan "hello",
	'dan akan mengisi cell (1,3) dengan tulisan "World"
	xlWS.Cells(2, 2).Value = "Hello"
	xlWS.Cells(3, 2).Value = "Man"
	xlWS.Cells(4, 2).Value = "Succes!"
	'Baris berikut ini menyimpan spreadsheet menjadi file "D:Mysheet.xlsx".
	'Kenapa di Drive D?
	'Jika Drive C harus memerlukan ijin administrator, maka pasti terjadi error saat di run
	xlWS.SaveAs "D:Mysheet.xlsx"
	xlApp.Quit
	'Bebaskan memory...
	Set xlWS = Nothing
	Set xlWB = Nothing
	Set xlApp = Nothing
	End Sub
	Private Sub Form_Load()
	Timer1.Enabled = False
	CmdExit.Enabled = False
	End Sub
	Private Sub Timer1_Timer()
	ProgressBar1.Value = ProgressBar1.Value + 1
	If ProgressBar1.Value = ProgressBar1.Max Then
	Timer1.Enabled = False
	LblHasil.Caption = "Success!"
	CmdExit.Enabled = True
	CmdExit.SetFocus
	End If
	End Sub
	'End Program - - >>

view raw CreateExcelFile hosted with ❤ by GitHub


6. Nah sekarang run dan tekan tombol Make, setelah progres bar menunjukkan selesai, maka label akan menampilkan pesan succes, kemudian CmdExit akan berfungsi. tidak hanya itu kita check di Drive D:

   

7. Anda Mulai mahir sekarang, Demikian Tutorialnya.

Download Projectnya Di Sini

Terimakasih

Semoga Bermanfaat

Jangan Lupa tinggalkan comment ya!

Google + : https://plus.google.com/u/0/+esaprasetio
Twitter : http://twitter.com/aphriell_art
IG : @aphriel_art
Blog :
aprilartwork.blogspot.com for my artwork
aphriellart.blogspot.com for some tutorial
Email : aphriellart@gmail.com