小编Ted*_*vid的帖子

我有一个导入 Excel 表、更改几个列（字段）名称、添加索引和几个新字段的例程。但是，索引字段从 Excel 导入为 Double，我想将其更改为 Long。除了更改类型外，此代码段均有效：

Set tdf = db.TableDefs(TableName) ' Modify the new MBDA List table
For Each fld In tdf.Fields
    Select Case fld.Name ' Change the name of specific fields
        Case "MBDA Piece ID #"
            fld.Name = "MBDA Piece ID"
            fld.Type = dbLong ' change the type from Double to Long
        Case ">>Grade Level"
            fld.Name = "Grade"
        Case Else
    End Select
Next fld
NumFlds = i