MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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


3 participantes

    [Resolvido]Ler conteúdo da célula do Excel

    pedrovaleriojr
    pedrovaleriojr
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 15
    Registrado : 13/04/2021

    [Resolvido]Ler conteúdo da célula do Excel Empty [Resolvido]Ler conteúdo da célula do Excel

    Mensagem  pedrovaleriojr 27/6/2024, 20:34

    Pessoal,

    Procurei no fórum, na Internet, mas não encontrei nenhum exemplo onde pego o conteúdo de uma determinada célula.

    Não é nenhum BD ainda, tive essa ideia porque o programa de ponto gera um relatório e exporta em XLS.
    Porém no formato "relatório", com cabeçalho e tal.

    O que eu queria era "ver" o conteúdo da célula para poder importar em uma tabela no Access.

    Exemplo:

    Qual o conteúdo da célula A1 ???

    Já vi como contar as colunas e linhas, abrir o Excel, entre outras. Mas ver o conteúdo não achei mesmo. Crying or Very sad

    Se alguém puder me ajudar, ficarei muito grato.

    Obrigado!!!
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3365
    Registrado : 13/12/2016

    [Resolvido]Ler conteúdo da célula do Excel Empty Re: [Resolvido]Ler conteúdo da célula do Excel

    Mensagem  Alexandre Fim 27/6/2024, 21:05

    Pedro boa tarde,

    Sim, é possivel verificar os dados da planilha e carregar uma listbox no Access para visualização

    Envia uma copia dessa planilha para eu criar um modelo e te enviar.

    Att,

    Alexandre Fim


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Ler conteúdo da célula do Excel Setinf11
    Sistemas e Tecnologia Ltda

    pedrovaleriojr gosta desta mensagem

    pedrovaleriojr
    pedrovaleriojr
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 15
    Registrado : 13/04/2021

    [Resolvido]Ler conteúdo da célula do Excel Empty Planilha de exemplo.

    Mensagem  pedrovaleriojr 27/6/2024, 21:18

    Grato, Alexandre.

    Segue anexo a planilha.

    As células em destaque são as que quero importar. Cool

    Obrigado!
    Anexos
    [Resolvido]Ler conteúdo da célula do Excel AttachmentPontos.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (12 Kb) Baixado 5 vez(es)
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3365
    Registrado : 13/12/2016

    [Resolvido]Ler conteúdo da célula do Excel Empty Re: [Resolvido]Ler conteúdo da célula do Excel

    Mensagem  Alexandre Fim 27/6/2024, 21:22

    Pedro?
    Por acaso, esse sistema gera arquivo de ponto em TXT ou XML também?
    Se sim, manda um exemplo nesses formatos também, por favor.

    Att,

    Alexandre Fim


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Ler conteúdo da célula do Excel Setinf11
    Sistemas e Tecnologia Ltda
    pedrovaleriojr
    pedrovaleriojr
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 15
    Registrado : 13/04/2021

    [Resolvido]Ler conteúdo da célula do Excel Empty Ler conteúdo da célula do Excel.

    Mensagem  pedrovaleriojr 28/6/2024, 11:58

    Alexandre,

    Ele gera arquivo texto sim, até já importei.

    Porém tenho que executar os cálculos de HE e atrasos. O Ponto não fornece um TXT como ele mostra no cálculo.
    Até fiz uma conexão SQL com o BD dele, mas não tem essa informação gravada em nenhuma tabela.
    Creio que ele faz o cálculo para gerar o relatório e só.
    Por isso queria importar os dados da planilha, dessa forma não teria de fazer os cálculos, pois sempre dá diferença e os valores do Ponto devem ser mantidos, entende.

    Abraço. Very Happy
    pedrovaleriojr
    pedrovaleriojr
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 15
    Registrado : 13/04/2021

    [Resolvido]Ler conteúdo da célula do Excel Empty Ler conteúdo da célula do Excel.

    Mensagem  pedrovaleriojr 28/6/2024, 12:26

    Alexandre,

    Consegui através de um exemplo que encontrei.


    (Arquivo de exemplo anexo)

    O código fica assim:

    Private Sub cmdNavegar_Click()
       Dim VarArquivo As String
       Dim xlsApp As Excel.Application
       Dim xlsBook As Excel.Workbook
       Dim xls As Excel.Worksheet
       
       VarArquivo = "D:\PEDRO\Downloads\Ponto.xlsx" ' Pode melhorar isso indicando o caminho do próprio BD.
       
       Set xlsBook = Workbooks.Open(VarArquivo, , True)
       Set xlsApp = xlsBook.Parent
       Set xls = xlsApp.Sheets("Cartão Ponto")
       
       'xlsApp.Visible = True
       If xls.Cells(1, 1) = "CARTÃO PONTO" Then
           lblStatusNavegar.Caption = "Bingo! O conteúdo da célula é: " & xls.Cells(1, 1) & "."
       Else
           lblStatusNavegar.Caption = "Você falhou!!! Sad É um bananão mesmo."
       End If
    End Sub


    Agora é só trabalhar com algumas variáveis para navegar pelas células e outras para receber os valores.

    Para mim, isso basta. Agora é comigo aqui. Cool

    Mas se tiver alguma ideia, sou todo ouvidos. Smile

    Obrigado pela atenção, Alexandre.

    Abração!!!
    Anexos
    [Resolvido]Ler conteúdo da célula do Excel AttachmentLer Células Excel.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (35 Kb) Baixado 4 vez(es)
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3365
    Registrado : 13/12/2016

    [Resolvido]Ler conteúdo da célula do Excel Empty Re: [Resolvido]Ler conteúdo da célula do Excel

    Mensagem  Alexandre Fim 28/6/2024, 17:12

    Olá Pedro,

    Segue exemplo de leitura da planilha e gravação do ponto. O formulário ficou assim:

    [Resolvido]Ler conteúdo da célula do Excel Ponto10

    Procedimentos:
    1 - Selecionar a planilha desejada
    2 - Clicar em "Carregar" para visualização dos dados.
    3 - Clicar em "Gravar" para gravar dados na tabela

    Criei uma chave composta para não gravar dados duplicados:
    [Resolvido]Ler conteúdo da célula do Excel Ponto210

    Tabela de Ponto:
    [Resolvido]Ler conteúdo da célula do Excel Ponto310

    Segue versão do sistema.

    Faça os ajustes e melhorias que achar necessário para ajudar nas suas atividades.

    Qualquer dúvida/problema nos informe

    É isso

    Espero ter ajudado

    Att,

    Alexandre Fim
    Anexos
    [Resolvido]Ler conteúdo da célula do Excel AttachmentPontoRH.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (45 Kb) Baixado 9 vez(es)


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Ler conteúdo da célula do Excel Setinf11
    Sistemas e Tecnologia Ltda

    pedrovaleriojr gosta desta mensagem

    pedrovaleriojr
    pedrovaleriojr
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 15
    Registrado : 13/04/2021

    [Resolvido]Ler conteúdo da célula do Excel Empty Ler conteúdo da célula do Excel.

    Mensagem  pedrovaleriojr 28/6/2024, 17:45

    Valeu mestre Alexandre!!!

    Muito obrigado pela atenção e colaboração.

    Grande abraço!!! cheers
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Ler conteúdo da célula do Excel Empty Re: [Resolvido]Ler conteúdo da célula do Excel

    Mensagem  Alvaro Teixeira 1/7/2024, 15:30

    Olá a todos,

    Pedro, não se esqueça de dar o tópico como Resolvido, veja como fazer:
    https://www.maximoaccess.com/t860-resolucao-de-topicos

    Abraço

    pedrovaleriojr gosta desta mensagem

    pedrovaleriojr
    pedrovaleriojr
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 15
    Registrado : 13/04/2021

    [Resolvido]Ler conteúdo da célula do Excel Empty Ler planilha excel

    Mensagem  pedrovaleriojr 3/7/2024, 23:01

    Resolvido, amigos.

    Grato. cheers
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Ler conteúdo da célula do Excel Empty Re: [Resolvido]Ler conteúdo da célula do Excel

    Mensagem  Alvaro Teixeira 4/7/2024, 14:51

    cheers

    Conteúdo patrocinado


    [Resolvido]Ler conteúdo da célula do Excel Empty Re: [Resolvido]Ler conteúdo da célula do Excel

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/7/2024, 10:46