以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  VBA代码打开excel并预览怎么推到前台显示  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=34365)

--  作者:powermannico
--  发布时间:2013/6/6 13:02:00
--  VBA代码打开excel并预览怎么推到前台显示
用VBA代码打开excel表格用excel自带的预览。请问怎么把excel推到前台显示,现在执行代码以后好像是最小化了一样
Dim App As New MSExcel.Application
App.Visible = True
Dim Wb As MSExcel.Workbook = App.WorkBooks.Open(ProjectPath & "reports\\xx.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Ws.PrintPreview
App.Quit

--  作者:狐狸爸爸
--  发布时间:2013/6/6 14:19:00
--  
http://www.foxtable.com/help/topics/2713.htm
--  作者:powermannico
--  发布时间:2013/6/6 14:40:00
--  
 OK,感谢狐爸,关联贴http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=34353,请狐爸看看
[此贴子已经被作者于2013-6-6 14:40:50编辑过]