MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

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

    avatar
    Edcronos
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11
    Registrado : 28/06/2015

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

    Mensagem  Edcronos em 30/6/2015, 17:15

    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é
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6905
    Registrado : 15/03/2013

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

    Mensagem  ahteixeira em 30/6/2015, 18:38

    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
    avatar
    Edcronos
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11
    Registrado : 28/06/2015

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

    Mensagem  Edcronos em 30/6/2015, 18:53

    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


    Última edição por Edcronos em 30/6/2015, 19:20, editado 2 vez(es)
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6905
    Registrado : 15/03/2013

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

    Mensagem  ahteixeira em 30/6/2015, 18:59

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

    Será exportar para excel ou importar do excel?
    avatar
    Edcronos
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11
    Registrado : 28/06/2015

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

    Mensagem  Edcronos em 30/6/2015, 19:19

    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

    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6905
    Registrado : 15/03/2013

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

    Mensagem  ahteixeira em 30/6/2015, 19:30

    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
    avatar
    Edcronos
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11
    Registrado : 28/06/2015

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

    Mensagem  Edcronos em 30/6/2015, 19:50

    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

    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6905
    Registrado : 15/03/2013

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

    Mensagem  ahteixeira em 30/6/2015, 22:06

    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
    avatar
    Edcronos
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11
    Registrado : 28/06/2015

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

    Mensagem  Edcronos em 30/6/2015, 22:24

    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
    avatar
    Edcronos
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11
    Registrado : 28/06/2015

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

    Mensagem  Edcronos em 30/6/2015, 22:51

    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
    Anexos
    [Resolvido]listar as tabelas de um arquivo tipo accdb a partir do Excel AttachmentExcelacesimpo.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (33 Kb) Baixado 8 vez(es)
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6905
    Registrado : 15/03/2013

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

    Mensagem  ahteixeira em 1/7/2015, 08:34

    Olá Eduardo, ainda bem que resolveu. Wink
    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

      Data/hora atual: 22/10/2020, 12:45