.NET

Excel Office Automation menggunakan Visual Basic.NET

Posted on June 1, 2011. Filed under: IT, VB.NET | Tags: , , , , , , , , , |

Tulisan dibawah ini akan membahas bagaimana proses “Excel Office Automation ” pada Visual Basic.NET (EOA VB.NET),namun sebelum anda membuat sebuah proses EOA VB.NET,sebaiknya anda sudah familiar dengan Visual Basic.NET (Form,Class,Event,Property,Reference dll) karena dalam tutorial ini saya tidak mencantumkan tutorial bagaimana membuat beberapa hal tersebut.
Tutorial EOA VB.NET berikut ini akan menuntun kita bagaimana data yang ada kemudian diexport kedalam sebuah file berformat excel. Karena dalam banyak hal ternyata laporan-laporan dari end user adalah berformat excel. EOA VB.NET akan membuat pekerjaan user lebih efisien, karena laporan yang ada sudah terotomatisasi sehingga user tidak perlu lagi menghabiskan waktu untuk tampilan file excel tersebut.
Sebelum anda membuat EOA VB.NET,maka anda membutuhkan beberapa file yang diperlukan pada proses ini, diantaranya adalah :
– Interop.excel.dll
– Microsoft.Office.Core.dll
– Microsoft.Office.Interop.Excel.dll

Ketiga file ini harus berada didalam folder references dari solution yang akan anda buat
Gambar dibawah ini adalah sebuah data contoh yang akan diexport menjadi sebuah file berformat excel

Data EOA VB.NET

Data EOA VB.NET

Konstruktor class :

Class excel & region “Variable”

Region Variabel

Region Variabel

Region “Enumeration”

Region Enumeration

Region Enumeration

Foler Button Handles Click

Folder Button Handles.CLICK

Folder Button Handles.CLICK

Coding EOA VB.NET

Private Sub Excel_Transfer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Excel_Transfer.Click
If Me.ExcelFile_Txt.Text = “” Then
MsgBox(“File Path is Empty”)
Exit Sub
End If

__Date = Me.AR_Datetime.Value
__FileAS = Trim(Me.ExcelFile_Txt.Text) & “/Laporan_AR_” & Format(__Date, “ddMMMMyy_HHmmss”) & “.xls”

If System.IO.Directory.Exists(Me.ExcelFile_Txt.Text) Then

oXLsWBook = oXLsApps.Workbooks.Add

While oXLsWBook.Worksheets.Count > 1
Dim __X As Global.Excel.Worksheet = oXLsWBook.Worksheets(1)
__X.Delete()
End While

oXLsWSheet = oXLsWBook.Worksheets.Add
oXLsWSheet.Name = “Laporan AR”

With oXLsWSheet.Range(“B1”, “B1”)
.Value = “Laporan AR”
.Font.Bold = True
End With

With oXLsWSheet.Range(“B2”, “B2″)
.Value = __Date ‘”Periode : ” & Format(__Date, “dd-mm-yyyy”)
.NumberFormat = “dd-mmm-yyyy”
.Font.Bold = True
.HorizontalAlignment = Microsoft.Office.Interop.Excel.XlHAlign.xlHAlignLeft
End With

With oXLsWSheet.Range(“A4”, “F4”)
.Value = __ARHeader
.Font.Bold = True
.Interior.ColorIndex = 1
.Font.ColorIndex = 2
.HorizontalAlignment = Microsoft.Office.Interop.Excel.XlHAlign.xlHAlignCenter

End With

__TotROWs = 4
For i As Integer = 0 To Me.Grid1.Rows.Count – 2
__TotROWs += 1
oXLsWSheet.Range(“A” & __TotROWs).Value = “‘” & Me.Grid1.Item(0, i).Value.ToString
oXLsWSheet.Range(“B” & __TotROWs).Value = “‘” & Me.Grid1.Item(1, i).Value.ToString
oXLsWSheet.Range(“C” & __TotROWs).Value = Me.Grid1.Item(2, i).Value.ToString
oXLsWSheet.Range(“D” & __TotROWs).Value = Me.Grid1.Item(3, i).Value.ToString
oXLsWSheet.Range(“E” & __TotROWs).Value = Me.Grid1.Item(4, i).Value.ToString
oXLsWSheet.Range(“F” & __TotROWs).Value = Me.Grid1.Item(5, i).Value.ToString
Next

__TotROWs += 1
With oXLsWSheet.Range(“C4”, “F” & __TotROWs)
.EntireRow.NumberFormat = “#,##0_);[Red](#,##0)”

End With

With oXLsWSheet.Range(“C” & __TotROWs)
.Value = “=SUM(C5:C” & __TotROWs – 1 & “)”
.Interior.ColorIndex = 15

