在outlook后台想定义activeworkbookk需加载什么包

来源：蜘蛛抓取(WebSpider) 时间：2012-05-17 03:21 标签： activeworkbook
(window.slotbydup=window.slotbydup || []).push({
id: '2014386',
container: s,
size: '234,60',
display: 'inlay-fix'
(11人评价)
&&|&&23次下载&&|&&总388页&&|
您的计算机尚未安装Flash，点击安装&
阅读已结束，如需下载到电脑，请使用积分（）
下载：100积分
相关分类推荐
0人评价2页
0人评价4页
0人评价2页
2人评价77页
0人评价3页
所需积分：（友情提示：大部分文档均可免费预览！下载之前请务必先预览阅读，以免误下载造成积分浪费！）
（多个标签用逗号分隔）
文不对题，内容与标题介绍不符
广告内容或内容过于简单
文档乱码或无法正常显示
若此文档涉嫌侵害了您的权利，请参照说明。
评价文档：
下载：100积分查看: 4800|回复: 6
隐藏workbook或者说后台执行
阅读权限20
在线时间 小时
我现在有一个A.xls在其中,写vba代码，vba代码包括读取文件夹获得文件列表，批量对每一个excel执行相同操作，已经实现。但是每次都会打开文件列表中的excel文件，执行完操作后再关闭。能否将我要对其操作的excel，打开时不显示或者说是在后台对其执行的操作，能否实现。谢谢各位了。
Dim wbk As Workbook
Set wbk = Workbooks.Open(Range(&A& & i).Text)& & '我将文件列表写在A列中，循环读取进行操作
。。。。相应操作
wbk.SaveAs (&E:\& + wbk.Name)&&‘另存到其他路径
wbk.Close savechanges:=False
阅读权限20
在线时间 小时
查了一下，好像用Workbooks(Range(&A& & i).Text).Windows(1).Visible = False可以，但是我在set前加了不正确，应该怎么写？
阅读权限70
在线时间 小时
既然你set wbk = Workbooks.Open(Range(&A& & i).Text)
那么用就 wbk.Windows(1).Visible = False
阅读权限50
在线时间 小时
Dim wbk As Workbook
For i = 2 To [A65536].End(xlUp).Row
& & Set wbk = GetObject(ThisWorkbook.Sheets(&表名&).Range(&A& & i).Text)
& & '????相应操作
& & wbk.SaveAs (&E:\& + wbk.Name)&&'另存到其他路径
& & wbk.Close savechanges:=False
阅读权限20
在线时间 小时
谢谢两位了，好像都不行，hanter007的方法我试验过不行，我想是因为已经open了，再set的话不起作用了。风之助的方法好像也不好使，是否跟我调用了sub有关。因为我是这样子的：
Dim wbk As Workbook
Set wbk = Workbooks.Open(Range(&A& & i).Text)& & '我将文件列表写在A列中，循环读取进行操作
call movingrow(wbk)
’。。。。相应操作,我将wbk作为参数传过去执行行的移动操作
wbk.SaveAs (&E:\& + wbk.Name)&&‘另存到其他路径
wbk.Close savechanges:=False
阅读权限50
在线时间 小时
请上传你的示例文件！
阅读权限95
在线时间 小时
& & & & & & & &
不要直接打开,先新建application,在新的application打开workbook
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师

我要回帖

更多关于 activeworkbook 的文章

 

随机推荐