Importar arquivo CSV para excel com critério.
Página 1 de 1
Importar arquivo CSV para excel com critério.
Boa tarde!!
Importar arquivo CSV para excel, com critério.
Att
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- Intermediário
- Mensagens : 222
Data de inscrição : 26/06/2012
Localização : Serra-ES
Tópicos semelhantes
» Copia dados do Arquivo e guia ativa para um Arquivo fechado (VBA)
» Macro importar arquivo .txt
» Como reparar arquivo do Excel
» Loop para importar arquivos .txt
» Macro para importar diversos arquivos txt
» Macro importar arquivo .txt
» Como reparar arquivo do Excel
» Loop para importar arquivos .txt
» Macro para importar diversos arquivos txt
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos