使用VBA更改Access表名称

Question

我有一些表，我使用宏导入然后运行一些SQL查询，目前我必须在导入文件之前重命名文件，并希望在导入后自动更改其名称。

例如，我有一个名为Array的文件，并希望将此表更改为SSIReport()。一个问题是在SSIReport的括号内是生成文件的日期，因此它会发生变化。 这里有一些我目前用来删除导入错误表的代码，我不确定是否有办法将其转换为重命名表。

SSI_Data

Answer 1

这样的事情应该可以胜任。

Dim dbCurr As DAO.Database
Dim tdfCurr As DAO.TableDef

Set dbCurr = CurrentDb()
For Each tdfCurr In dbCurr.TableDefs
If Left$(tdfCurr.Name, 4) = "dbo_" Then
tdfCurr.Name = Mid$(tdfCurr.Name, 5)
End If
Next tdfCurr

Answer 2

在导入文件之前重命名文件要容易得多。