Imports Microsoft.Office.Interop.Excel

Class Form1

Private Sub mnuExit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles mnuExit.Click

End

End Sub

Private Sub mnuOpen_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles mnuOpen.Click

Dim xl As Object, filename1 As String

OpenFileDialog1.ShowDialog() filename1 = OpenFileDialog1.FileName xl = CreateObject("Excel.Application") xl.Workbooks.Open(filename1) xl.visible = True

End Sub

End Class