MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    Identificar a última linha preenchida numa planilha excel

    Compartilhe

    ilvecchio
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 125
    Registrado : 16/11/2012

    Identificar a última linha preenchida numa planilha excel

    Mensagem  ilvecchio em Qui 18 Set 2014, 20:17

    Buenas!

    Tenho uma planilha excel com informações baseadas em Access2003, que são adicionadas ao longo do mês.
    A função para exportação dos dados eu já tenho (aqui do fórum:By JPaulo ® Maximo Access), e a uso para outras planilhas.

    Porém, agora preciso exportar sempre para a mesma planilha, que vai acumulando até o fim do mês. Então preciso, antes, saber qual é a última linha preenchida na planilha, para que as informações a serem acrescidas o sejam a partir da linha seguinte.

    Obrigado.

    LiveBrain
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 182
    Registrado : 15/05/2011

    Re: Identificar a última linha preenchida numa planilha excel

    Mensagem  LiveBrain em Qui 18 Set 2014, 21:21

    Você pode usar a linha de cógido abaixo.

    troque o Valor 1 do comando Cells(Rows.count, 1) pela coluna que vc quer contar

    Código:
    UltimaLinha = Cells(Rows.Count, 1).End(xlUp).Row + 1


    .................................................................................
    Abraços

    Live Brain Tutoriais

    "Fraca é a pessoa que não conhece a força que possui nos amigos"

    ilvecchio
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 125
    Registrado : 16/11/2012

    Re: Identificar a última linha preenchida numa planilha excel

    Mensagem  ilvecchio em Qui 18 Set 2014, 21:31

    Buenas!
    Achei este código do MC Feba, adaptei, e usei em conjunto com o do João Paulo. Agradeço aos dois.
    Function ImportaUltimaLinha(strPastaImportado As String)
    On Error GoTo ErrHandler

    Dim oExcel As Excel.Application
    Dim oWkb As Excel.Workbook
    Dim oWks As Excel.Worksheet
    Dim oRng As Excel.Range
    Dim strSQL As String
    Dim lngLinha As Long
    Dim db As DAO.Database
    Dim rst As DAO.Recordset

    'Abre o Excel
    Set oExcel = CreateObject("Excel.Application")
    Set oWkb = oExcel.Workbooks.Open(strPastaImportado)

    'Abre a tabela de destino
    Set db = CurrentDb

    strSQL = "SELECT * FROM SuaTabela" 'tabela access onde ficara gravado a linha o excel
    Set rst = db.OpenRecordset(strSQL)
    Set oWks = oWkb.Worksheets("NomeDaPlanilha") 'Nome da aba da planilha a ser importada

    'Percorrer as linhas da planilha
    lngLinha = 2

    Do Until oWks.Cells(lngLinha, 1) = Empty 'O 1 representa a coluna onde o valor esta
    If lngLinha = lgnLinha - 1 Then
    rst.AddNew
    rst!CampoDaTabela = oWks.Cells(lngLinha, 1).Value
    rst.Update
    End If
    lngLinha = lngLinha + 1
    Loop

    oWkb.Close
    oExcel.Quit
    rst.Close

    ExitHere:
    Set oWkb = Nothing
    Set oExcel = Nothing
    Set oWks = Nothing
    Set db = Nothing
    Set rst = Nothing
    Exit Function

    ErrHandler:
    If Err = 1004 Then
    MsgBox "Arquivo não encontrado", vbOKOnly
    Resume ExitHere
    End If
    Resume ExitHere
    End Function

      Data/hora atual: Qua 07 Dez 2016, 08:36