��

Select the product you need help with

� �� ADOX � �� Excel �� Visual Basic �� VBA

�� : 303814 - �� , � �� .

��: ��

��

�� | ��

��

�� ActiveX �� (ADOX) �� ActiveX (ADO) ��, �� Access �� (DAO) �� , ��, �� . � �� Microsoft OLE DB Provider �� Jet �� 4.0, �� ISAM, �� Jet � �� , �� Microsoft Access, �� ADO �� ADO � ADOX �� Microsoft Excel � ��.

�� Excel �� , ADO �� Microsoft Excel.� �� ADOX �� , �� Microsoft Excel.� �� ADOX � Excel.�� ADO � Excel �� :

257819

(http://support.microsoft.com/kb/257819/EN-US/ )

�� ADO � �� Excel �� Visual Basic �� VBA (�� )

�� .:

�� ADOX

��

�� ADOX

��
��

�� ADOX

�� ADO, �� Microsoft Excel
��
��
��
��
��

�� Excel ��

�� Excel ��, �� ADOX
�� Excel

� �� SQL CREATE, ALTER � DROP ��
��

��.: �� Windows 2000 Server � �� 2 (SP2) � �� (MDAC) �� 2.6 � �� 1, �� SP5 �� Microsoft Visual Basic 6 � Microsoft Excel 2002 (XP). � �� , �� Windows, �� MDAC, Excel �� Visual Basic.

�� | ��

��

�� ADOX

� �� ADOXcatalog:�� Excel.

�� ADO��.�� catalog:��. � �� , �� Book1.xls �� ADOXcatalog::
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"
��catalog:� ��Create��, �� Delete��.

��

�� Create�� ADOXcatalog:��, �� Excel. �� , �� :

�� .

�� , �� Excel, �� , �� , �� . �� , � �� , �� ADOX ��; �� , �� Excel � �� Excel�� .

�� ADOX

ADOXTABLE�� -�� Excel (�� , �� ), �� .

��

ADOX �� Excel. Because you cannot create a Table without also creating Columns, the code sample appears in the "ADOX Columns"� ��.

Creating a new ADOX table creates both a new worksheet and a new named range on the new worksheet with the name specified. The new named range spans only the column headings. For example, if you create a table (worksheet) named MyTable with two columns, a named range MyTable, which is defined as MyTable!$A$1:$B$1, is also created.
You can specify a table name that includes a space; however, ADOX replaces the space with an underscore in the worksheet and range names that you create.
The new worksheet is created as the last sheet in the workbook, following the default number of empty sheets that are specified in Excel Options for a new workbook.
If you try to create a new table when the workbook is open in Excel, you receive the following error message:
�� :.
If you try to create a table that has no columns defined, it appears to succeed, but in fact nothing is created.
If you try to change the name of an existing table, you receive the following error message:
Operation is not supported for this type of object.

Deleting a Table

You cannot use ADOX to delete a table (worksheet) or named range in Excel, whether or not ADOX created it.

If you try to delete the worksheet (MyTable$), it appears to succeed without error, but the worksheet remains in the workbook. You can call theDeletemethod repeatedly without error, but it has no effect.
If you try to delete the range (MyTable), it appears to succeed without error, but the range remains in the workbook. However, if you try to delete the range a second time, you receive error 3265:
�� , �� .
If you try to delete a named range, it leaves the named range definition intact, but any data in the range is deleted.

ADOX Columns

ADOX columns correspond to the columns or fields in a database and neatly correspond to the columns of an Excel worksheet.

ADO Data Types Used with Excel

ADO recognizes six data types in an Excel datasource that you can use to create columns:

adDouble, type 5
adDate, type 7
adCurrency, type 6
adBoolean, type 11
adVarWChar, type 202
adLongVarWChar ("memo"), type 203

Columns in General

You can append additional columns to a previously created table as long as the table does not contain any rows of data.
You can specify column names that include spaces.
ADOX always creates column headings that are preceded by a single quotation mark ('), for example, 'F1, 'Col1, 'Col2. However, this does not appear to cause a problem later because the name is retrieved without the quotation mark.

Creating Columns When Creating a Table

Creating columns works best when it is done at the same time that a new table is created using ADOX.

The following code creates a new table (worksheet) that contains two columns (one numeric and one text):

    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

Creating Columns in an Existing Worksheet

Appending columns to a pre-existing, empty worksheet generates unusual results. When the first ADOX column is appended to the table's Columns collection, ADOX first creates a column header named F1 in Column A of the worksheet and then creates the new ADOX column header in Column B of the worksheet. Thus, ADOX code that appends two new columns results in three column headers. If you try to delete this unwanted, first column from the Columns collection before you append the first ADOX column, it appears to succeed, but the unwanted column is created nonetheless.

Deleting Columns

You cannot delete a column from an ADOX table in Excel.

If the column has no data, this appears to succeed without error, but the column and column header remain.
If the column contains data, the delete operation fails with the following error message:
Invalid operation.

Changing the Data Type of an Existing Column

After a column has been appended to a table, if you try to set its .Type property to a different data type, you receive the following error message:

Operation is not allowed in this context.

Adding Data to Excel Tables and Columns

When you are testing ADO code with Excel in the Visual Basic design environment, the first time that you run a recordset operation, you may receive the following error message:

Selected collating sequence not supported by the operating system.

You can disregard this error message; this error does not occur after the application is compiled.�� . � �� ::

246167

(http://support.microsoft.com/kb/246167/EN-US/ )

��: �� ADODB �� Excel XLS