Lernen, wie man Werte aus Microsoft Word zu einer Microsoft Access-Datenbank einfügen kann nützlich werden , wenn Sie Daten von Nutzern durch Word zu erfassen . Der beste Weg , um Daten aus Word in Access einfügen ist durch den Einsatz von " Active Data Objects (ADO) " in Visual Basic für Applikationen (VBA) . VBA ist eine Programmiersprache in Microsoft Office-Anwendungen verwendet werden, um Programme zu schreiben. ADO können Sie eine Verbindung zu einer Datenbank machen und legen Sie Werte in die Tabelle und Spalten Ihrer Wahl . Anleitung
1
Starten Sie Microsoft Word auf die Registerkarte "Entwicklertools" und klicken Sie auf " Visual Basic ", um den VB -Editor-Fenster starten. Klicken Sie auf das Menü "Einfügen" und klicken Sie auf "Module" , um einen neuen Code-Modul einfügen
2
Geben Sie den folgenden , um eine neue Sub-Prozedur zu erstellen : .
Private Sub insertValuesToDB ()
3
erstellen Datentyp String Variable auf die Word- Daten, die Sie einfügen möchten, halten :
Dim ValueRead As String
4
Wählen Sie die Textzeile in Word und speichern Sie es in der String-Variablen :
Application.Selection.Expand wdLine
ValueRead = Application.Selection.Text
5
erstellen des ADODB Objektvariablen :
Dim adoConn Wie ADODB.Connection
Dim adoCmd Wie ADODB.Command
6
Definieren Sie den Pfad und den Namen der Access-Datenbank. Öffnen Sie die Verbindung :
Set adoConn = New ADODB.Connection
adoConn
ConnectionString = "Provider = Microsoft.ACE.OLEDB.12.0 ; " & _
"Data Source = C: \\ Nordwind 2007.accdb " .
Open
End With
7
erstellen eines neuen Befehls , um die Linie einfügen ausgewählt in Word mit einer Access- Datenbank-Tabelle :
Set adoCmd = New ADODB.Command
adoCmd
ActiveConnection = adoConn
CommandText = " . . INSERT INTO ( ) VALUES ( '"& ( ValueRead ) &" ') "
End With
adoCmd.Execute
8
Bearbeiten und und geben Sie Ihren Tisch und Feldname Sie verwenden möchten, um die Daten einzufügen
Veröffentlichung Objekte aus dem Speicher und die Verbindung schließen : .
adoConn.Close
Set adoConn = Nothing
9
eine Meldung angezeigt , wenn der Wert in die Datenbank eingefügt und das Verfahren beenden :
< p > MsgBox "Wert wurde zu Ihrer Datenbank-Tabelle aufgenommen. "
End Sub
10
Presse "F5" um die Prozedur auszuführen .
