如何用excel为批量打印excel文件文件做目录

来源：蜘蛛抓取(WebSpider) 时间：2016-11-28 11:02 标签： 批量生成excel文件
 上传我的文档
 下载
 收藏
该文档贡献者很忙，什么也没留下。
 下载此文档
正在努力加载中...
批量获取指定目录下所有文本文件名和内容 excel VBA代码
下载积分：0
内容提示：批量获取指定目录下所有文本文件名和内容 excel VBA代码
文档格式：DOC|
浏览次数：139|
上传日期： 14:06:19|
文档星级：
该用户还上传了这些文档
批量获取指定目录下所有文本文件名和内容 excel VBA代
官方公共微信ExcelHome学院&
财务会计玩转Excel
&学习班讲师
本文来自微信公众账号提交，由微讯啦收录，转载请注明出处。
微信扫码 分享文章查看: 4597|回复: 32
请问如何批量为目录下的所有EXCEL文件设置密码
阅读权限20
在线时间 小时
求助大侠，如何在BOOK1中设置宏，为目录1下的所有文件及其子目录下的所有EXCEL（*.xlsx和*.xls）文件设置密码？谢谢！
17:27 上传
点击文件名下载附件
23.74 KB, 下载次数: 67
阅读权限95
在线时间 小时
请参考:
Sub Macro1()
& & Dim Fso As Object, Folder As Object, arrf$(), mf&
& & Application.ScreenUpdating = False
& & Application.DisplayAlerts = False
& & Set Fso = CreateObject(&Scripting.FileSystemObject&)
& & Set Folder = Fso.GetFolder(ThisWorkbook.Path)
& & Call GetFiles(Folder, arrf, mf)
& & For i = 1 To mf
& && &&&With Workbooks.Open(arrf(i), , , , &abc&)
& && && && &If Right$(arrf(i), 4) = &.xls& Then
& && && && && & .SaveAs Filename:=arrf(i), FileFormat:=xlExcel8, Password:=&abc&
& && && && &Else
& && && && && & .SaveAs Filename:=arrf(i), Password:=&abc&
& && && && &End If
& && && && &.Close
& && &&&End With
& & Next
& & Set Folder = Nothing
& & Set Fso = Nothing
& & Application.ScreenUpdating = True
End Sub
Sub GetFiles(ByVal Folder As Object, ByRef arrf$(), ByRef mf&)
& & Dim SubFolder As Object
& & Dim File As Object
& & For Each File In Folder.Files
& && &&&If File.Name Like &*.xls& Or File.Name Like &*.xlsx& Then
& && && && &mf = mf + 1
& && && && &ReDim Preserve arrf(1 To mf)
& && && && &arrf(mf) = File
& && &&&End If
& & Next
& & For Each SubFolder In Folder.SubFolders
& && &&&Call GetFiles(SubFolder, arrf, mf)
& & Next
& & Set SubFolder = Nothing
End Sub
复制代码
阅读权限95
在线时间 小时
请测试附件
(37.88 KB, 下载次数: 213)
17:51 上传
点击文件名下载附件
阅读权限20
在线时间 小时
太棒了！非常OK！
阅读权限20
在线时间 小时
再问下，如果再批量取消密码呢？谢谢！
阅读权限95
在线时间 小时
ggyyzyf 发表于
再问下，如果再批量取消密码呢？谢谢！Sub 解除密码()
& & Dim Fso As Object, Folder As Object, arrf$(), mf&
& & Application.ScreenUpdating = False
& & Application.DisplayAlerts = False
& & Set Fso = CreateObject(&Scripting.FileSystemObject&)
& & Set Folder = Fso.GetFolder(ThisWorkbook.Path)
& & Call GetFiles(Folder, arrf, mf)
& & For i = 1 To mf
& && &&&With Workbooks.Open(arrf(i), , , , &abc&)
& && && && &If Right$(arrf(i), 4) = &.xls& Then
& && && && && & .SaveAs Filename:=arrf(i), FileFormat:=xlExcel8, Password:=&&
& && && && &Else
& && && && && & .SaveAs Filename:=arrf(i), Password:=&&
& && && && &End If
& && && && &.Close
& && &&&End With
& & Next
& & Set Folder = Nothing
& & Set Fso = Nothing
& & Application.ScreenUpdating = True
End Sub
复制代码
阅读权限95
在线时间 小时
(45.77 KB, 下载次数: 124)
21:47 上传
点击文件名下载附件
阅读权限20
在线时间 小时
太牛了，非常感谢，帮大忙了
阅读权限50
在线时间 小时
zhaogang1960 发表于
请测试附件
非常不错，赵版就是热心肠。
提点建议，请赵版继续优化，这样可能做成通用程序：
1. 关于选择文件夹，建议做成窗体，在TextBox中设置路径，在CheckBox中设置是否需要文件夹子目录。2. 关于文件类型，建议做成所有类型的excel文件，（.xls/.xlsx/.xlsm）, 而且在文件选择下拉框中明确区分。
3. 选择要加密的文档或要解密的文档，如果某些文档已有非已知密码，则忽略，在远行完之后，提出，***文档因什么原因没有操作成功。
4. 如果文档多，有个进度条就更完美了。
以上，仅个人意见，请赵版有时间帮忙继续完善，谢谢。
阅读权限95
在线时间 小时
yf_home 发表于
非常不错，赵版就是热心肠。
提点建议，请赵版继续优化，这样可能做成通用程序：
捕获.JPG (77.25 KB, 下载次数: 16)
17:25 上传
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师批量新建文件夹 Excel+记事本帮您实现
最近，一个朋友问我怎么批量创建文件夹，而且还是名称自己定义的那种，并不是XX（1）、XX（2）、XX（3）那种的，对于一个从事电脑行业多年的人来说，不知道方法显然说不过去，于是就教了他一招。
运用bat批处理命令，熟悉的朋友会想到MD命令，就是mkdir，makedir的缩写，意思是创建文件夹。对于庞大的数据而言，手动输入名称显然不可取，这里就运用到了Excel公式和单元格填充的功能。方法如下：
①打开Excel2013，导入名单册，在单元格C2输入： =&MD &&a2 ，MD后面有一个空格。
②回车得到结果，然后鼠标移动到该单元格右下角，出现+号向下拉动，松开左键，完成填充。
③复制C列的内容，粘贴到记事本中，单击文件--另存为。
④在保存类型中选择所有文件，名称自己定义，后缀名为.bat，这是批处理文件的格式类型。
⑤创建完成，双击bat文件即可在当前路径创建文件夹了。如下图所示：
最新视频教程
点击：18987&&&评论：3
点击：5415&&&评论：0
点击：9565&&&评论：0
点击：841859&&&评论：56
点击：1085907&&&评论：267
点击：195881&&&评论：34
点击：262024&&&评论：33
点击：156151&&&评论：90

我要回帖

更多关于 批量生成excel文件 的文章

 

随机推荐