Wie man ein Word-Dokument oder Excel-Tabelle in eine Microsoft Access-Abfrage konvertieren . Diese Aussagen sind mit einfachen , nicht formatierten Text, die Sie in jedem Textverarbeitungsprogramm oder Umgebung, einschließlich MS Word und Excel machen kann geschrieben. Konvertieren einer Abfrage in einer Zeit von Word oder Excel zu Access ist eine einfache Cut-and -Paste- Betrieb . Allerdings Umwandlung viele Abfragen erfordert die Hilfe von einem Kurzprogramm . Erstellen Sie dieses Programm mit dem Access integrierten Visual Basic- Entwicklungsumgebung. Things You
Microsoft Access
Microsoft Word
Microsoft Excel
brauchen anzeigen Weitere Anweisungen
Convert Excel Spreadsheet von Hand
1

Neues Microsoft Excel und geben oder fügen Sie die folgende Anweisung in eine beliebige Zelle :

SELECT * from GamesTable WHERE Gametitle = " Monopoly ".
2

öffnen up Access und erstellen Sie eine kleine Probe Datenbank Tabelle namens " GamesTable " mit dem Feld " Gametitle " und alle anderen Felder, die Sie möchten.
3

erstellen ein paar Reihen von Sample-Daten auf den Tisch , wobei Sie auf "Monopoly gehören " für den Titel eines der Spiele . Drücken Sie " Strg- S" speichern Sie die Tabelle .
4

Öffnen Sie eine neue Abfrage , indem Sie auf "Erstellen" auf der Symbolleiste , gefolgt von der Taste " Abfrage -Entwurf. " ( Drücken Sie auf " Objekte ", gefolgt von "Neu" und dann "Query ", wenn Sie mit Access 2003 sind . ) Doppelklicken Sie auf das " GamesTable " Artikel in der " Tabelle anzeigen " wählen, dann drücken Sie die Taste "Escape" , um das Feld zu schließen.
5

auf der Registerkarte Abfrage , die " Query1 " angezeigt wird , klicken Sie mit der rechten Maustaste und wählen Sie " SQL-Ansicht. "
6

Return to Excel , dann auswählen und in die Zwischenablage kopieren Sie die SQL-Anweisung schrieb früher " ( SELECT * from ... ) . "
7

Gehen Sie zurück auf die Access " SQL-Ansicht. " Wählen Sie alle vorhandenen SQL-Text , dann über ihn durch Drücken fügen "Control -V. "
8

Führen Sie die Abfrage mit der Taste " Run" -Symbol in der Symbolleiste oder der rechten Maustaste auf die Abfrage- Registerkarte und wählen Sie " Datenblattansicht. " Beachten Sie, dass Access zeigt nur das Spiel, das Sie in der SQL-Anweisung , die Sie aus Excel kopiert angegeben .
Konvertieren von Word- Dokument mit einem Programm
9

manuell konvertieren Anfragen von Word mit die Schritte für Excel gegeben . Ersetzen Sie "Wort" für " Excel ", wie Sie die Schritte wiederholen . Oder führen Sie die folgenden Schritte aus, um ein Programm, das für Sie konvertieren viele SQL-Anweisungen auf einmal verwenden .
10

Öffnen Sie Word und geben Sie Ihre Query-Strings , eine pro Zeile. Verwenden Sie das folgende als Beispiel-Abfragen für die GamesTable Tisch. Sicherstellen, dass die letzte Zeile des Dokuments ist die letzte Abfrage

Select * from GamesTable ; . SELECT * FROM GamesTable WHERE ( ( ( GamesTable.GameTitle ) = " Monopoly ")); select Gametitle von GamesTable WHERE ( ( ( GamesTable.GameTitle ) wie " * Käse * " ) ) .
11

Speichern Sie die Datei im Klartext , importieren Sie die Datei in Access. Wählen Sie die "Tab"- Charakter und nicht das " Semikolon " als Texttrennzeichen beim Ausfüllen den Import-Assistenten . Sicherstellen, dass die Namen der neu importierten Tabelle " auswählen . "
12

Makros aktivieren in Access : drücke " Alt- F " und anschließend auf "Optionen". Klicken Sie auf " Trust Center ", dann die " Trust Center " -Taste. Klicken Sie auf " Einstellungen für Makros ", gefolgt von " Alle Makros aktivieren ", dann schließen Sie alle geöffneten Dialogfelder. Schließen und dann wieder öffnen Access. Achten Sie darauf, Makros nach Abschluss der Schritte in diesem Artikel deaktiviert .
13

Presse "Alt -F11 ", und drücken Sie dann "Einfügen ", gefolgt von "Modul ". Fügen Sie diesen Code in das Modul :

Public Sub makeQueries ()

Const cstrQueryName = "Select" Dim dbs Wie DAO.DatabaseDim rst als DAO.RecordsetDim qdf Wie QueryDefDim i As IntegerDim qNameSet dbs = CurrentDbSet rst = dbs.OpenRecordset ( cstrQueryName ) i = 0Do While Not rst.EOFDebug.Print " SQL:" & rst ( " Feld1 " ) qName = "q" & CStr ( i) Set qdf = dbs.CreateQueryDef ( qName ) qdf.SQL = rst ( " Feld1 " ) . Valuerst.MoveNexti = i + 1Looprst.Closedbs.CloseEnd Sub
14

Platzieren Sie den Cursor irgendwo im Programm nur aufgeführt , und drücken Sie "F5" zu laufen es . Zurück zum Greifen nahe und dann wieder zu öffnen, die Navigations- Fenster, um die neue Abfragen (dh " q0 " oder " Q1 " ) zu sehen. Doppelklicken Sie auf die Abfragen , um sie auszuführen .