| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 817 人关注过本帖
标题:VB 打开 EXCEL 文件,让 EXCEL 文件显示在最前面
只看楼主 加入收藏
燕之峰
Rank: 2
等 级:论坛游民
帖 子:146
专家分:63
注 册:2014-3-21
结帖率:100%
收藏
已结贴  问题点数:20 回复次数:1 
VB 打开 EXCEL 文件,让 EXCEL 文件显示在最前面
VB打开EXCEL文件,让EXCEL文件显示在最前面,且最大化。这样的VB代码如何编写。
搜索更多相关主题的帖子: EXCEL 如何 
2014-04-18 21:00
owenlu1981
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:13
帖 子:211
专家分:1130
注 册:2013-5-17
收藏
得分:20 
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
2014-04-18 21:59
快速回复:VB 打开 EXCEL 文件,让 EXCEL 文件显示在最前面
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.039710 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved