ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 9361|回复: 6

[求助] 隐藏workbook或者说后台执行

[复制链接]

TA的精华主题

TA的得分主题

发表于 2009-7-3 10:46 | 显示全部楼层 |阅读模式
我现在有一个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

TA的精华主题

TA的得分主题

 楼主| 发表于 2009-7-3 11:00 | 显示全部楼层
查了一下,好像用Workbooks(Range("A" & i).Text).Windows(1).Visible = False可以,但是我在set前加了不正确,应该怎么写?

TA的精华主题

TA的得分主题

发表于 2009-7-3 11:56 | 显示全部楼层
既然你set wbk = Workbooks.Open(Range("A" & i).Text)
那么用就 wbk.Windows(1).Visible = False

TA的精华主题

TA的得分主题

发表于 2009-7-3 12:00 | 显示全部楼层
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
Next i

TA的精华主题

TA的得分主题

 楼主| 发表于 2009-7-3 13:37 | 显示全部楼层
谢谢两位了,好像都不行,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

TA的精华主题

TA的得分主题

发表于 2009-7-3 15:04 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
请上传你的示例文件!

TA的精华主题

TA的得分主题

发表于 2009-7-3 15:09 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
不要直接打开,先新建application,在新的application打开workbook
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-3-29 13:42 , Processed in 0.042646 second(s), 9 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表