急求！对于指定文件夹中的所有excel工作薄，批量使用单元格内容重命名（覆盖原文件）

qx-liuwx · 发表于 2016-7-27 08:27

本帖最后由 qx-liuwx 于 2016-7-27 08:33 编辑

zhaogang1960 发表于 2016-6-4 13:50
2013版本应该是15吧，如果下面连接字符不对，请单独发帖求助
cnn.Open "provider=microsoft.Ace.oledb.1 ...

麻烦老师指导，谢谢！
我用以下方法，很慢
Do While myFile <> ""
      If myFile <> ThisWorkbook.Name Then
         Set AK = Workbooks.Open(myPath & myFile): nn = "表" & Mid(Cells(1, 1), 2, 3): Application.DisplayAlerts = False: AK.Close False
         rr = Cells(Rows.Count, 1).End(3).Row:

LMY123 · 发表于 2018-6-25 17:30

批量update

		自动登录	找回密码
密码			免费注册

[求助] 急求！对于指定文件夹中的所有excel工作薄，批量使用单元格内容重命名（覆盖原文件）