Gewusst wie: Extrahieren von Informationen aus Excel-Tabelle mit DAO

Wichtig: Dieser Artikel wurde maschinell und nicht von einem Menschen übersetzt. Die Microsoft Knowledge Base ist sehr umfangreich und ihre Inhalte werden ständig ergänzt beziehungsweise überarbeitet. Um Ihnen dennoch alle Inhalte auf Deutsch anbieten zu können, werden viele Artikel nicht von Menschen, sondern von Übersetzungsprogrammen übersetzt, die kontinuierlich optimiert werden. Doch noch sind maschinell übersetzte Texte in der Regel nicht perfekt, insbesondere hinsichtlich Grammatik und des Einsatzes von Fremdwörtern sowie Fachbegriffen. Microsoft übernimmt keine Gewähr für die sprachliche Qualität oder die technische Richtigkeit der Übersetzungen und ist nicht für Probleme haftbar, die direkt oder indirekt durch Übersetzungsfehler oder die Verwendung der übersetzten Inhalte durch Kunden entstehen könnten.

Den englischen Originalartikel können Sie über folgenden Link abrufen: 190195
Dieser Artikel wurde archiviert. Er wird im vorliegenden Zustand bereitgestellt und nicht mehr aktualisiert.
Zusammenfassung
Der Excel-ISAM-Treiber konvertiert die Datentypen nicht dynamisch.
Weitere Informationen
Wenn in Ihrem Excel-Kalkulationstabelle, Text und Zahlen enthält, eine Spalte vorhanden ist, wird die ISAM nicht Lage sein, welcher Datentyp interpretiert es sein sollte. Stellen Sie sicher, dass alle Zellen in einer Spalte denselben Datentyp werden formatiert sind. Beispielsweise könnten Sie folgende Daten in vier Spalten in einem Excel-Tabellenblatt haben:
   male   female children teens   11     cc     78       ee   22     xx     33       ff   45     uu     56       oo				

Wenn Sie versuchen, die Daten über ISAM-Treiber für das gesamte Blatt zu lesen, erhalten Sie die null-Werte für die erste Zeile. Wenn Sie Sie dies verhindern möchten möchten, erstellen Sie benannte Bereiche: enthält nur die Headerinformationen und einen anderen mit den Dateninformationen. Beispiel:
   named range 'myRange1' :   male     female    children     teens   named range 'myRange2' :   11   cc   78   ee   22   xx   33   ff   45   uu   56   oo				

Jetzt können Sie nur von den bestimmten benannten Bereich zu Excel und Anforderung Informationen verbinden. Allerdings kann eine bestimmte Spalte in einem Bereich nur ein einziger Datentyp enthalten.

So erstellen Sie einen Bereich

Gehen Sie folgendermaßen vor, um einen Bereich erstellen
  1. Markieren Sie die Daten.
  2. Klicken Sie auf Einfügen , und klicken Sie dann auf Namen , aus der Menüleiste.
  3. Klicken Sie auf definieren , und klicken Sie auf Bereich Namen .
Hinweis: Feld bezieht sich auf beziehen sich auf den markierten Bereich. Dies sollte vergrößert und verkleinert Daten eingefügt oder gelöscht werden.

Um die Daten abzurufen, verwenden Sie den soeben erstellten Bereichsnamen für den Tabellennamen in Ihrer select-Anweisung.

Excel-Schritte

  1. Erstellen Sie die Excel-Datei test.XLS, mit folgenden Daten in Blatt1:
       excel File : test.xls with the following entries:        male  female    children   teens         11    cc       78           ee         22    xx       33           ff         45    uu       56           oo					
  2. Erstellen Sie die benannten Bereich, myRange1 und myRange2, in der Tabelle mit den entsprechenden Daten.
          named range : myRange1      male female children teens      named range  : myRange2      11     cc   78   ee      22     xx   33   ff      45     uu   56   oo					

Visual Basic-Schritte

  1. Erstellen Sie ein neues standard EXE-Projekt namens "DAO_EXCEL".
  2. Im Menü Projekt klicken Sie auf Verweise und aktivieren Sie das Kontrollkästchen Microsoft DAO 3.5-Bibliothek .
  3. Platzieren Sie eine Befehlsschaltfläche in das Formular.
  4. Fügen Sie folgenden Code im Formular Code-Fenster:
          private Sub Command_click1      im dbtmp As DAO.Database      im tblObj As DAO.TableDef      im rs As DAO.Recordset      et dbtmp = OpenDatabase_           ("<complete path>\test.xls", False, True, "Excel 8.0;")      DoEvents      Set rs = dbtmp.OpenRecordset("select * from `myRange2`")      While Not rs.EOF          For x = 0 To rs.Fields.Count - 1              Debug.Print rs.Fields(x).Value          Next          rs.MoveNext      Wend      End Sub      Note the reverse apostrophe "`" while specifying the range      name(myrange2).					
Ergebnisse wie erwartet:
  11  cc  78  ee  22  xx  33  ff  45  uu  56  oo				
Informationsquellen
Finden Sie in der Dokumentation zum Herstellen einer Verbindung zu Excel über DAO. Eine andere gute Referenz werden die bevorstehende ADO-> Excel Verweis.

Warnung: Dieser Artikel wurde automatisch übersetzt.

Eigenschaften

Artikelnummer: 190195 – Letzte Überarbeitung: 12/05/2015 09:01:33 – Revision: 2.3

Microsoft Visual Basic 6.0 Learning Edition, Microsoft Visual Basic 6.0 Professional Edition, Microsoft Visual Basic Enterprise Edition for Windows 6.0, Microsoft Visual Basic 5.0 Professional Edition, Microsoft Visual Basic 5.0 Enterprise Edition, The DAO SDK

  • kbnosurvey kbarchive kbmt kbdatabase kbhowto kbiisam KB190195 KbMtde
Feedback