[vbnet]

.....

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Using op As New OpenFileDialog
        op.Filter = "Excel files (*.xls,xlsx)|*.xls;*.xlsx"

        If op.ShowDialog = DialogResult.OK Then
            Dim xlsApp As New Excel.Application
            Dim xlsWorkBook As Excel.Workbook

            xlsWorkBook = xlsApp.Workbooks.Open(op.FileName)
            xlsApp.Visible = True

        End If
    End Using
End Sub

.....