Private Sub Form_Load()
Dim xlapp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Set xlBook = xlapp.Workbooks.Open("C:\Users\Administrator\Desktop\匹配\2023年个人工作完成情况汇总.xlsx")
xlBook.Worksheets("sheet1").Select
xlapp.Visible = True
End Sub