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()