Access用VBA實(shí)現(xiàn)批量刪除有相同前綴的表

Dim tbl As DAO.TableDef     
For Each tbl In CurrentDb.TableDefs        
  If Left(tbl.Name, 4) = "臨時表_" Then             
    DoCmd.DeleteObject acTable, tbl.Name        
  End If     
Next

Dim tbl As DAO.TableDef     
For Each tbl In CurrentDb.TableDefs         
    If Left(tbl.Name, 4) = "臨時表_" Then            
       CurrentDb.Execute "DROP TABLE [" & tbl.Name & "]"         
    End If    
Next