Dim xlapp As Excel.Application
Dim xlbook As Excel.Workbook
Set xlapp = CreateObject("excel.application")
Set xlbook = xlapp.Workbooks.Open("路径和文件名 ")
xlapp.Visible = True
xlapp.WindowState = xlMaximized'********你要的应该就在这里************
xlbook.activate
End Sub