Como utilizar ADOX com dados do Excel a partir 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 ao topo

Catálogos ADOX

• Pode utilizar uma cadeia de ligação de objecto ou do ADO ligação para criar ou abrir um objecto de catálogo . O código de exemplo seguinte ilustra a abrir Livro1.xls como um catálogo de 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 objecto de catálogo tem um método de criar mas não tem um método delete .

Criar um catálogo

Voltar ao topo

Tabelas ADOX

Criar uma tabela

• Criar uma nova tabela ADOX cria uma nova folha de cálculo e um novo intervalo com nome da nova folha de cálculo com o nome especificado. O novo intervalo com nome abrange apenas os títulos de coluna. Por exemplo, se criar uma tabela (folha de cálculo) com o nome MinhaTabela com duas colunas, um intervalo com nome MinhaTabela, que é definido como AMinhaTabela! $ A $ 1: $ B $ 1, também é criado.
• Pode especificar um nome de tabela que inclua um espaço; no entanto, ADOX substitui o espaço por um carácter de sublinhado os nomes de folha de cálculo e o intervalo que tenha criado.
• Nova folha de cálculo é criada como da última folha no livro, após o número de folhas vazias que são especificadas nas opções do Excel para um novo livro predefinido.
• Se tentar criar uma nova tabela quando o livro é aberto no Excel, receberá a seguinte mensagem de erro:
  Erro não especificado.
• Se tentar criar uma tabela que não tem colunas definidas, parece ser concluída com êxito, mas na realidade nada é criado.
• Se tentar alterar o nome de uma tabela existente, receberá a seguinte mensagem de erro:
  Operação não é suportada para este tipo de objecto.

Eliminar uma tabela

• Se tentar eliminar a folha de cálculo (AMinhaTabela $), este parece ter êxito sem erros, mas a folha de cálculo permanece no livro. Pode chamar o método delete repetidamente sem erros, mas não tem qualquer efeito.
• Se tentar eliminar o intervalo (AMinhaTabela), este parece ter êxito sem erros, mas o intervalo permanece no livro. No entanto, se tentar eliminar o intervalo de uma segunda vez, receberá o erro 3265:
  Impossível localizar o item na colecção correspondente ao nome solicitado ou ordinal.
• Se tentar eliminar um intervalo com nome, deixa a definição de intervalo intactos, mas quaisquer dados no intervalo são eliminados.

Voltar ao topo

Colunas ADOX

Tipos de dados ADO utilizados com o Excel

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

Colunas em geral

• Pode acrescentar colunas adicionais a uma tabela criada anteriormente, desde que a tabela não contém quaisquer linhas de dados.
• É possível especificar nomes de colunas com espaços.
• ADOX cria sempre cabeçalhos de coluna são precedidos por uma plica ('), por exemplo, 'F1,' Col1, ' Col2. No entanto, este não parece causar um problema mais tarde porque o nome é obtido sem as aspas.

Criar colunas quando 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 numa folha de cálculo existente

Eliminar colunas

• Se a coluna não tem dados, este parece ter êxito sem erros, mas a coluna e o cabeçalho de coluna permanecem.
• Se a coluna contiver dados, a operação de eliminação falha com a seguinte mensagem de erro:
  Operação inválida.

Alterar o tipo de dados de uma coluna existente

Voltar ao topo

Adicionar dados ao Excel tabelas e colunas

Adicionar dados ao Excel colunas criados por ADOX

• Todos os valores de cadeia de texto são armazenados precedido por uma aspa simples. No entanto, este não parece causar um problema mais tarde porque o valor é obtido sem as aspas.
• Se tentar inserir uma cadeia de texto numa coluna que está definida como numérico ou um número numa coluna de texto, receberá 80040e21 de erro:
  Operação de múltiplos passos gerou erros. Verifique cada valor de estado.

Adicionar dados a colunas normais do Excel

• Cadeias de texto são armazenadas sem a aspa simples anterior.
• Os números aparecem alinhadas à esquerda. No Excel 2002, os números são sinalizados com a etiqueta inteligente que avisa-o "Números armazenados como texto". Isto poderá provocar um problema mais tarde quando estiver a trabalhar com os dados, especialmente se os dados tem sido armazenados no Excel para análise de numérico.

Voltar ao topo

Utilizar SQL CREATE, ALTER e instruções DROP

Voltar ao topo

Conclusão

• ADOX funciona melhor com o Excel quando uma nova tabela e respectivas colunas são criadas ao mesmo tempo.
• ADO funciona melhor com dados do Excel, quando os dados estão armazenados numa folha de cálculo é criada utilizando ADOX.

Voltar ao topo