.Borders(Microsoft.Office.Interop.Excel.XlBordersIndex.xlEdgeBottom).Weight = Microsoft.Office.Interop.Excel.XlBorderWeight.xlThick
.Borders(Microsoft.Office.Interop.Excel.XlBordersIndex.xlEdgeBottom).LineStyle = Microsoft.Office.Interop.Excel.XlLineStyle.xlContinuous

.Borders(Microsoft.Office.Interop.Excel.XlBordersIndex.xlEdgeTop).Weight = Microsoft.Office.Interop.Excel.XlBorderWeight.xlThick
.Borders(Microsoft.Office.Interop.Excel.XlBordersIndex.xlEdgeTop).LineStyle = Microsoft.Office.Interop.Excel.XlLineStyle.xlContinuous

.Borders(Microsoft.Office.Interop.Excel.XlBordersIndex.xlEdgeLeft).Weight = Microsoft.Office.Interop.Excel.XlBorderWeight.xlThick
.Borders(Microsoft.Office.Interop.Excel.XlBordersIndex.xlEdgeLeft).LineStyle = Microsoft.Office.Interop.Excel.XlLineStyle.xlContinuous

.Borders(Microsoft.Office.Interop.Excel.XlBordersIndex.xlEdgeRight).Weight = Microsoft.Office.Interop.Excel.XlBorderWeight.xlThick
.Borders(Microsoft.Office.Interop.Excel.XlBordersIndex.xlEdgeRight).LineStyle = Microsoft.Office.Interop.Excel.XlLineStyle.xlContinuous

End With

With oXLsWSheet.Range(“D” & __TotROWs)
.Value = “=SUM(D5:D” & __TotROWs – 1 & “)”
.Interior.ColorIndex = 15

.Borders(Microsoft.Office.Interop.Excel.XlBordersIndex.xlEdgeBottom).Weight = Microsoft.Office.Interop.Excel.XlBorderWeight.xlThick
.Borders(Microsoft.Office.Interop.Excel.XlBordersIndex.xlEdgeBottom).LineStyle = Microsoft.Office.Interop.Excel.XlLineStyle.xlContinuous

.Borders(Microsoft.Office.Interop.Excel.XlBordersIndex.xlEdgeTop).Weight = Microsoft.Office.Interop.Excel.XlBorderWeight.xlThick
.Borders(Microsoft.Office.Interop.Excel.XlBordersIndex.xlEdgeTop).LineStyle = Microsoft.Office.Interop.Excel.XlLineStyle.xlContinuous

.Borders(Microsoft.Office.Interop.Excel.XlBordersIndex.xlEdgeLeft).Weight = Microsoft.Office.Interop.Excel.XlBorderWeight.xlThick
.Borders(Microsoft.Office.Interop.Excel.XlBordersIndex.xlEdgeLeft).LineStyle = Microsoft.Office.Interop.Excel.XlLineStyle.xlContinuous

.Borders(Microsoft.Office.Interop.Excel.XlBordersIndex.xlEdgeRight).Weight = Microsoft.Office.Interop.Excel.XlBorderWeight.xlThick
.Borders(Microsoft.Office.Interop.Excel.XlBordersIndex.xlEdgeRight).LineStyle = Microsoft.Office.Interop.Excel.XlLineStyle.xlContinuous

End With

With oXLsWSheet.Range(“E” & __TotROWs)
.Value = “=SUM(E5:E” & __TotROWs – 1 & “)”
.Interior.ColorIndex = 15

.Borders(Microsoft.Office.Interop.Excel.XlBordersIndex.xlEdgeBottom).Weight = Microsoft.Office.Interop.Excel.XlBorderWeight.xlThick
.Borders(Microsoft.Office.Interop.Excel.XlBordersIndex.xlEdgeBottom).LineStyle = Microsoft.Office.Interop.Excel.XlLineStyle.xlContinuous

.Borders(Microsoft.Office.Interop.Excel.XlBordersIndex.xlEdgeTop).Weight = Microsoft.Office.Interop.Excel.XlBorderWeight.xlThick
.Borders(Microsoft.Office.Interop.Excel.XlBordersIndex.xlEdgeTop).LineStyle = Microsoft.Office.Interop.Excel.XlLineStyle.xlContinuous

.Borders(Microsoft.Office.Interop.Excel.XlBordersIndex.xlEdgeLeft).Weight = Microsoft.Office.Interop.Excel.XlBorderWeight.xlThick
.Borders(Microsoft.Office.Interop.Excel.XlBordersIndex.xlEdgeLeft).LineStyle = Microsoft.Office.Interop.Excel.XlLineStyle.xlContinuous

