Verwendung von ADOX mit Excel-Daten von Visual Basic oder VBA

• ADOX Catalogs
• Creating a Catalog


• ADOX Tables
• Creating a Table
• Deleting a Table


• ADOX Columns
• ADO Data Types Used with Excel
• Columns in General
• Creating Columns When Creating a Table
• Creating Columns in an Existing Worksheet
• Deleting Columns
• Changing the Data Type of an Existing Column


• Adding Data to Excel Tables and Columns
• Adding Data to Excel Columns That Are Created by ADOX
• Adding Data to Ordinary Excel Columns


• Using SQL CREATE, ALTER, and DROP Statements
• Conclusion

Zum Anfang

ADOX-Kataloge

• Sie können ein ADO- Connection -Objekt oder die Verbindungszeichenfolge erstellen oder öffnen Sie ein Catalog -Objekt. Im folgenden Codebeispiel wird veranschaulicht, wie Book1.xls als ein ADOX Katalog geöffnet:

  Dim cat As ADOX.Catalog
  Set cat = New ADOX.Catalog
  cat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
      "Data Source=" & App.Path & "\book1.xls;Extended Properties=Excel 8.0"
  					

• Das Catalog -Objekt verfügt über eine Methode Erstellen , jedoch keine Delete -Methode.

Erstellen eines Katalogs

Zum Anfang

ADOX-Tabellen

Erstellen einer Tabelle

• Erstellen einer neuen ADOX-Tabelle erstellt ein neues Arbeitsblatt und eines neuen benannten Bereichs auf dem neuen Arbeitsblatt mit dem angegebenen Namen. Die neuen benannten Bereichs umfasst nur die Spaltenüberschriften. Wenn Sie eine Tabelle (Arbeitsblatt) mit dem Namen MyTable mit zwei Spalten, einen benannten Bereich MyTable, definiert als MyTable erstellen, z. B.! $ A $ 1: $ B $ 1, wird ebenfalls erstellt.
• Sie können ein Tabellenname, der ein Leerzeichen enthält angeben; ADOX ersetzt jedoch den Platz mit einem Unterstrich im Arbeitsblatt und Bereich Feldnamen, die Sie erstellen.
• Das neue Arbeitsblatt wird erstellt, als das letzte Blatt in der Arbeitsmappe, folgt die Standardanzahl von leeren Seiten, die für eine neue Arbeitsmappe in Excel-Optionen angegeben sind.
• Wenn Sie versuchen, eine neue Tabelle zu erstellen, wenn die Arbeitsmappe in Excel geöffnet ist, wird sinngemäß die folgende Fehlermeldung:
  Nicht spezifizierter Fehler.
• Wenn Sie versuchen, eine Tabelle erstellen, die keine Spalten definiert wurde, scheint erfolgreich, aber tatsächlich nichts erstellt.
• Wenn Sie versuchen, den Namen einer vorhandenen Tabelle ändern, wird sinngemäß die folgende Fehlermeldung:
  Vorgang ist für diesen Objekttyp nicht unterstützt.

Löschen einer Tabelle

• Wenn Sie versuchen, das Arbeitsblatt (MyTable $) löschen, scheint erfolgreich ohne Fehler ausgeführt, das Arbeitsblatt bleibt jedoch in der Arbeitsmappe. Sie können die Delete -Methode wiederholt ohne Fehler aufrufen, aber es hat keine Auswirkungen.
• Wenn Sie versuchen, löschen Sie den Bereich (MyTable) scheint erfolgreich ohne Fehler ausgeführt, der Bereich bleibt jedoch in der Arbeitsmappe. Wenn Sie versuchen, den Bereich ein zweites Mal zu löschen, wird jedoch Fehler 3265:
  Element kann nicht entsprechenden auf den angeforderten Namen oder Ordinalzahl in der Auflistung gefunden werden.
• Wenn Sie versuchen, einen benannten Bereich zu löschen, die benannten Bereichsdefinition bleiben intakt, aber alle Daten in dem Bereich gelöscht.

