Enregistrez les données dans une feuille de calcul Excel à l'aide de VBA.
La création d'une feuille de calcul Excel dans Access peut vous faire gagner du temps lorsque vous devez exporter des données vers une feuille de calcul Excel. Visual Basic pour Applications (VBA) peut être un outil puissant pour automatiser les processus dans les applications Microsoft Office. Avec VBA, vous pouvez utiliser l'objet Application Microsoft Excel pour créer une feuille de calcul Excel à partir d'Access. L'objet d'application Excel est le point d'entrée vers le reste du modèle objet. Exportez les données plus rapidement vers Excel en enregistrant les données directement dans une feuille de calcul Excel.
Étape 1
Lancez Microsoft Office Access, cliquez sur "Blank Database" et cliquez sur le bouton "Créer" pour créer une base de données vierge. Cliquez sur l'onglet "Outils de base de données" et cliquez sur "Visual Basic" pour ouvrir la fenêtre Microsoft Visual Basic. Cliquez sur le menu "Insérer" et cliquez sur "Module" pour insérer un nouveau module de code.
Vidéo du jour
Étape 2
Cliquez sur le menu "Outils" et cliquez sur "Références". Faites défiler vers le bas et cochez la case à côté de « Microsoft Excel
Étape 3
Commencez par taper le code VBA suivant pour créer une nouvelle sous-procédure :
Sous-marin privé createSpreadSheet()
Étape 4
Continuez en tapant le code suivant pour créer trois nouveaux objets variables qui seront utilisés pour créer la feuille de calcul Excel :
Dim newExcelApp As Excel. Application. Dim newWbk As Excel. Cahier d'exercices. Dim newWkSheet en tant qu'Excel. Feuille de travail
Étape 5
Ajoutez le code suivant pour lancer Excel et l'afficher :
Définissez newExcelApp = Excel. Application
nouvelleExcelApp. Visible = Vrai
Étape 6
Tapez ce qui suit pour ajouter un nouveau classeur et une feuille de calcul :
Définissez newWbk = newExcelApp. Cahiers d'exercices. Ajouter
Définissez newWkSheet = newWbk. Feuilles de travail (1)
Étape 7
Ajoutez des données à votre nouvelle feuille de calcul en tapant ce qui suit :
newWkSheet. Cellules (1, 1).Value = "Nouvelle feuille de calcul..."
Étape 8
Enregistrez le nouveau classeur créé en tapant le code suivant :
newWkSheet. Enregistrer sous ("C:\myworksheet.xlsx")Étape 9
Modifiez le chemin à l'étape précédente et saisissez le chemin et le nom de fichier de votre choix.
Étape 10
Tapez ce qui suit pour terminer la sous-procédure :
Fin du sous-marin
Étape 11
Appuyez sur "F5" pour exécuter votre procédure et créer une nouvelle feuille de calcul Excel.
