以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  批量重命名表内所有列  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=103989)

--  作者：ltty5200 --  发布时间：2017/7/20 17:17:00 --  批量重命名表内所有列 表A中有很多列，其中一部分列的名字都含有"一月"这个字符，我想批量把列名字含有“一月”的所有列改名为"三月"，请问如何编写代码实现？

--  作者：有点甜 --  发布时间：2017/7/20 17:34:00 --   Dim Builder As New ADOXBuilder Builder.Open() With Builder.Tables("表c")     For Each dc As DataCol In DataTables("表C").datacols         If dc.name.Contains("第") Then             .RenameColumn(dc.name,dc.name.replace("第","a"))         End If     Next End With Builder.Close() DataTables.unload("表C") DataTables.load("表C")

--  作者：ltty5200 --  发布时间：2017/7/20 17:39:00 --   谢谢老师，还没看到这儿，正在使用中有了这个疑问，麻烦老师了