Importation de fichier Excel à Access avec VBA

Bon Après-Midi,

Je travaille sur une base de données Access projet de cette année, avec VBA un complet inconnu pour moi d'entrer dans ce. J'ai le code VBA importer des données Excel dans une table temporaire dans ma base de données et en ajoutant à la bonne table, il fonctionne, mais je suis curieux de savoir si c'est la plus effcace façon en ce qui concerne le codage et l'utilisation de la mémoire?

Function TempReview()  
On Error GoTo TempReview_Err  

DoCmd.SetWarnings False  
DoCmd.OpenQuery "ClearTempReview", acViewNormal, acEdit  
DoCmd.TransferSpreadsheet acImport, 10, "TempReview", "M:\filename.xlsx", True, ""  
DoCmd.OpenQuery "AppendReview", acViewNormal, acEdit   

TempReview_Exit:  
Exit Function  

TempReview_Err:  
MsgBox Error$  
Resume TempReview_Exit  

End Function

J'ai des fonctions similaires dans d'autres zones de la base de données, qui je tiens également à améliorer, si je peux.

Ce qui concerne

Lee

InformationsquelleAutor Lee Chant | 2014-07-28

1

Vous n'avez pas besoin de deux tableaux. Lorsque vous utilisez DoCmd.Transférerfeuillecalcul méthode pour importer. Si la table que vous êtes de passage existe, les données seront ajoutées dans la table, si la table n'existe pas, alors une nouvelle table est créée.
```
Function TempReview()  
On Error GoTo TempReview_Err   
    DoCmd.TransferSpreadsheet acImport, 10, "yourActualTable", "M:\filename.xlsx", True, ""

TempReview_Exit:  
    Exit Function  

TempReview_Err:  
    MsgBox Error$  
    Resume TempReview_Exit  
End Function  
```
InformationsquelleAutor PaulFrancis

Vous devez vous connecter pour publier un commentaire.