想通过按钮将自己的excel表显示在界面上，百度了也不太清楚，新手求教

百度vb.net excel

为何我回复了代码就被删除了…………。

'VB6 如下代码
Set oexcel=CreateObject("excel.application")
Set obook=oexcel.Workbooks.Open("D:1.xlsm")
Set osheet=obook.Sheets("sheet1")
oexcel.visible = False
'显示第一个工作表A1单元格数据
Dim ZS '●总数
ZS=42
Dim IPaddress(500) 'ip地址
Dim i
'循环赋值变量
For i = 1 to ZS
IPaddress(i)= osheet.cells(i,1)
Next
'关闭Excel
Set obook=Nothing
Set osheet=Nothing
oexcel.Quit
Msgbox "Read Finished"

'下面的代码为VB.net 读取或写入 Excel
Imports Microsoft.Office.Interop
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim ExcelApp As Excel.Application '定义Excel的Application
Dim wkBook As Excel.Workbook '定义Excel的Application
Dim wkSheet As Excel.Worksheet
On Error Resume Next
Excelapp = GetObject(, "Excel.application") '"Excel.application"
wkBook = ExcelApp.ActiveWorkbook '"workbooks"
wkSheet = wkBook.ActiveSheet
If ExcelApp.Workbooks.Count = 0 Then '注：如果新建未保存的工作簿不算打开
MsgBox("没有工作簿打开")
'Exit Sub
ExcelApp = CreateObject("Excel.application")
wkBook = ExcelApp.Workbooks.Add
wkSheet = wkBook.Worksheets.Add
ExcelApp.Visible = True
End If
With wkSheet
For i = 1 To 10
For j = 1 To 10
.Cells(i, j) = i
Next j
Next i
.Range("A1").Value = "Excel 表格控制，好玩吗"
.Cells(6, 6).Value = "Excel 表格控制"
End With
'ExcelSheet.SaveAs("F:\test.xlsx")
ExcelApp.ScreenUpdating = True
wkSheet = Nothing
wkBook = Nothing
ExcelApp = Nothing
End Sub
End Class