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

10113700411 · 发表于 2014-5-28 16:19

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

wenjian.7z (18.46 KB, 下载次数: 46)

闻启学 · 发表于 2014-5-28 16:22

sheet1中的第一个和第一个单元格内的内容重命名

不太懂这个

zhaogang1960 · 发表于 2014-5-28 17:36

ADO更新速度较快，请参考：

Sub Macro1()
Dim cnn As Object, MyPath$, MyFile$, SQL$
MyPath = ThisWorkbook.Path & ""
MyFile = Dir(MyPath & "*.xlsx")
Do While Len(MyFile)
If MyFile <> ThisWorkbook.Name Then
Set cnn = CreateObject("adodb.connection")
cnn.Open "provider=microsoft.Ace.oledb.12.0;extended properties='excel 12.0;hdr=no';data source=" & MyPath & MyFile
SQL = "update [Sheet1$a1:a1] set f1='A_2'"
cnn.Execute SQL
End If
MyFile = Dir
Loop
cnn.Close
Set cnn = Nothing
End Sub

复制代码

zhaogang1960 · 发表于 2014-5-28 17:38

请测试附件

wenjian.rar (32.53 KB, 下载次数: 119)

wsl0537 · 发表于 2016-6-4 11:57

zhaogang1960 发表于 2014-5-28 17:38
请测试附件

老师，我的是OFFICE 2013，我试着怎么不行，请指教！！！

zhaogang1960 · 发表于 2016-6-4 12:26

wsl0537 发表于 2016-6-4 11:57
老师，我的是OFFICE 2013，我试着怎么不行，请指教！！！

没有用过2013，按照下面方法修改试试：
Sub Macro1()
MsgBox Application.Version
End Sub
按照上面程序显示的数字替换下面的12
cnn.Open "provider=microsoft.Ace.oledb.12.0;extended properties='excel 12.0;hdr=no';data source=" & MyPath & MyFile

wsl0537 · 发表于 2016-6-4 13:41

zhaogang1960 发表于 2016-6-4 12:26
没有用过2013，按照下面方法修改试试：
Sub Macro1()
MsgBox Application.Version

改完后显示“运行时错误‘-2147467259（80004005）’，找不到可安装的ISAM"

zhaogang1960 · 发表于 2016-6-4 13:50

wsl0537 发表于 2016-6-4 13:41
改完后显示“运行时错误‘-2147467259（80004005）’，找不到可安装的ISAM"

2013版本应该是15吧，如果下面连接字符不对，请单独发帖求助
cnn.Open "provider=microsoft.Ace.oledb.15.0;extended properties='excel 15.0;hdr=no';data source=" & MyPath & MyFile

lsc900707 · 发表于 2016-6-4 16:17

赵老师，还真的不行。

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

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

赵老师您好！我用 2010版试过、代码能运行、但没有实现修改文件名的效果。
我的问题与楼主的类似，只是多个要区分有重复名称。麻烦您指导，谢谢！

因文件多，想体验老师的快速方法，谢谢！

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

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