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