如何用vba按文件名从短到长依次打开文件并保存关闭

发布网友发布时间：2023-01-05 09:51

共2个回答

热心网友时间：2023-10-15 19:06

从问题的截图看：
1、文件名是连续的数字，从 8572423 至 8572429。
2、文件的类型是 Excel 文件。
据此，可以简便代码编写，以下是示例代码：

Private Sub CommandButton1_Click() For i = 3 To 9 Filename = "d:\test\t1\857242" & i & ".xls" Workbooks.Open Filename '打开文件 ThisWorkbook.Sheets(1).Range("B10") = "测试" '编辑 ActiveWorkbook.Save '保存 Workbooks.Close '关闭 NextEnd Sub

热心网友时间：2023-10-15 19:07

文件的路径只需要指示到文件夹的路径，然后循环文件夹内的所有文件，判断文件的文件名是否包含“资产信息”，如果包含则执行你所谓的宏命令，不包含的话就循环下一个文件

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com