| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 4798 人关注过本帖, 2 人收藏
标题:如何让VB打开的EXCEL文件,显示指定工作表
只看楼主 加入收藏
燕之峰
Rank: 2
等 级:论坛游民
帖 子:146
专家分:63
注 册:2014-3-21
结帖率:100%
收藏(2)
已结贴  问题点数:5 回复次数:3 
如何让VB打开的EXCEL文件,显示指定工作表
各位网友好,有时根据需要,用VB打开EXCEL文件 ,想打开时就显示某个工作表,但根据以往的代码打开后,往往不是要显示的工作表。这样达不到理想的效果,请问如何设置,才能使使打开的EXCEL文件显示的工作表就是想要的。请指导,谢谢
搜索更多相关主题的帖子: 工作表 EXCEL 如何 友好 
2014-04-11 10:52
owenlu1981
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:13
帖 子:211
专家分:1130
注 册:2013-5-17
收藏
得分:3 
Dim xlapp As Excel.Application 'Excel对象
Dim xlbook As Excel.Workbook '工作簿
Dim xlsheet As Excel.Worksheet '工作表

xlApp.Visible = True
Set xlapp = CreateObject("Excel.Application") '创建EXCEL对象
Set xlbook = xlapp.Workbooks.Open(App.Path & "/test.xls") '打开已经存在的test.xls工件簿文件
Set xlsheet = xlbook.Worksheets(1) '设置工作薄第"1"个工作表为活动工作表
xlsheet.Select
2014-04-11 11:50
alike123
Rank: 6Rank: 6
等 级:侠之大者
威 望:8
帖 子:107
专家分:428
注 册:2014-2-10
收藏
得分:3 
xlApp.Visible = True
CommonDialog1.ShowOpen
strFileName = CommonDialog1.FileName
CommonDialog1.Filter = "Xls文件(*.Xls)|*.Xls|所有文件(*.*)|*.*"
Set xlapp = CreateObject("Excel.Application") '创建EXCEL对象
Set xlbook = xlapp.Workbooks.Open(strFileName)
Set xlsheet = xlbook.Worksheets(1) '设置工作薄第"1"个工作表为活动工作表
xlsheet.Select
修正一下2楼的
2014-04-11 16:05
燕之峰
Rank: 2
等 级:论坛游民
帖 子:146
专家分:63
注 册:2014-3-21
收藏
得分:0 
xlsheet.Activate
这行代码可以吗
2014-04-12 14:27
快速回复:如何让VB打开的EXCEL文件,显示指定工作表
数据加载中...
 
   



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

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