Importar arquivo CSV para excel com critério.

Ir em baixo

Importar arquivo CSV para excel com critério.

Mensagem por alexandrevba em 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
avatar
alexandrevba
Intermediário
Intermediário

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

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum