Usuários do Excel
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Importar arquivo CSV para excel com critério.

Ir para baixo

Importar arquivo CSV para excel com critério. Empty Importar arquivo CSV para excel com critério.

Mensagem por alexandrevba Qui maio 01, 2014 3:41 pm

Boa tarde!!

Importar arquivo CSV para excel, com critério.
Código:
Sub AleVBA_475V2()
    'Pra mais detalhes veja o Post que originou essa dúvida
    'http://www.mabesi.com/forum/excel/475-importar-arquivo-csv-no-excel-2010.html
    Dim csvFileName As Variant
    Dim destCell As Range, lr, i As Long
   
    Set destCell = Worksheets("Exemplo").Cells(Rows.Count, "A").End(xlUp).Offset(1)
   
    csvFileName = Application.GetOpenFilename(FileFilter:="CSV Files (*.csv),*.csv", Title:="Select a CSV File", MultiSelect:=False)
    If csvFileName = False Then Exit Sub
   
    Application.ScreenUpdating = False
    With destCell.Parent.QueryTables.Add(Connection:="TEXT;" & csvFileName, Destination:=destCell)
        .TextFileStartRow = 2
        .TextFileParseType = xlDelimited
        .TextFileSemicolonDelimiter = True
        .TextFileDecimalSeparator = ","
        .Refresh BackgroundQuery:=False
    End With
   
    destCell.Parent.QueryTables(1).Delete
   
    lr = destCell.Parent.Cells(Rows.Count, 1).End(xlUp).Row
    For i = lr To destCell.Row Step -1
        Select Case CStr(destCell.Parent.Cells(i, 12).Value)
            Case "8160", "144985", "24334"
            Case Else
                destCell.Parent.Cells(i, 12).EntireRow.Delete xlUp
        End Select
    Next
    Application.ScreenUpdating = True
End Sub

Att
alexandrevba
alexandrevba
Intermediário
Intermediário

Mensagens : 222
Data de inscrição : 26/06/2012
Localização : Serra-ES

Ir para o topo Ir para baixo

Ir para o topo

- Tópicos semelhantes

 
Permissões neste sub-fórum
Não podes responder a tópicos