Zum Anfang

ADOX-Spalten

Mit Excel verwendete ADO-Datentypen

• AdDouble, geben Sie 5
• AdDate, geben Sie 7
• AdCurrency, geben Sie 6
• AdBoolean, geben Sie 11
• AdVarWChar, geben Sie 202
• AdLongVarWChar ("Memo"), geben Sie 203

Spalten im Allgemeinen

• Sie können zusätzliche Spalten zu einer zuvor erstellten Tabelle anfügen, solange in der Tabelle keine Zeilen von Daten enthalten ist.
• Sie können Spaltennamen angeben, die Leerzeichen enthalten.
• ADOX erstellt immer Spaltenüberschriften, denen ein einfaches Anführungszeichen ('), z. B. "F1", SP1, vorausgeht ' SP2. Jedoch wird dies nicht angezeigt, ein Problem später verursachen, da der Name ohne die Anführungszeichen abgerufen wird.

Erstellen von Spalten beim Erstellen einer Tabelle

    Dim cat As ADOX.Catalog
    Dim tbl As ADOX.Table
    Dim col As ADOX.Column
    Set cat = New ADOX.Catalog
    cat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
	"Data Source=" & App.Path & "\book1.xls;Extended Properties=Excel 8.0"
    Set tbl = New ADOX.Table
    tbl.Name = "TestTable"
    Set col = New ADOX.Column
    With col
        .Name = "Col1"
        .Type = adDouble
    End With
    tbl.Columns.Append col
    Set col = Nothing
    Set col = New ADOX.Column
    With col
        .Name = "Col2"
        .Type = adVarWChar
    End With
    tbl.Columns.Append col
    cat.Tables.Append tbl
				

Erstellen von Spalten in ein vorhandenes Arbeitsblatt

Löschen von Spalten

• Wenn die Spalte keine Daten enthält, dies ohne Fehler erfolgreich angezeigt, aber die Spalte und die Spaltenheader bleiben.
• Wenn die Spalte Daten enthält, schlägt der Löschvorgang mit den folgenden Fehlermeldung fehl:
  Ungültiger Vorgang.

Ändern des Datentyps einer vorhandenen Spalte

Zum Anfang

Hinzufügen von Daten zu Excel-Tabellen und Spalten

Hinzufügen von Daten in Excel Spalten von ADOX erstellte

• Alle Text-Zeichenfolgenwerte befinden sich ein einfaches Anführungszeichen vorangestellt. Jedoch wird dies nicht angezeigt, ein Problem später verursachen, da der Wert, ohne die Anführungszeichen abgerufen wird.
• Wenn Sie versuchen, eine Textzeichenfolge in eine Spalte einzufügen, die als numerische oder eine Zahl in eine Text-Spalte definiert ist, wird Fehler 80040e21:
  Fehler bei einem aus mehreren Schritten bestehenden Vorgang. Prüfen Sie die einzelnen Statuswerte.

Hinzufügen von Daten zu gewöhnlicher Excel Spalten

• Zeichenfolgen werden ohne vorherigen Anführungszeichen gespeichert.
• Zahlen werden links ausgerichtet. In Excel 2002 werden Zahlen mit der Smart Tag gekennzeichnet, die "Als Text gespeicherte Zahlen" warnt. Dies kann ein Problem später führen beim Arbeiten mit den Daten, insbesondere dann, sofern die Daten in Excel für numerische Analysen gespeichert wurde.

Zum Anfang

Mithilfe von SQL CREATE, ALTER und DROP-Anweisungen

Zum Anfang

Schlussbemerkung

• ADOX funktioniert am besten mit Excel, wenn eine neue Tabelle, und die Spalten werden zur gleichen Zeit erstellt.
• ADO funktioniert am besten mit Excel-Daten, wenn die Daten in einem Arbeitsblatt gespeichert werden, die mithilfe von ADOX erstellt wird.

Zum Anfang