[Resolvido]listar as tabelas de um arquivo tipo accdb a partir do Excel

como contar e listar as tabelas de um arquivo tipo accdb, "ainda estou perdido com os termos usados"

estou tentando fazer uma macro genérica "Para qualquer tipo de arquivo" para importar do access para o excel

no caso eu quero abrir um arquivo qualquer e listar todas as tabelas que tem
e então listar os tipos de dados para poder se escolher a tabela que se quer trabalhar

ainda não sei os tipos de arquivos do access, por enquanto vou aprender os métodos usados para accdb

Até

Olá Eduardo, bem-vindo ao fórum.
Verifico que já tem vários tópicos abertos.
Para podermos ajudar, deve ser mais concreto na dúvida e dar o máximo de informação do que:

a) pretende fazer;
b) o que já tem feito (se possível postar base de dados com a "parte" em questão;
c) o que está acontecer e o que pretende obter (dúvida ou erro)

Também deve informar a versão do SO e Office que está a utilizar.

Ficamos aguardar.
Abraço

desculpe é que sou meio afobado
eu comecei com access no mesmo dia do meu cadastro e levei um susto das diferenças para o excel
meu office é o 2010 32b
win7 64b

o meu projeto é generico portanto estou usando qualquer coisa que possa servir de base, "lista de cep, resultado de loterias,..."

oq já consegui fazer
abrir arquivo accdb de uma pasta
importar uma tabela especifica para um array
já consegui listar os nomes de tabelas

estou começando a escrever o codigo para escolher a tabela que quer importar para o excel

Código:


Sub Macro2()
    Dim cn As ADODB.Connection, rs As ADODB.Recordset, rsTab As ADODB.Recordset, coluno()
    Set cn = New ADODB.Connection
    Set rs = New ADODB.Recordset
    Application.EnableEvents = False
    Application.ScreenUpdating = False
    prov1 = "Provider=Microsoft.ACE.OLEDB.12.0;"    ' para .accdb
    LocArq = "D:\TABELAS\"
    N_Aquiv = "tabelaA.accdb"

    Aquiv = "Data Source=" & LocArq & N_Aquiv & ";"
    tabela = "teste2"
    prov = prov1

    cn.Open prov & Aquiv
    Set rsTab = cn.OpenSchema(adSchemaTables)
    While Not rsTab.EOF
        NTab = rsTab!TABLE_NAME
        If Not (NTab Like "MSys*" Or NTab Like "~*") Then NtabList = NTab & "|"
        rsTab.MoveNext
    Wend

    rs.Open tabela, cn

    For C = 0 To rs.Fields.Count - 2    'varre nomes de colunas
        Cells(1, C + 1).value = rs.Fields(C).Name
    Next

    coluno = rs.GetRows: Call FSD(coluno)
    Range(Cells(2, 1), Cells(UBound(coluno, 1) + 1, UBound(coluno, 2))).Value2 = coluno

    rs.Close
    Set rs = Nothing
    cn.Close
    Set cn = Nothing
End Sub

Sub FSD(ByRef Nome_Array)
    l1 = UBound(Nome_Array, 1): c1 = UBound(Nome_Array, 2)
    Dim ColunD()
    ReDim ColunD(1 To c1, 1 To l1)
    C2 = 1: l2 = 1

    For l = 1 To l1
        For C = 1 To c1
            ColunD(l2, C2) = Nome_Array(l, C)
            l2 = l2 + 1
        Next
        l2 = 1: C2 = C2 + 1
    Next

    Nome_Array = ColunD
End Sub


Desculpa, mas estou confuso, já é a segunda vez que vejo que pretende "importar para excel"

Será exportar para excel ou importar do excel?

na verdade estava afim de um banco de dados para trabalhar com minha planilha
e vi muita gente usando o access

então na busca de aprender algo ou sobre qualquer coisa eu achei esse forum e me cadastrei
já vi que que o access não é bem um banco de dados

mas como minha planilha trabalha como tabelas pq não aprender e usar tbm o access para importar e exportar arquivos

meu projeto é para ser multi direcional

essa macro por enquanto é para entender os métodos do access e importar do access para o excel
depois vou tentar aprender como criar e exportar para o access a partir do excel

Lamento informar, mas este fórum é de Access para dúvidas de Excel será melhor procurar um fórum dedicado a Excel.
No entanto se pretender inicir-se no Access, está no sítio certo, ou seja aqui no MaximoAccess.

Caso pretenda algo em Access para importar do Excel, processar alguma informação e exportar novamente para Excel, estamos cá.

Abraço

eu não quero tirar duvidas de escel e sim de access por isso abri os topicos

eu estou querendo integrar o excel e o access

e como pode ver pela macro que fiz
ela abre um arquivo access e e pega uma das tabelas e passa para um array e depois passa para a planilha

mesmo que eu esteja trabalhando em cima do excel
para pegar ou passar dados para o access tem ter conhecimento de "access e macros"
pq os métodos são diferentes das do excel

com excel eu me viro

Olá, gostaria de lembrar que o Access apesar de permitir fazer muitas coisas é um SGBD.

Com uma buscaaqui no fórum temos vários exemplos de trabalhar com Excel (normalmente tudo é efectuado a partir do Access).
Veja estes tópicos:
https://www.maximoaccess.com/t22625p6-resolvidocopiar-de-excel-para-excel-dentro-do-access#164508
https://www.maximoaccess.com/t19980p7-consultar-dados-de-excel-para-access#147715
https://www.maximoaccess.com/t19615p6-resolvidoatualizacao-automatica-na-importacao-access-excel#144974

Quanto ao código postado é para fazer a partir do Excel, não disponho de informação.
Após a leitura dos tópicos em referencia, caso pretenda ajuda , tente descrever um pequeno exemplo do que pretende fazer, com ficheiro de excel (considere que será efectuado a partir do Access).
Abraço

já estou fazendo

como falei com o excel "não tenho problemas" ( tenho... mas para o que quero fazer consigo me virar)
mas não conheço as propriedades do access

eu simplesmente estou mesclando minha base de conhecimento para aprender os comandos do access

para le ou para escrever, criar ou excluir no acces existe comados próprios
e para fazer a mesma coisa no access a partir do excel  tem que se usar os mesmos comandos

se quiser eu mando a planilha que estou fazendo para aprender a pegar dados do access

ela lista os arquivos de um diretorio em um combo box
depois que se escolhe o arquivo pode listar as tabelas

para então importar a tabela escolhida para o excel

estou fazendo para aprender a mexer no access

ainda não tem opção de pegar arquivos com senha

este topico está resolvido consegui fazer oq queria "essa parte"

ainda falta alguns ajustes
reparei que a tabela vem com alguma coisa estranha, não sei se é na hora de pegar ou a macro que fiz para transpor a array

usei a tabela de cep que postaram aqui " que infelizmente vem com uma configuração não conforme para meu uso"

para mudar a pasta de onde pega os arquivos é só mudar :
Public Const LocArq = "D:\TABELAS\"    'pasta onde se encontra os arquivos

no modulo:
Controle_Funcion

bem, acho que para quem começou ontem já é alguma coisa

Olá Eduardo, ainda bem que resolveu.
Obrigado pelo retorno e partilha, os utilizadores do fórum agradecem.

Faltou o resolvido, mas desta vez eu coloco, veja como fazer.
Procedi a um ligeiro ajuste ao Titulo e movi para Off Tópic.

Abraço