Dim Dosyaad As String
Dim Uygulama As Excel.Application
Dim Kitap As Excel.Workbook
Dim Sayfa As Excel.Worksheet
Dim SayfaSec As Excel.Range
Dim KolonSinir(0 To 100) As String
Uygulama = New Excel.Application
Dim file As OpenFileDialog = New OpenFileDialog()
If file.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
Dosyaad = file.FileName
Uygulama.Workbooks.Open(Dosyaad)
Kitap = Uygulama.ActiveWorkbook
Sayfa = Kitap.ActiveSheet
SayfaSec = Sayfa.UsedRange
If SayfaSec.Columns.Count > 0 Then
If SayfaSec.Rows.Count > 0 Then
For xlRow = 1 To SayfaSec.Rows.Count
For xlCol = 1 To SayfaSec.Columns.Count
KolonSinir(xlCol) = SayfaSec.Cells(xlRow, xlCol).text
If xlCol = 1 Then
ListView1.Items.Add(KolonSinir(xlCol).ToString)
Else
ListView1.Items(xlRow - 1).SubItems.Add(KolonSinir(xlCol).ToString)
End If
Next
Next
End If
End If
End If
Uygulama.Workbooks.Close()
Bu şekilde listviewe Excel verilerini aktarıyorum.
Sorum Şudur;
1- İlk checkbox sütununa isimleri yazıyor. Ben isimleri 2. kolona yazmasını istiyorum.
2- Satırlar listviewe eklenirken progresbar eklenen satır sayısı kadar artsın satır ekleme bitince progresbar da sonlansın istiyorum.
Teşekkürler.