Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim mExcelApplication As Object = CreateObject("Excel.Application")
mExcelApplication.Workbooks.Open(Filename:="G:/资料.xls")
mExcelApplication.Visible = True
End Sub