Como usar ADOX com dados do Excel do Visual Basic ou 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

Voltar para o início

Catálogos do ADOX

• Você pode usar uma seqüência de conexão ou objeto ADO Connection para criar ou abrir um objeto de catálogo . O exemplo de código a seguir ilustra como abrir Book1.xls como um catálogo do ADOX:

  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"
  					

• O objeto de catálogo tem um método Create mas não tem um método Delete .

Criando um catálogo

Voltar para o início

Tabelas do ADOX

Criar uma tabela

• Criar uma nova tabela ADOX cria uma nova planilha e um novo intervalo nomeado em nova planilha com o nome especificado. O novo intervalo nomeado se estende apenas os títulos de coluna. Por exemplo, se você criar uma tabela (planilha) denominada Minha_tabela com duas colunas, um intervalo nomeado MyTable, que é definido como MyTable! $ A $ 1: $ B $ 1, também é criado.
• Você pode especificar um nome de tabela que contém um espaço; no entanto, ADOX substitui o espaço com um sublinhado nos nomes de planilha e o intervalo que você criar.
• A nova planilha é criada como da última planilha na pasta de trabalho, após o número padrão de planilhas vazios que estão especificadas nas opções do Excel para uma nova pasta de trabalho.
• Se você tentar criar uma nova tabela quando a pasta de trabalho é aberta no Excel, você receber a seguinte mensagem de erro:
  Erro não especificado.
• Se você tentar criar uma tabela que não tem colunas definidas, parece bem-sucedida, mas na verdade, nada é criado.
• Se você tentar alterar o nome de uma tabela existente, você receber a seguinte mensagem de erro:
  Operação não tem suporte para esse tipo de objeto.

Excluir uma tabela

• Se você tentar excluir a planilha (MyTable $), ele aparece bem-sucedida sem erro, mas a planilha permanece na pasta de trabalho. Você pode chamar o método Delete repetidamente sem erro, mas não tem efeito.
• Se você tentar excluir o intervalo (MyTable), ele aparece bem-sucedida sem erro, mas o intervalo permanece na pasta de trabalho. No entanto, se você tentar excluir o intervalo de uma segunda vez, você receberá erro 3265:
  Item não pode ser encontrado na coleção correspondente ao nome solicitado ou ordinal.
• Se você tentar excluir um intervalo nomeado, deixa a definição do intervalo nomeado intactos, mas os dados no intervalo são excluídos.

Voltar para o início

Colunas do ADOX

Tipos de dados ADO usados com o Excel

• adDouble, digite 5
• adDate, digite 7
• adCurrency, digite 6
• adBoolean, digite 11
• adVarWChar, digite 202
• adLongVarWChar ("Memorando"), digite 203

Colunas em geral

• Você pode acrescentar colunas adicionais a uma tabela criada anteriormente, desde que a tabela não contém quaisquer linhas de dados.
• Você pode especificar nomes de colunas que incluem espaços.
• ADOX sempre cria cabeçalhos de coluna que estiverem precedidos por uma aspa simples ('), por exemplo, 'F1,' Col1, ' Col2. No entanto, isso parece não causar um problema mais tarde porque o nome é recuperado sem as aspas.

Criar colunas ao criar uma tabela

    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
				

Criar colunas em uma planilha existente

Excluindo colunas

• Se a coluna não tiver nenhum dado, isso parece bem-sucedida sem erro, mas o cabeçalho de coluna e de coluna permanecem.
• Se a coluna contiver dados, a operação de exclusão falhará com a seguinte mensagem de erro:
  Operação inválida.

Alterar o tipo de dados de uma coluna existente

Voltar para o início

Adicionar dados ao Excel tabelas e colunas

Adicionar dados a colunas do Excel criados por ADOX

• Todos os valores de seqüência de caracteres de texto são armazenados precedido por uma aspa simples. No entanto, isso parece não causar um problema mais tarde porque o valor é recuperado sem as aspas.
• Se você tentar inserir uma seqüência de caracteres de texto em uma coluna que é definida como numérico ou um número em uma coluna de texto, você receberá 80040e21 de erro:
  Operação de várias etapas gerou erros. Verifique cada valor de status.

Adicionar dados a colunas normal do Excel

• Seqüências de caracteres de texto são armazenadas sem as aspas únicas anterior.
• Os números aparecem alinhadas à esquerda. No Excel 2002, os números são sinalizados com a marca inteligente que avisa "Números armazenados como texto". Isso pode causar um problema posteriormente quando você estiver trabalhando com os dados, especialmente se os dados foi armazenados no Excel para análise numérico.

Voltar para o início

Usando SQL CREATE, ALTER e DROP instruções

Voltar para o início

Conclusão

• O ADOX funciona melhor com o Excel quando uma nova tabela e suas colunas são criadas ao mesmo tempo.
• ADO funciona melhor com dados do Excel quando os dados são armazenados em uma planilha é criada usando ADOX.

Voltar para o início