Comment mettre à jour une feuille de calcul de l'Accès

Comment mettre à jour une feuille de calcul de l'Accès

Microsoft Access et Excel presque vont main dans la main le développement d'applications de base de données dans Access. Les utilisateurs aiment analyser leurs données en utilisant Excel, et vous pouvez leur donner cette fonctionnalité en étant en mesure de mettre à jour des feuilles de calcul à partir d'Access. Dans Access, vous pouvez utiliser Visual Basic pour Applications pour ouvrir une feuille de calcul Excel existant et le mettre à jour avec les données dynamiquement. Dans VBA, vous pouvez utiliser la bibliothèque d'objets Microsoft Excel pour manipuler des objets Excel.

Explication

Cliquez sur l'onglet "Outils de base de", cliquez sur "Visual Basic", et cliquez sur le menu "Insertion". Cliquez sur "Module" pour insérer un nouveau module de code VBA.

Cliquez sur le menu «Outils» et cliquez sur «Références». Cochez la case à côté de "Microsoft Excel <numéro de version> Bibliothèque d'objets" et cliquez sur "OK" pour ajouter la référence.

Commencez par taper le code suivant pour créer une nouvelle procédure sous: updateSpreadSheet Private Sub () On Error GoTo Err_updateSpreadSheet:

Tapez le code suivant pour créer les objets de classeur et feuille de calcul: Dim wkBkObj Comme Excel.Workbook Dim xlSheet Comme Excel.Worksheet

Ouvrez un classeur Excel existant et l'utiliser comme la feuille Sheet1 à jour en ajoutant le code suivant: Set wkBkObj = Workbooks.Open ("C: \ mySpreadsheet.xlsx") Set xlSheet = wkBkObj.Worksheets ("Sheet1") wkBkObj. Fenêtres (1) .Visible = True

Ajoutez le code VBA suivant pour mettre à jour A1 de la feuille:.. Avec xlSheet .Range ("A1") Sélectionnez .Range ("A1") Value = "valeur mise à jour à partir d'Access" End With

Enregistrer, fermez le classeur Excel, et mettre fin à la procédure en ajoutant le code suivant: wkBkObj.Save wkBkObj.Close Exit_updateSpreadSheet: Exit Sub Err_updateSpreadSheet: MsgBox Err.Description CV Exit_updateSpreadSheet: End Sub

Appuyez sur "F5" pour lancer la procédure et mettre à jour votre feuille de calcul.