ЛекцСтандарт.ppt

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