| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1234 人关注过本帖
标题:VB打开EXCEL两个工作簿的问题
只看楼主 加入收藏
chen3bing
Rank: 3Rank: 3
等 级:论坛游侠
帖 子:507
专家分:104
注 册:2008-11-12
结帖率:91.22%
收藏
已结贴  问题点数:10 回复次数:2 
VB打开EXCEL两个工作簿的问题
先上代码:
Private Sub Form_Load()
Dim XlApp As New Excel.Application    '使用 Excel 对象删除指定行
Dim XlBook As New Excel.Workbook
Dim XlSheet As New Excel.Worksheet


Set XlApp = CreateObject("Excel.Application") '创建EXCEL对象
XlApp.Visible = True
XlApp.Caption = "应用程序调用 Microsoft Excel"
Set XlBook = XlApp.Workbooks.Add
Set XlBook = XlApp.Workbooks.Open(App.Path & "\Book1.xlsx")
Set XlSheet = XlBook.Worksheets(1)

ActiveCell.AddComment "VB好犀利!"
MsgBox
End Sub
打开一个EXCEL工作簿。
我意图是打开一个book1.xlsx工作簿,可是一下子打开了两个。
OFFICE是2010.
Book1.xlsx是这样的:
图片附件: 游客没有浏览图片的权限,请 登录注册

另一个是这样的:
图片附件: 游客没有浏览图片的权限,请 登录注册

请教高手,如何只打开一个?打开那个Book1.xlsx。谢谢!
搜索更多相关主题的帖子: VB 打开 EXCEL 工作 Set 
2019-05-08 14:08
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4937
专家分:30047
注 册:2008-10-15
收藏
得分:10 
好像不要这行
Set XlBook = XlApp.Workbooks.Add

授人于鱼,不如授人于渔
早已停用QQ了
2019-05-08 21:14
chen3bing
Rank: 3Rank: 3
等 级:论坛游侠
帖 子:507
专家分:104
注 册:2008-11-12
收藏
得分:0 
回复 2楼 风吹过b
谢谢,好了。
2019-05-09 08:08
快速回复:VB打开EXCEL两个工作簿的问题
数据加载中...
 
   



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

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