Imports Microsoft.VisualBasic.DateAndTime
Imports System.Windows.Forms
Imports System.Data.OleDb
Imports Microsoft.Office.Tools.Excel
Imports Microsoft.Office.Interop.Excel.XlApplicationInternational Imports dao

Public Class Form1
  
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim ex = CreateObject("excel.application")

        Dim exwBook As Excel.Workbook = ex.Workbooks.Open("D:\算工程数量\陈燕平精简表0425.xls")

        Dim exSheet1 = exwBook.Worksheets(1) '按表序
        
    End Sub

End Class

我想要通过窗口的一个按钮打开本地计算机的一张Excel表，但运行的时候，我点击运行没反应，不弹出那张表，请指教，多谢了

已经弄懂了，Open只是在后台打开了Excel表，如果要弹出本地Excel表，需使用以下语句：
 System.Diagnostics.Process.Start("D:\算工程数量\表0425.xls ")    '打开本地的表
        xlBook.Save(True)   '保存表格
        xlBook.Close(True)  '关闭表格
        xlApp.Quit()  '退出表格进程

多谢关注过的人！