certo che l'idea di rinominare le tabelle è molto discutibile
a parer mio è un grande errore
prova a pensare di importare i dati "con accodamento" quindi li aggiungi tutti come nuovi record
e nella importazione aggiungi un campo in cui definisci in modo univoco il tuo numero che non ho ancora capito bene
poi con una query puoi estrarre i dati che ti interessano
Comunque solo per conoscenza per rinominare le tabelle io farei cosi:
codice:
Private Sub Rinomina()
Dim strVecchioNome As String
Dim strNuovoNome As String
Dim objTabTutte As Object
Dim objTabUna As Object
' qui sotto scrivi i 2 nomi del cambiamento
strVecchioNome = "T5"
strNuovoNome = "T6"
Set objTabTutte = DBEngine(0)(0).TableDefs
Set objTabUna = objTabTutte(strVecchioNome)
objTabUna.Name = strNuovoNome
Set objTabUna = Nothing
Set objTabTutte = Nothing
End Sub
Facci sapere