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 String
4
Selektieren Sie die Zeile des Textes in Word und speichern Sie es in der String-Variablen:
Application.Selection.Expand wdLine
valueRead = Application.Selection.Text
5
Erstellen Sie die ADODB-Objekt-Variablen:
Dim adoConn As ADODB.Connection
Dim adoCmd As ADODB.Command
6
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 With
7
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.Execute
8
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 = Nothing
9
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.