Verwenden Sie VBA, um Daten automatisch auf ACCESS in EXCEL zu aktualisieren

So verwenden Sie VBA in Excel, um Daten automatisch auf ACCESS zu aktualisieren

Dies ist mein Code zum Importieren von Daten aus Excel in Access. Sie können darauf verweisen: (Stellen Sie sicher, dass sich die Excel- und Access-Dateien im selben Ordner befinden.) „Python Pandas als PD importieren #Excel-Datei lesen excel_data = pd.read_excel('Dateipfad/Dateiname.xlsx') # Stellen Sie eine Verbindung zur Access-Datenbank her access_conn = pyodbc.connect('DRIVER={Microsoft Access Driver (*.mdb, *.accdb)};DBQ=Dateipfad/Datenbankname.accdb') Cursor = access_conn.cursor() # Excel-Daten in die Access-Tabelle einfügen für Index, Zeile in excel_data.iterrows(): Cursor.execute("INSERT INTO

Normale Preisversorgung und Chargenpflege für öffentliche Subkunden ()

Wenn Zellen(4, 6) = ＂＂Dann

MsgBox „Bitte wählen Sie zuerst das System aus, für das ein Wartungspreis erforderlich ist!“, vbInformation

Zellen(4, 6).Wählen

Exit Sub

Sonst

Dim i As Integer, j As Integer, k As Integer, sht As Worksheet 'i,j,k sind ganzzahlige Variablen; sht ist eine Excel-Arbeitsblattobjektvariable, die auf ein bestimmtes Arbeitsblatt zeigt

Dim cn As New ADODB.Connection „Definieren Sie das Datenlinkobjekt und speichern Sie die Verbindungsdatenbankinformationen. Fügen Sie bitte zuerst die ADO-Referenz hinzu.“

Dim rs As New ADODB.Recordset 'Definieren Sie das Recordset-Objekt und speichern Sie die Datentabelle

Dim strCn As String, strSQL As String 'String-Variable

MDbFile als String dimmen

Bei Fehler Gehe zu add_err

mdbFile = ActiveWorkbook.Path & „DY_DATA.mdb“

strCn = ＂Provider=Microsoft.Jet.OLEDB.4.0;Data Source=＂ & mdbFile 'Datenbank-Link-String definieren

cn.Open strCn 'Stellen Sie eine Verbindung mit der Datenbank her. Bei Erfolg geben Sie das Verbindungsobjekt cn zurück

Set rs = New ADODB.Recordset

rs.Open „dbl Direct Customer Normal Price List“, cn, adOpenKeyset, adLockOptimistic

k = Zellen(4, 8) + 8

Für i = 9 To k

Wenn Zellen(i, 7) = ＂＂Dann

Sonst

rs.AddNew

rs(1) = Zellen(i, 2)

rs(2) = Zellen(i, 7)

rs(3) = Zellen(i, 8)

rs.Update

Zellen(i, 7) = ＂＂

Zellen(i, 8) = ＂＂

Ende wenn

Weiter

MsgBox „Datensatz erfolgreich hinzugefügt!“, vbInformation

Zellen(4, 6).Wählen

ActiveWorkbook.RefreshAll

add_exit:

Exit Sub

Ende wenn

add_err:

MsgBox Err() & vbCrLf & Error()

Add_exit fortsetzen

End Sub

Bitte sagen Sie mir, wie ich ein bestimmtes Arbeitsblatt mit Excel VBA aktualisieren kann

Sie können angeben, dass Sie glauben, dass die Datenbank sicher ist, indem Sie ihr eine digitale Signatur hinzufügen und dass ihr Inhalt glaubwürdig ist. Dadurch können Benutzer der Datenbank feststellen, ob sie der Datenbank und ihren Inhalten vertrauen sollen.

Der zum digitalen Signieren einer Datenbank verwendete Prozess hängt davon ab, ob die Datenbank ein Microsoft Office Access 2007-Dateiformat (z. B. eine .accdb-Datei) oder ein früheres Format (z. B. eine .mdb-Datei) verwendet. Allerdings erfordern beide Prozesse die Verwendung von Sicherheitszertifikaten.

Sie können kommerzielle Sicherheitszertifikate verwenden oder Ihre eigenen erstellen. In diesem Thema wird erläutert, wie Sie Ihr eigenes Sicherheitszertifikat erstellen.

Bevor Sie beginnen

Um eine digitale Signatur hinzuzufügen, müssen Sie zunächst ein Sicherheitszertifikat erhalten oder erstellen. Stellen Sie sich ein Sicherheitszertifikat als Signaturstift für digitale Signaturen oder Ihr eigenes Siegellacksiegel vor.

Wenn Sie kein Sicherheitszertifikat haben, können Sie das SelfCert-Tool (im Lieferumfang von Microsoft Office enthalten) verwenden, um eines zu erstellen.

Erstellen Sie ein selbstsigniertes Zertifikat

1. Klicken Sie in Microsoft Windows auf die Schaltfläche „Start“, zeigen Sie auf „Alle Programme“, „Microsoft Office“, „Microsoft Office Tools“ und klicken Sie dann auf „Digitales Zertifikat für VBA-Projekte“.

- oder -

Navigieren Sie zu dem Ordner, in dem sich die Programmdateien von Office Professional 2007 befinden. Der Standardordner ist Laufwerk: ProgrammeMicrosoft OfficeOffice12. Suchen Sie in diesem Ordner nach „SelfCert.exe“ und doppelklicken Sie darauf.

Das Dialogfeld „Digitales Zertifikat erstellen“ wird angezeigt.

2. Geben Sie im Feld „Ihr Zertifikatsname“ den Namen des neuen Testzertifikats ein.

3. Klicken Sie zweimal auf „OK“.

Hinweis: Wenn der Befehl „Digitale Zertifikate für VBA-Projekt“ nicht angezeigt wird oder Sie SelfCert.exe nicht finden können, müssen Sie möglicherweise SelfCert installieren.

Das obige ist der detaillierte Inhalt vonVerwenden Sie VBA, um Daten automatisch auf ACCESS in EXCEL zu aktualisieren. Für weitere Informationen folgen Sie bitte anderen verwandten Artikeln auf der PHP chinesischen Website!