IMPORTAÇÃO RESULTADOS LOTOFACIL

2024 - VBA & Macros

Post Recente por rilust 9 anos atrás

3 Posts

2 Usuários

0 Reactions

1,892 Visualizações

RSS

rilust

(@rilust)

Posts: 387

Reputable Member

Topic starter

prezados
Eu tenho essa planilha que tem uma aba chamada lotofacil a qual preciso atualizar com os últimos resultados de um site.
preciso de uma macro que importe esse txt para essa aba. (arquivos anexos)

Para facilitar
1) o nome do txt será sempre o mesmo e estara sempre no mesmo lugar d:lotofacil.txt
2) importar dos dados todos por cima dos que já existem

observação:
Eu sei que posso importar direto pois é coluna fixa mas ai tenho que importar para um arquivo e depois copiar e colar para outro. quero facilitar minha vida pois faço isso toda vez que tem resultado novo.

Desde já agradeço

Espero ter Ajudado. Lembre-se de AGRADECER aos que te ajudaram, e de marcar o tópico como [Resolvido]

Postado : 17/05/2016 9:16 am

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Veja se auxilia

Public Sub ImpArquivoTexto()
Dim Texto As String, Path As String
Dim L As Long        'linha de gravação

'altere para caminhonome onde seu arquivo está
Path = "D:lotofacil.txt"
'abre o arquivo texto para leitura.
Open Path For Input As #1
L = 2:  Cont = 1
'loop para percorrer todas as linhas do arquivo texto
Do While Not EOF(1)
   Line Input #1, Texto 'lê uma linha
   Cont = Cont + 1
    
    'Clean - remove caracteres não imprimíveis.
    'LTrim remove espaços a esquerda.
    Texto = WorksheetFunction.Clean(LTrim(Texto))
    'Separa a linha em termos separados por espaço
    separa = Split(Texto, " ")
    'Grava os termos nas celulas
    For x = 0 To UBound(separa)
        If x = 1 Then
            Cells(L, x + 1) = CDate(separa(x))
        Else
            Cells(L, x + 1) = separa(x)
        End If
    Next
    L = L + 1
Loop
Close #1 'fecha o arquivo texto
End Sub

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 17/05/2016 11:36 am