Skip to main content

AccessTr.neT


Listview Excelden Veri Aktarımı

Listview Excelden Veri Aktarımı

Photo #1
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()
[Resim: do.php?imgf=152300123602621.jpg]
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.
drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task