Export data dari listview ke format excel sangat sering dilakukan, apalagi data tersebut terkait dengan data operasional harian yang akan di modifikasi dengan aplikasi lain. Microsoft excel merupakan salah satu aplikasi yang paling sering digunakan untuk mengedit dokumen dalam bentuk data. berikut cara export data dari listview ke microsoft excel dengan VB.NET
Yang perlu disedikan adalah:
- Object Listview
- Object Progress Bar
- Copy module ExportToExcel
- Panggil dengan "Call ExportToExcel(Listview1, ProgressBar1)
Imports Excel = Microsoft.Office.Interop.Excel
Module modExcel
Public Sub ExportToExcel(li As ListView, pb As ProgressBar)
Try
Dim objExcel As New Excel.Application
'objExcel.Visible = True
objExcel.UserControl = True
Dim oldCI As System.Globalization.CultureInfo = System.Threading.Thread.CurrentThread.CurrentCulture
System.Threading.Thread.CurrentThread.CurrentCulture = New System.Globalization.CultureInfo("en-US")
Dim bkWorkBook As Excel.Workbook
Dim shWorkSheet As Excel.Worksheet
Dim i As Integer
Dim j As Integer
objExcel = New Excel.Application
bkWorkBook = objExcel.Workbooks.Add
shWorkSheet = objExcel.Sheets.Add
'shWorkSheet.Name = "Sheet1"
shWorkSheet = CType(bkWorkBook.ActiveSheet, Excel.Worksheet)
pb.Visible = True
pb.Maximum = li.Items.Count
pb.Value = 0
'Masukkan Header
For i = 0 To li.Columns.Count - 1
shWorkSheet.Cells(1, i + 1) = li.Columns(i).Text
Next
'Masukkan isi
For i = 0 To li.Items.Count - 1
pb.Value += 1
For j = 0 To li.Items(i).SubItems.Count - 1
If sLeft(li.Items(i).SubItems(j).Text, 1) = "0" Then
shWorkSheet.Cells(i + 2, j + 1) = "'" & li.Items(i).SubItems(j).Text
Else
shWorkSheet.Cells(i + 2, j + 1) = li.Items(i).SubItems(j).Text
End If
Next
Next
objExcel.Visible = True
pb.Visible = False
System.Threading.Thread.CurrentThread.CurrentCulture = oldCI
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
End Module
1 comments:
ITU SLEFT SEBAGAI APA GAN?
Posting Komentar