Gewusst wie: Einfügen von Werten aus Microsoft Word in eine Datenbank

March 5

Gewusst wie: Einfügen von Werten aus Microsoft Word in eine Datenbank

Lernen, wie man Werte aus Microsoft Word zu einer Microsoft Access-Datenbank einfügen kann nützlich werden, wenn Sie Daten von Nutzern durch Wort aufzeichnen. Der beste Weg zum Einfügen von Daten aus Word zu Access ist durch den Einsatz von "Active Data Objects (ADO)" in Visual Basic für Applikationen (VBA). VBA ist eine Computer-Programmiersprache, die in Microsoft Office-Anwendungen verwendet, um Programme zu schreiben. ADO können Sie eine Verbindung zu einer Datenbank und fügen Sie die Werte der Tabelle und Spalten Ihrer Wahl.

Anweisungen

1 Starten Sie Microsoft Word, klicken Sie auf die Registerkarte "Entwicklertools" und klicken Sie auf "Visual Basic", das VB-Editor-Fenster zu starten. Klicken Sie im Menü "Einfügen" und dann "Modul" um ein neues Codemodul einzufügen.

2 Geben Sie Folgendes ein, um eine neue Sub-Prozedur zu erstellen:

Private Sub insertValuesToDB()

3 Erstellen Sie eine Zeichenfolgenvariable für die Art von Daten um die Word-Daten zu speichern, die Sie einfügen möchten:

Dim valueRead As String4

Selektieren Sie die Zeile des Textes in Word und speichern Sie es in der String-Variablen:

Application.Selection.Expand wdLine

valueRead = Application.Selection.Text5

Erstellen Sie die ADODB-Objekt-Variablen:

Dim adoConn As ADODB.Connection

Dim adoCmd As ADODB.Command6

Definieren Sie den Pfad und Namen der Access-Datenbank. Öffnen der Verbindungs:

Set adoConn = New ADODB.Connection

With adoConn

.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;" & _

"Data Source=C:\Northwind 2007.accdb"

.Open

End With7

Erstellen Sie einen neuen Befehl zu einer Access-Datenbank-Tabelle in Word ausgewählte Zeile einfügen:

Set adoCmd = New ADODB.Command

With adoCmd

.ActiveConnection = adoConn

.CommandText = "INSERT INTO <table name> (<field name>) VALUES ('" & (valueRead) & "')"

End With

adoCmd.Execute8

Bearbeiten < Tabellenname > und < Feldname > und geben Ihren Tabellen- und Feldnamen, die Sie zum Einfügen der Daten verwenden möchten.

Objekte aus dem Speicher freizugeben und die Verbindung schließen:

adoConn.Close

Set adoConn = Nothing9

Ein Meldungsfeld angezeigt, wenn der Wert in die Datenbank eingefügt wurde, und das Verfahren zu beenden:

MsgBox "Value was added to your database table."

EndSub

10 Mit "F5" um die Prozedur auszuführen.