|
Connaître comment ouvrir un tableur Microsoft Excel à partir de Microsoft Access et d'insérer une nouvelle colonne à la feuille de calcul à l'aide de Visual Basic pour Applications ( VBA) peut faire votre demande d'accès plus dynamique. L'accès est un système de gestion de base de données relationnelle couramment utilisée pour les plus petites bases de données . Excel est un 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érer une nouvelle colonne à la feuille Sheet1 . Instructions
1 Démarrer Microsoft Office Access 2007 et sélectionnez « Base de données vide " puis cliquez sur "Créer". Cliquez sur " Database Tools " puis sélectionnez " Visual Basic ". Cliquez sur le champ "Insérer" et sélectionner "Module ".
2 Copiez et collez le code suivant dans votre module. Ce code va ouvrir une feuille de calcul, insérer une nouvelle colonne à la droite de « colonne C " et insérer "Cette colonne a été inséré à partir d'Access . "
Private Sub addExcelColumn ( )
xlApp As Excel.application
xlBook As Excel.Workbook
xlSheet As 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
xlSheet
Colonnes. . ( "C: C " ) Sélectionnez
Selection.Insert Maj : = xlToRight
< p> . Range (" C1" ) . Sélectionnez
Selection.Value = "Cette colonne a été inséré à partir d'Access "
. Range (" D3" ) . Sélectionnez
End With 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 routine en appuyant
"F5 ".
|
