VB 打开 EXCEL 文件,让 EXCEL 文件显示在最前面
VB打开EXCEL文件,让EXCEL文件显示在最前面,且最大化。这样的VB代码如何编写。
Dim xlApp As New Excel.Application, xlBook As New Excel.Workbook, xlSheet As New Excel.Worksheet
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add '新建Excel
Set xlBook = xlApp.Workbooks.Open("C:\a.xls") '打开固定文件,如果需要选择文件打开则使用CommonDialog1或(DriverListBox+DirListBox+FileListBox)组合选定文件再打开
Set xlSheet = xlBook.Worksheets(1) ‘指定第一个工作表为活动表
xlApp.Visible = True ’显示Excel
xlapp.WindowState = xlMaximized '最大化
处理完毕需要关闭的话
xlbook.close
Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing
xlApp.Quit