批量更改列名，用这段代码为什么执行不了呢？

\' 批量更改列名 —— 遍历了外部数据源中的所有表的所有列

For Each tl As Table In Tables

    For Each cl As Col In tl.cols

        If cl.Name.Contains("ABCDE") Then

            Dim str2, str3 As String

            str2 = cl.Name ’更改前的列名

            str3 = str2.Replace("ABCDE","CD") ’更改后的列名

            Dim Builder As New ADOXBuilder("nWnd")

            Builder.Open()

            With Builder.Tables(cl.Table.Name)

                .RenameColumn(str2,str3) ’更改列名

            End With

            Builder.Close()   

        End If

    Next

Next

执行后，报错的截图：

此主题相关图片如下：批量修改列名时出错？.jpg

肯定有不是 "nWnd" 数据源的，或者是临时表、sqltable之类的

For Each dt As DataTable In DataTables

msgbox（dt.name）

Next

Output.Show("按照类型,分别显示表的名称字符串:")

Output.Show("")

Dim str1s,str2s,str3s,str4s,str5s As String

For Each dt As DataTable In DataTables

    Select Case dt.Type

        Case 1

            str1s = str1s & dt.Name & "," \' 1 内部数据表

        Case 2

            str2s = str2s & dt.Name & "," \' 2 内部查询表

        Case 3

            str3s = str3s & dt.Name & "," \' 3 外部数据表

        Case 4

            str4s = str4s & dt.Name & "," \' 4 外部查询表

        Case 5

            str5s = str5s & dt.Name & "," \' 5 临时表

    End Select

Next

Output.Show("内部 数据 表 str1s = " & str1s)

Output.Show("")

Output.Show("内部 查询 表 str2s = " & str2s)

Output.Show("")

Output.Show("外部 数据 表 str3s = " & str3s)

Output.Show("")

Output.Show("外部 查询 表 str4s = " & str4s)

Output.Show("")

Output.Show("临时      表 str5s = " & str5s)

Output.Show("")