.Borders(Microsoft.Office.Interop.Excel.XlBordersIndex.xlEdgeRight).Weight = Microsoft.Office.Interop.Excel.XlBorderWeight.xlThick
.Borders(Microsoft.Office.Interop.Excel.XlBordersIndex.xlEdgeRight).LineStyle = Microsoft.Office.Interop.Excel.XlLineStyle.xlContinuous

End With

With oXLsWSheet.Range(“F” & __TotROWs)
.Value = “=SUM(F5:F” & __TotROWs – 1 & “)”
.Interior.ColorIndex = 15

.Borders(Microsoft.Office.Interop.Excel.XlBordersIndex.xlEdgeBottom).Weight = Microsoft.Office.Interop.Excel.XlBorderWeight.xlThick
.Borders(Microsoft.Office.Interop.Excel.XlBordersIndex.xlEdgeBottom).LineStyle = Microsoft.Office.Interop.Excel.XlLineStyle.xlContinuous

.Borders(Microsoft.Office.Interop.Excel.XlBordersIndex.xlEdgeTop).Weight = Microsoft.Office.Interop.Excel.XlBorderWeight.xlThick
.Borders(Microsoft.Office.Interop.Excel.XlBordersIndex.xlEdgeTop).LineStyle = Microsoft.Office.Interop.Excel.XlLineStyle.xlContinuous

.Borders(Microsoft.Office.Interop.Excel.XlBordersIndex.xlEdgeLeft).Weight = Microsoft.Office.Interop.Excel.XlBorderWeight.xlThick
.Borders(Microsoft.Office.Interop.Excel.XlBordersIndex.xlEdgeLeft).LineStyle = Microsoft.Office.Interop.Excel.XlLineStyle.xlContinuous

.Borders(Microsoft.Office.Interop.Excel.XlBordersIndex.xlEdgeRight).Weight = Microsoft.Office.Interop.Excel.XlBorderWeight.xlThick
.Borders(Microsoft.Office.Interop.Excel.XlBordersIndex.xlEdgeRight).LineStyle = Microsoft.Office.Interop.Excel.XlLineStyle.xlContinuous

End With

oXLsWSheet.Range(“C” & __TotROWs, “F” & __TotROWs).Font.Bold = True

With oXLsWSheet.Range(“A1”, “F” & __TotROWs)
.EntireColumn.AutoFit()
.EntireColumn.Font.Name = FONTnya.Tahoma.ToString
.EntireColumn.Font.Size = 9
End With

oXLsWSheet.Range(“B1”).ColumnWidth = 60

oXLsWBook.SaveAs(__FileAS, FileFormat:=Microsoft.Office.Interop.Excel.XlFileFormat.xlExcel7)
oXLsApps.DisplayAlerts = True
oXLsWBook.Close()
oXLsApps.Quit()

MsgBox(“Proceed Transfer is Done!!!”)
Else
MsgBox(“Invalid Folder Path!!!”)
End If

End Sub

Output EOA VB.NET

Output Excel Office Automation

Output Excel Office Automation

Fungsi Class Excel

Class Excel

Class Excel

Excel Macro

apabila mengalami kendala dalam fungsi2 excel yang mungkin belum kita ketahui,dapat dicoba dengan menggunakan fungsi Macro pada Excel dan kemudian diterapkan pada Coding.

Excel Macro

Excel Macro

Demikian tutorial Excel Office Automation menggunakan Visual Basic.NET, semoga bermanfaat bagi kita semua

Bangun Ariyanto

ganbatte!!!!!

God Bless You ALL

Read Full Post | Make a Comment ( 3 so far )

Penggunaan DES enkripsi pada Visual Basic.NET

Posted on March 11, 2010. Filed under: Kampus, VB.NET | Tags: , , , , |

Berikut adalah tutorial penggunaan Class Enkripsi dari DES pada Visual Basic.net

1.Create NEW FORM

Create NEW Form

2.Tambahkan object Textbox&button

Design OUTPUT DES

3.Koding Enkripsi dan Dekripsi menggunakan DES

Koding FORM LOAD

Koding Enkripsi-Dekripsi

4.Output Eksekusi Enkripsi DES

DES-Plaintext

Saat Eksekusi Enkripsi

5.Output Eksekusi Dekripsi DES

DES-Chiper

DES-Dekrip

Read Full Post | Make a Comment ( 4 so far )

VISUAL BASIC .NET 2005 IDE

Posted on February 9, 2010. Filed under: VB.NET | Tags: , , , |

VISUAL BASIC .NET 2005 IDE

Secara sederhana gambaran dari proses pengembangan aplikasi adalah bahwa Visual Studio .NET 2005 menyediakan area atau lingkungan pengembangan terintegrasi atau sering disebut dengan IDE (Interface Development Environment). Lingkungan ini menyediakan tool untuk mendesain, menjalankan dan mencari kesalahan program dari aplikasi yang dibuat. Untuk melakukan setting properti dari masing masing kontrol, dapat melihat menu Properties Window dan dobel klik pada form untuk memasukkan kode program.

