IMPORTAR TXT COTAÇÃ...
 
Notifications
Clear all

IMPORTAR TXT COTAÇÃO PARA EXCEL.

9 Posts
3 Usuários
0 Reactions
1,554 Visualizações
(@rfs)
Posts: 63
Estimable Member
Topic starter
 

Boa noite!!

Precisando da ajuda dos universitários!!

Preciso de um arquivo para VBA ou Macro, para importar colunas de txt para EXCEL.

ÚNICAS COLUNAS QUE PRECISO
Colunas necessárias : ITM - N/Vosso Codigo - Descricao da Mercadoria - Quantidade - UN -

ARQUIVO ABAIXO

https://www.sendspace.com/file/lagxv7

Antecipadamente agradeço.

 
Postado : 08/06/2016 5:58 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Use nossa base !
https://cse.google.com.br/cse?cx=partne ... gsc.page=1

Att

 
Postado : 09/06/2016 9:47 am
(@rfs)
Posts: 63
Estimable Member
Topic starter
 

Alexandre!!! boa noite!! pesquisei todos os códigos, incluir na planilha e não deu certo..posso está errado...mas...infelizmente não deu certo...ainda continuo precisando de ajudar..srsr

 
Postado : 09/06/2016 5:54 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Eu não consigo baixa seu arquivo no meu trabalho.

Tente Gravar uma Macro usando a opção Obter dados externos.
O código abaixo é apenas um exemplo fictício.

Sub ObterDadosExternos()
'
' ObterDadosExternos Macro
'

'
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;C:UsersAleVBADownloadsdd.txt", Destination:=Range( _
        "$A$1"))
        .Name = "dd"
        .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)
        .TextFileFixedColumnWidths = Array(2, 24, 2, 5)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
End Sub

Att

 
Postado : 10/06/2016 6:02 am
(@rfs)
Posts: 63
Estimable Member
Topic starter
 

Alexandre boa noite!! sou fraco..rsrs copiei o código,,mas..não deu certo...

 
Postado : 10/06/2016 4:14 pm
(@rfs)
Posts: 63
Estimable Member
Topic starter
 

aquivo anexo

 
Postado : 10/06/2016 4:15 pm
(@djunqueira)
Posts: 0
New Member
 

Importação usando Nova Consulta (Query Table).

 
Postado : 10/06/2016 11:52 pm
(@rfs)
Posts: 63
Estimable Member
Topic starter
 

Djunqueira boa noite!! a planilha me atende...mas...infelizmente...não aprendi a usar...tentei,,,,´pesquisei.. baixei um suplemento chamado query..mas...não conseguir...configurar corretamente. rrsrs se tivesse como montar uma macro...resolveria,

 
Postado : 12/06/2016 2:56 pm
(@djunqueira)
Posts: 0
New Member
 

rfs usando o Query Table é muito mais fácil importar qq tipo de arquivo, melhor conselho q eu posso te dar é p/ fazer um pequeno esforço e aprende a usar essa "nova ferramenta" q no Excel 2016 já vem nativo.
Procure por vídeos na internet s/ o assunto, em uma semana no máximo vc já vai estar craque. ;)
No endereço abaixo tem um curso bom s/ o assunto.
https://www.youtube.com/channel/UCusu-y ... xOwCTmELqw

 
Postado : 12/06/2016 5:04 pm