Utilisez VBA pour mettre à jour automatiquement les données vers ACCESS dans EXCEL

WBOY
Libérer: 2024-01-24 17:33:05
avant
790 Les gens l'ont consulté

Utilisez VBA pour mettre à jour automatiquement les données vers ACCESS dans EXCEL

Comment utiliser VBA dans EXCEL pour mettre à jour automatiquement les données vers ACCESS

Voici mon code pour importer des données d'Excel dans Access. Vous pouvez vous y référer : (Assurez-vous que les fichiers Excel et Access sont dans le même dossier) ```python importer des pandas en tant que PD #Lire le fichier Excel excel_data = pd.read_excel('chemin du fichier/nom du fichier.xlsx') # Connectez-vous à la base de données Access access_conn = pyodbc.connect('DRIVER={Pilote Microsoft Access (*.mdb, *.accdb)};DBQ=chemin du fichier/nom de la base de données.accdb') curseur = access_conn.cursor() # Insérer des données Excel dans le tableau Access pour l'index, ligne dans excel_data.iterrows() : curseur.execute("INSÉRER DANS

Approvisionnement au prix normal et maintenance par lots des clients Public Sub ()

Si Cellules(4, 6) = ""Alors

MsgBox "Veuillez sélectionner en premier le système qui nécessite un prix de maintenance !", vbInformation

Cellules (4, 6).Sélectionnez

Quitter le sous-marin

Autre

Dim i As Integer, j As Integer, k As Integer, sht As Worksheet 'i,j,k sont des variables entières sht est une variable objet de feuille de calcul Excel, pointant vers une certaine feuille de calcul

Dim cn As New ADODB.Connection 'Définissez l'objet de liaison de données et enregistrez les informations de la base de données de connexion, veuillez d'abord ajouter la référence ADO

 ;

Dim rs As New ADODB.Recordset 'Définissez l'objet recordset et enregistrez la table de données

Dim strCn As String, strSQL As String 'Variable de chaîne

Dim mdbFile As String

En cas d'erreur, allez à add_err

mdbFile = ActiveWorkbook.Path & "DY_DATA.mdb"

strCn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & mdbFile 'Définir la chaîne de lien de base de données

cn.Open strCn 'Établissez une connexion avec la base de données, en cas de succès, renvoyez l'objet de connexion cn

Set rs = Nouveau ADODB.Recordset

rs.Open "liste de prix normale client direct dbl", cn, adOpenKeyset, adLockOptimistic

k = Cellules (4, 8) + 8

Pour i = 9 To k

Si Cellules(i, 7) = ""Alors

Autre

rs.AddNew

rs(1) = Cellules(i, 2)

rs(2) = Cellules(i, 7)

rs(3) = Cellules(i, 8)

rs.Update

Cellules(i, 7) = ""

Cellules(i, 8) = ""

Fin si

Suivant

MsgBox "Enregistrement de données ajouté avec succès !", vbInformation

Cellules (4, 6).Sélectionnez

ActiveWorkbook.RefreshAll

add_exit :

Quitter le sous-marin

Fin si

add_err :

MsgBox Err() & vbCrLf & Erreur()

Reprendre add_exit

Fin du sous-marin

Veuillez me dire comment actualiser une certaine feuille de calcul à l'aide d'Excel VBA

Vous pouvez indiquer que vous pensez que la base de données est sécurisée en y ajoutant une signature numérique et que son contenu est crédible. Cela aide les utilisateurs de la base de données à déterminer s'ils doivent faire confiance à la base de données et à son contenu.

Le processus utilisé pour signer numériquement une base de données dépend du fait que la base de données utilise un format de fichier Microsoft Office Access 2007 (tel qu'un fichier .accdb) ou un format antérieur (tel qu'un fichier .mdb). Toutefois, les deux processus nécessitent l’utilisation de certificats de sécurité.

Vous pouvez utiliser des certificats de sécurité commerciaux ou créer les vôtres. Cette rubrique explique comment créer votre propre certificat de sécurité.

Avant de commencer

Pour ajouter une signature numérique, vous devez d'abord obtenir ou créer un certificat de sécurité. Considérez un certificat de sécurité comme un stylo de signature pour les signatures numériques ou votre propre sceau de cire à cacheter.

Si vous n'avez pas de certificat de sécurité, vous pouvez utiliser l'outil SelfCert (inclus avec Microsoft Office) pour en créer un.

Créer un certificat auto-signé

1. Dans Microsoft Windows, cliquez sur le bouton « Démarrer », pointez sur « Tous les programmes », « Microsoft Office », « Outils Microsoft Office », puis cliquez sur « Certificat numérique pour les projets VBA ».

- ou -

Accédez au dossier où se trouvent les fichiers du programme Office Professionnel 2007. Le dossier par défaut est le lecteur : Program FilesMicrosoft OfficeOffice12. Dans ce dossier, recherchez et double-cliquez sur "SelfCert.exe".

La boîte de dialogue « Créer un certificat numérique » apparaîtra.

2. Dans la case "Nom de votre certificat", saisissez le nom du nouveau certificat de test.

3. Cliquez deux fois sur "OK".

Remarque Si vous ne voyez pas la commande Certificats numériques pour le projet VBA ou si vous ne trouvez pas SelfCert.exe, vous devrez peut-être installer SelfCert.

Ce qui précède est le contenu détaillé de. pour plus d'informations, suivez d'autres articles connexes sur le site Web de PHP en chinois!

source:docexcel.net
Déclaration de ce site Web
Le contenu de cet article est volontairement contribué par les internautes et les droits d'auteur appartiennent à l'auteur original. Ce site n'assume aucune responsabilité légale correspondante. Si vous trouvez un contenu suspecté de plagiat ou de contrefaçon, veuillez contacter admin@php.cn
Tutoriels populaires
Plus>
Derniers téléchargements
Plus>
effets Web
Code source du site Web
Matériel du site Web
Modèle frontal