Excel用vba按先后顺序打开一个文件夹中的N个excel工作簿,运行一段宏程序后

Posted 2023-05-09

Excel用vba按先后顺序打开一个文件夹中的N个excel工作簿,运行一段宏程序后,然后分别以001-00N的名字另存,怎么写?

可有固定的文件名和固定的文件夹路径，可用搜索文件指令然后显示在列表框内进行顺序打开文件处理 参考技术A NewBook.SaveAs Filename:=fName 参考技术B 打开文件以什么为顺序？这个没说明白。追问

时间的先后顺序,或者在文件夹里点右键其他常见的排序,文件大小等也可以,只要有序可循就可以,能实现吗?谢谢!

追答

那就按默认的顺序打开就行了吧？
参考：
Dim wb As Workbook
Dim mywb As Workbook
Dim n&
With Application.FileSearch
.FileType = msoFileTypeExcelWorkbooks
.LookIn = "D:\mydocuments\"
If .FoundFiles.Count > 0 Then
n = 1
For Each wb In .FoundFiles
Set mywb = Workbooks.Open(wb)
'你的代码
mywb.SaveAs mywb.Path & "\" & Format(n, "000") & ".xls"
mywb.Close True
n = n + 1
Next
End If
End With

本回答被提问者采纳

谁能帮我做一个VBA打开带密码的EXCEL文件程序。

新建一个excel文档，另存为*.xlsm格式，在excel选项-信任中心设置-宏安全设置 中选择启用所有宏

然后返回excel界面，按alt+F11,在thisworkbook后面的代码窗口写以下代码：
Private Sub workbook_open()
Application.Visible = False
n = InputBox("请输入密码")
If n <> "jianqiji" Then
Application.Quit
Else: Application.Visible = True
End If
End Sub

代码里面 jianqiji 是密码，可以改成你想要的 参考技术A 如果你想打开一个你不知道密码的加了密的EXCEL文件，一般VBA是没法完成的，可以使用暴力破解，但往往是等N长时间也没动静。专业EXCEL密码破解程序也只是在速度上有所改进，对简单密码有效而已。
如果是打开一个知道密码的EXCEL文件那就简单了。 参考技术B 2003版：Office Password Remover 2.0 半分钟搞定（运行时需要在网）