Comment faire pour importer une requête Access dans Excel

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 .