Unter Access VBA externe Daten abrufen

Zugang VisualBasic für Applikationen (VBA) ist die Programmiersprache, die Microsoft Office-Entwickler verwenden, um Access-Features zu erweitern. Aller verfügbaren Befehle in Access-Standardschnittstelle stehen auch in VBA, einschließlich der Befehle, die externe Daten abrufen. Mit VBA externe Daten abrufen umfasst die Verwendung einer Funktion, deren Parameter, die Sie in der Access integrierten Entwicklungsumgebung (IDE) angeben. Mithilfe von Access VBA externe Daten abrufen, erhalten Sie Ihr Arbeitsteam Daten Eintrag Personal zu externe Daten manuell abrufen.

Anweisungen

Rufen Sie externer Daten aus einer Datenbank ab

1 Offener Zugang und Überschrift im Menü "Erstellen" klicken Sie auf "Tabelle"-Element.

2 Geben Sie "Titel" in der neuen Tabelle erste Spaltenüberschrift und "Authors" in der Überschrift rechts neben "Titel." Diese Spaltenüberschriften repräsentieren für eine kleine Bücher-Datenbank, die Sie als eine externe Datenbank mit VBA importieren verwenden werde.

3 Geben Sie ein paar Beispiel-Buchtitel und Autoren in den Tabellenzeilen, und drücken Sie "Control + S." Geben Sie "Bücher" Aufforderung zur Eingabe den Namen der Tabelle ein.

4 Klicken Sie unter dem Menü "Datei"-Befehl "Speichern als" geben Sie "c:\books.accdb" für die Datenbank-Dateiname. Klicken Sie auf das Menü "Datei" "Datenbank schließen" Befehl an die Datenbank zu schließen.

5 Drücken Sie "STRG + N" eine neue Datenbank erstellen, und drücken "Alt + F11" der VB-IDE eingeben.

6 Klicken Sie den Befehl "Module" unter Menü "Einfügen" um ein neues Fenster für die Eingabe von Programmcode zu erstellen.

7 Fügen Sie die folgende Subroutine in das neue Codefenster. Diese Unterroutine ruft "DoCmd" Zugriffsmethode um eine externe Datenbank--die zu öffnen, die Sie in den Schritten 1 bis 4 vorgenommen.

Public Sub importData()

DoCmd.TransferDatabase AcImport, "Microsoft Access" _

"C:\books.accdb", acTable, "books", "books2"

EndSub

8 Klicken Sie auf jede Anweisung in der Unterroutine, die Sie gerade eingefügt, die dann drücken Sie die Taste "F5", um die Unterroutine ausführen.

9 Drücken Sie "Alt-+ 11" zurück zu Access, dann schließen und erneut öffnen im Navigationsbereich am Bildschirm links indem Sie oben auf "<<" Schaltfläche. Im Navigationsbereich wird eine neue Tabelle, "books2." angezeigt.

10 Doppelklicken Sie auf das "books2"-Element, um die gleiche Liste der Bücher angezeigt, die Sie in Schritt 3 eingegeben haben. Unterprogramm "ImportData" früher lief importiert die ursprünglichen Bücher-Datenbank in eine neue Tabelle in der aktuellen Datenbank.

Rufen Sie externer Daten aus Textdatei ab

11 Öffnen Sie Notepad oder einem anderen Textverarbeitungsprogramm, und geben Sie einen beliebigen Text in die Datei.

12 Speichern Sie die Datei als "c:\textfile.txt"

13 Öffnen Sie Zugang zu, drücken Sie "Alt-F11", und fügen Sie den folgenden Code in das Codefenster:

Public Sub GetExternalText()

Dim strText

Öffnen Sie "c:\textfile.txt" für Input As #1

Do While nicht EOF(1)

Line Input #1, strText

Debug.Print strText

Loop

#1 zu schließen

EndSub

14 Klicken Sie jede Anweisung im Programm, und drücken Sie "F5", um das Programm ausführen.

15 Drücken Sie "Strg + G" aus, um die IDE "Immediate" Fenster zu öffnen, die Textdaten angezeigt werden, Ihr Programm aus der externen Textdatei geholt.