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]Importar células específicas do Excel

    avatar
    renan_meyer
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 16
    Registrado : 27/03/2020

    [Resolvido]Importar células específicas do Excel Empty [Resolvido]Importar células específicas do Excel

    Mensagem  renan_meyer em 18/4/2020, 20:57

    Boa tarde galera!

    Estive essa semana fazendo um sistema, que pensei ser simples, mas foram tantos testes de vba dele que não deram certo que não aguento mais xingar meu pc Mad  kkk
    Pensei que como adquiri muito conhecimento deste fórum, talvez alguém aqui consiga me ajudar a sair do 0.

    Preciso programar um sistema que importe umas planilhas. Faço ele abrir uma janela pedindo o arquivo e ele importasse em uma tabela apenas as células B2 e D5 por exemplo.
    Depois disso eu montaria as consultas e bla bla bla conforme preciso.
    porém não consigo! =/

    Alguém consegue me auxiliar com isso? pensei q fosse mais simples, mas caí do cavalo.
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2455
    Registrado : 22/11/2016

    [Resolvido]Importar células específicas do Excel Empty Re: [Resolvido]Importar células específicas do Excel

    Mensagem  DamascenoJr. em 19/4/2020, 02:05



    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    avatar
    renan_meyer
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 16
    Registrado : 27/03/2020

    [Resolvido]Importar células específicas do Excel Empty Re: [Resolvido]Importar células específicas do Excel

    Mensagem  renan_meyer em 19/4/2020, 15:08

    Bom dia!

    Meu caro DamascenoJr.

    Vi o tópico que redirecionou, porém ele fala sobre o inverso (exportar pro excel, no caso pretendo importar do excel pro access).
    Vi que comentou lá com o código abaixo:


    Código:
    On Error GoTo trataerro

        Dim xls As Object
        
        Set xls = CreateObject("Excel.Application")
        xls.Workbooks.Open ("CaminhoCompletoArquivo.xls")
        xls.Visible = False
        xls.WorkSheets("Planilha1").Activate
        
        xls.Range("A1").Value = "Nunca"
        xls.Range("B2").Value = "Desista"
        xls.Range("C3").Value = "Do"
        xls.Range("D4").Value = "Access"

        xls.ActiveWorkbook.Save
        xls.Application.Quit
        Set xls = Nothing
        
    sair:
        Exit Sub
        
    trataerro:
        MsgBox Err.Description, vbCritical, "Erro " & Err.Number
        Resume sair:


    Em xls.Range("A1").Value = "Nunca"
    pelo que entendi, ele coloca o valor "...." no range especifidado, dentro do excel correto?
    teria como eu fazer esse .range.value = na minha linha do access?
    pois ai daria certinho!!!! mataria essa dúvida do tópico
    se der, a próxima importação já irá entrar na proxima linha correto?

    Obrigado pelo redirecionamento, ajudou a abrir uma ideia!
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2455
    Registrado : 22/11/2016

    [Resolvido]Importar células específicas do Excel Empty Re: [Resolvido]Importar células específicas do Excel

    Mensagem  DamascenoJr. em 19/4/2020, 16:05

    Não há segredos.

    Se isso joga pro Excel
    xls.Range("A1").Value = me!Campo1EmFormAccess.Value
    xls.Range("B2").Value = me!Campo2EmFormAccess.Value
    xls.Range("C3").Value = me!Campo3EmFormAccess.Value
    xls.Range("D4").Value = me!Campo4EmFormAccess.Value

    Então isso traz
    me!Campo1EmFormAccess.Value = xls.Range("A1").Value
    me!Campo2EmFormAccess.Value = xls.Range("B2").Value
    me!Campo3EmFormAccess.Value = xls.Range("C3").Value
    me!Campo4EmFormAccess.Value = xls.Range("D4").Value


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    avatar
    renan_meyer
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 16
    Registrado : 27/03/2020

    [Resolvido]Importar células específicas do Excel Empty Re: [Resolvido]Importar células específicas do Excel

    Mensagem  renan_meyer em 19/4/2020, 17:33

    Caro DamascenoJr.

    Nota 10!!!
    Inseri o código que informou e deu certíssimo!!

    Muito obrigado cheers

    Mais uma vez falo, aprendo mais com esse fórum do que com os cursos que comprei.
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2455
    Registrado : 22/11/2016

    [Resolvido]Importar células específicas do Excel Empty Re: [Resolvido]Importar células específicas do Excel

    Mensagem  DamascenoJr. em 19/4/2020, 18:03

    O fórum agradece o retorno. Sucesso.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

      Data/hora atual: 4/12/2020, 08:19