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

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.

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

Obrigado!!!

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

Grato, Alexandre.

Segue anexo a planilha.

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

Obrigado!

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

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.

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!!! É 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.

Mas se tiver alguma ideia, sou todo ouvidos.

Obrigado pela atenção, Alexandre.

Abração!!!

Olá Pedro,

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



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:


Tabela de Ponto:


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

Valeu mestre Alexandre!!!

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

Grande abraço!!!

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

Resolvido, amigos.

Grato.