sub openwksht
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
温馨提示:答案为网友推荐,仅供参考