Importation des résultats d'une requête Microsoft Access dans Excel peut être fait de plusieurs façons , y compris une approche utilisant les liens dynamiques pour les utilisateurs d'Excel 2007 ou plus tard. Les utilisateurs d' Excel 2003 ou une version antérieure peuvent terminer l'importation en utilisant une macro d'accès qui fonctionne avec des objets d'automatisation de Microsoft Office. Choses que vous devez
Microsoft Excel et Access, version 2003 ou plus tard
Voir Plus Instructions
1
Open Access et créer le tableau ci-dessous des exemples de données, qui a domaine les noms de la rangée supérieure . Cliquez sur \\ "Créer > Tableau \\" pour créer la table .
Jeu, saledate , totalsale
séisme, 12/1/2009 , 6,01 $ < br /> séisme, 12/3/2009 , 7,98 $
guitar hero , 12/5/2009 , 4,98 $
guitar hero , 12/6/2009 , 5,98 $
< , br /> Enregistrer la table (en appuyant sur \\ " contrôle -s \\") avec le nom \\ " jeux \\ ".
2
créer une nouvelle requête pour la table de jeux en cliquant sur \\ " Créer> Création de requête , \\" clic-droit sur le texte \\ " Requête1 \\" dans l'onglet de la requête, puis en cliquant sur \\ " Mode SQL. \\"
< br /> Entrer l'instruction suivante dans la fenêtre de code SQL : .
SELECT * INTO jeux myqueryres
des jeux WHERE ( ( ( games. jeu ) Like ' * tar * '))
GO
Enregistrez la requête ( par pressnig \\ " contrôle -s \\" ) en tant que \\ " myquery . \\ "
3
Exécutez la requête en double- cliquant sur \\" myquery \\ "dans le volet de navigation , puis fermez access et ouvrez Microsoft Excel.
4
Cliquez sur \\ " Data \\ " et choisissez \\ " de l'accès . \\ " dans le " Select Source Data \\ " \\ boîte de dialogue , ouvrez la base de données Access que vous avez créé la table de jeux po Sélectionnez la table \\ " myqueryres \\" de la \\ "Select tableau \\" boîte de dialogue , puis appuyez sur \\ "OK \\" sur la boîte de dialogue \\ "Importer des données \\" . Notez que Excel a importé la requête.
5
Fermer Excel , se souvenant du nom de fichier lorsque vous enregistrez le fichier . Accès Re - ouvert. Réviser \\ " myquery \\" à \\ " SQL View \\" pour lire comme suit : .
SELECT * INTO jeux myqueryres
Des jeux < br /> WHERE ( ( ( games.game ) Like ' * ua * '));
6
Sauvegardez et relancez la requête, puis fermez Access et re- ouvrez le fichier Excel que vous avez créé l' lien de table po Sélectionnez \\ " Data \\ " et choisissez \\ " Connections \\", puis appuyez sur le bouton \\ " Actualiser \\" dans la boîte de dialogue \\ "Connexions du classeur \\" . Fermez la boîte et de l'avis que les résultats de la requête ont changé de dialogue.
7
( Pour les utilisateurs d'Excel 2003) les étapes 1 et 2. Run \\ " myquery , \\ ", puis appuyez sur \\ "alt \\" + \\ " F11 \\ " pour entrer dans l'environnement de développement intégré Visual Basic (IDE). Appuyez sur \\ " Insérer \\ " et choisissez \\ " module \\", puis collez le code de programme suivant dans la nouvelle fenêtre de code :
Public Sub sendToExcel ()
'''''' '''''' '''''' '''''' '
Set curdb = CurrentDB < , br /> Définir recs = curdb.OpenRecordset (\\ " myqueryres \\")
st = \\ " jeu \\" et \\ ", \\" et \\ " saledate \\ " et \\ ", \\ " et \\" totalsale \\ "& vbCr
Set xlApp = CreateObject (\\" Excel.Application \\ ")
xlapp.Workbooks.Add r = 1: c = 1
xlapp.ActiveSheet.Cells (r , c) = st
r = 2 < br /> st = \\ "\\"
Ne While Not recs.EOF
st = st & recs ! [ jeu ] & \\ ", \\ " & _ < ; ! br /> CER [ saledate ] & \\ " , \\" & recs [ totalsale ] & vbCr
xlapp.ActiveSheet.Cells (r , c) = st
; recs.MoveNext
r = r + 1
st = \\ "\\"
recs.Close Loop : curdb.Close
; xlapp.ActiveWorkbook.SaveAs (\\ " c: \\ \\ accessquery.xls \\")
xlApp.Quit
End Sub
8
Cliquez sur \\ " Outils \\ " et choisissez \\ " Références, \\" puis cochez la case à cocher intitulée \\ " Microsoft Excel Objects \\ " si votre macro peut reconnaître les fonctions Excel met à disposition. < br > Photos 9
exécuter votre macro en plaçant le curseur n'importe où dans le sous-programme sendToExcel et en appuyant sur \\
10
Double- cliquez sur le fichier \\ "c" F5 \\ . ": \\ \\ accessquery.xls \\ " à partir de l'Explorateur Windows, et notez les résultats de la requête dans Microsoft Excel quand elle s'ouvre .
