Livramento,
Boa Tarde!
Assim, só com a tela do erro fica muito difícil saber o que é e poder ajudar. Todavia, clique no botão Depurar e veja qual é a linha que é destacada pelo VBA (em amarelo).
Para melhor ajudar, compacte seu arquivo com o ZIP, por menor que ele seja, e anexe o mesmo aqui.
Vou redirecionar seu tópico para o sub fórum de VBA.
Desculpe pelo tópico fora de lugar amigo, olha o que o depurador me devolveu:
Sub Macro5()
'
' Macro5 Macro
'
'
ActiveWorkbook.Worksheets.Add
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:UsersGuilherneDesktopJP DISTRIBUIDORARELATÓRIOSVENDAS POR REPRESENTANTE.txt" _
, Destination:=Range("$A$1"))
.CommandType = 0 <--------------------------------------------------- ESSA LINHA FOI MARCADA EM AMARELO.
.Name = "VENDAS POR REPRESENTANTE"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 850
.TextFileStartRow = 1
.TextFileParseType = xlFixedWidth
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1)
.TextFileFixedColumnWidths = Array(46, 12, 12, 11, 9, 12, 12, 12)
.TextFileDecimalSeparator = "."
.TextFileThousandsSeparator = ","
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
Cells.Select
Cells.EntireColumn.AutoFit
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Sheets("SOBRE FATURAMENTO").Select
ActiveWorkbook.Save
End Sub
Postado : 23/01/2014 12:30 pm