Comment ouvrir une feuille de calcul Excel de la colonne VBA Access Insérer

Comment ouvrir une feuille de calcul Excel de la colonne VBA Access Insérer


Savoir comment ouvrir une feuille de calcul Microsoft Excel à partir de Microsoft Access et l'insertion d'une nouvelle colonne à la feuille de calcul en utilisant Visual Basic pour Applications (VBA) peut rendre votre application Access plus dynamique. L'accès est un système de gestion de base de données relationnelle utilisée pour les plus petites bases de données. Excel est une application de tableur qui offre des outils puissants pour analyser les données. VBA est un langage de programmation informatique populaire utilisé pour automatiser des tâches autrement effectuées manuellement. En quelques étapes, vous pouvez écrire du code VBA dans Access pour ouvrir un classeur Excel et insérez une nouvelle colonne à Sheet1.

Instructions

1 Démarrez Microsoft Office Access 2007 et sélectionnez "Base de données vide" puis cliquez sur "Créer". Cliquez sur "Base de données Outils" puis sélectionnez "Visual Basic." Cliquez sur le "Insérer" champ et sélectionnez "Module".

2 Copiez et collez le code suivant dans votre module. Ce code va ouvrir une feuille de calcul, insérer une nouvelle colonne à droite de "colonne C" et insérer "Cette colonne a été insérée à partir d'Access."

Private Sub addExcelColumn ()

Dim XLApp As Excel.Application

Dim xlBook Comme Excel.Workbook

Dim xlSheet Comme Excel.Worksheet

Set xlBook = Workbooks.Add (Modèle: = "C: \ Book1.xls»)

Set xlApp = XLBook.Parent

Set xlSheet = XLBook.Worksheets ( "Sheet1")

XLBook.Windows (1) .Visible = True

XlApp.Visible = True

Avec xlSheet

.Columns ( "C: C") Sélectionnez.

Selection.Insert Maj: = xlToRight

.Range ( "C1"). Sélectionnez

Selection.Value = "Cette colonne a été insérée à partir d'Access"

.Range ( "D3"). Sélectionnez

Terminer par

End Sub

3 Modifiez la ligne de code suivante et tapez le chemin d'accès à votre feuille de calcul:

Set xlBook = Workbooks.Add (Modèle: = "C: \ Book1.xls»)

Exécutez votre sous-programme en appuyant sur la touche "F5".