Pada Visual Studio .NET 2005 tampilan lingkungan pada berbagai bahasa pemrogramannya dibuat sama persis. Hal ini untuk mempermudah dalam mendesain dan mengelola suatu solution atau proyek yang menggunakan lebih dari satu bahasa pemrograman pada saat yang sama.

Tampilan Visual Basic NET

Ada perbedaan lingkungan yang ditempati untuk aplikasi yang dibuat dengan Visual Basic 6 dengan Visual Basic .NET 2005. Pada Visual Basic 6, keseluruhan program aplikasi disebut dengan proyek (Project) dan umumnya hasil akhir dari proyek tersebut adalah file .exe atau .dll. Sedang pada Visual Studio .Net 2005 (termasuk didalamnya Visual Basic .NET 2005) menggunakan solution yang berisi lebih dari satu proyek (Project) dan juga berisi gambar, file XML serta elemen lainnya yang merupakan bagian dari program. Dalam satu solution dapat dibuat lebih dari file .exe atau .dll dari aplikasi yang dibuat oleh bahasa pemrograman yang berbeda beda.

Beberapa template yang disediakan oleh Visual Basic .NET 205, antara lain :

    Windows Application

Template Windows Application digunakan untuk membuat proyek aplikasi berbasis Windows yang mempunyai form Windows sebagai tool utama untuk antar muka.

    Windows Control Library

Template Windows Control Library digunakan untuk membuat container kosong dan referensi perpustakaan yang sesuai pada namaspace system.

    Class Library

Template Class Library merupakan kontrol yang digunakan untuk membuat kode dasar yang tidak mempunyai antar muka. Class adalah kumpulan dari fungsi yang dapat digunakan untuk proyek lain.

    Console Application

Template Console Application digunakan untuk membuat aplikasi yang tidak memiliki antar muka dan umumnya ditampilkan dari Command Prompt.

    Empty Web Project

Template Empty Web Project digunakan untuk membuat aplikasi web.

    ASP.NET Web Service

Template ASP.NET Web Service digunakan sebagai middle tier yang ditampilkan melalui protocol HTTP. Tipe proyek ini dapat digunakan untuk membuat web service.

Read Full Post | Make a Comment ( 4 so far )

SEKILAS TENTANG VISUAL BASIC.NET 2005

Posted on February 8, 2010. Filed under: .NET | Tags: , |

SEKILAS TENTANG VISUAL BASIC.NET 2005

Visual Studio 2005

Belum berselang lama Visual Studio .NET 2003 merambah dunia pemrograman, kini kehadiranya sudah diganti oleh Visual Studio .NET 2005. Konon pergantian ini difungsikan untuk menutup beberapa kekurangan yang dimiliki oleh Visual Studio .NET 2003. Keberadaan Visual Studio .NET 2005 sangat mendukung pengembangan aplikasi terdistribusi dan pengembangan e-commerce.
Visual Basic.NET 2005 adalah salah satu bahasa pemrograman yang ada di dalam Visual Studio .NET 2005. Beberapa perubahan drastis ditambahkan pada Visual Basic .NET 2005 mulai dari tampilan kontrol, mendukung penuh OOP (Object Oriented Programming), tersedianya fasilitas GUI (Graphic Universal Interface) sampai dengan cara melakukan koneksi database yang lebih sempurna dari pendahulunya. Pada pemrograman database, Visual Basic .NET 2005 sangat tepat jika disandingkan dengan Microsoft SQL Server 2005.
Tidak berlebihan jika para pemakai program Visual Basic harus bermigrasi ke Visual Basic .NET 2005, karena beberapa alasan berikut :
-Adanya fasilitas penanganan kesalahan (bug) yang real time background compiler sehingga developer Visual C# dapat mengetahui kesalahan kode secara up-to-date.
-Visual Basic .NET 2005 menyediakan model pemrograman data akses ActiveX Data Object (ADO), ditambah dengan XML baru berbasis Microsoft ADO.NET
-Visual Basic .NET 2005 menghasilkan Visual Basic .NET 2005 untuk web.
-Mendukung pembuatan aplikasi client-server, terdistribusi, serta aplikasi yang berbasis Windows maupun web.
-Net Framework com memungkinkan pemakai dapat berinteraksi dengan sistem yang sudah ada, dengan menggunakan XML web service.
-Net Framework mendukung integrasi lebih dari 20 bahan pemrograman.
Penyebaran program yang mudah, baik untuk aplikasi windows maupun aplikasi web karena sudah tersedia wizard secara khusus dengan fasilitas tambahan yang menarik.

Read Full Post | Make a Comment ( None so far )

Liked it here?
Why not try sites on the blogroll...