Notifications
Clear all

IMPORTAR TXT PARA EXCEL.

8 Posts
3 Usuários
0 Reactions
1,741 Visualizações
Rogério Freitas
(@rfs)
Posts: 63
Estimable Member
Topic starter
 

Boa noite!

Precisando de uma ajuda... Preciso importar para o excel o arquivo em anexo.. é fácil...só não sei fazer..SRS. se alguem tiver alguma macro que possar realizar essa atividade eu agradeço.

10400 PA C3 HIGIENICO CARINHO PLUS 30M 16/4 NEUTRO FD 1,00000

10423 EB C001 FILME IMPRESSO CARINHO PLUS /4 30M 0.08833 KG 5 0.08392
10999 PI C2 JUMBO CARINHO NOVO PLUS - NORMALIZ 0.00409 TL 10 0.00368
16474 EB C007 PAPEL MACULATURA PARDA 135 GR/M2 - 0.31053 KG 10 0.27948
16989 EB C008 ADESIVO DISACOLA RB CONC ( DISAMTE 0.00167 KG 5 0.00159
17198 EB C008 ADESIVO NICEDEX AV 0.04403 KG 6 0.04139
17252 EB C004 SACOLA LISA LARGURA 590 X1030 MM- 1,0526 SC 5 1,00000
MOD4010201 MO MOD GASTOS INDIRETOS C.C. 4010201 0.00409 HR 0 0.00409

Grato

 
Postado : 28/08/2014 3:48 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Regras do Planilhando:

Ao se ingressar ao fórum, entende-se que o usuário está ciente e concorda com o funcionamento do mesmo.

• Upload
Devido a ultrapassagem da marca de 1,5Gb de armazenamento de arquivos na hospedagem do Planilhando,
limitaremos o tamanho de cada arquivo para 2Mb sendo obrigatório o uso dos formatos
.zip
.rar
.ice

... visto a gratuidade e não geração de recursos para bancar o site.
A moderação

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 29/08/2014 6:48 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!

Precisando de uma ajuda... Preciso importar para o excel o arquivo em anexo.. é fácil...só não sei fazer..SRS. se alguem tiver alguma macro que possar realizar essa atividade eu agradeço.

10400 PA C3 HIGIENICO CARINHO PLUS 30M 16/4 NEUTRO FD 1,00000

10423 EB C001 FILME IMPRESSO CARINHO PLUS /4 30M 0.08833 KG 5 0.08392
10999 PI C2 JUMBO CARINHO NOVO PLUS - NORMALIZ 0.00409 TL 10 0.00368
16474 EB C007 PAPEL MACULATURA PARDA 135 GR/M2 - 0.31053 KG 10 0.27948
16989 EB C008 ADESIVO DISACOLA RB CONC ( DISAMTE 0.00167 KG 5 0.00159
17198 EB C008 ADESIVO NICEDEX AV 0.04403 KG 6 0.04139
17252 EB C004 SACOLA LISA LARGURA 590 X1030 MM- 1,0526 SC 5 1,00000
MOD4010201 MO MOD GASTOS INDIRETOS C.C. 4010201 0.00409 HR 0 0.00409

Grato

rfs, bom dia!

Você que importar somente os itens acima ou tudo o que está no anexo?

Att,

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 29/08/2014 8:20 am
wfranca
(@wfranca)
Posts: 297
Reputable Member
 

Marciel, tente usar esse código abaixo em um botão. Ele importa a partir da ultima linha.

Plan1.Activate
Dim sPath As String, fName As String
  Dim s As String, lInic As Long, ls As Integer
  s = CurDir
'Variavel lInic define a linha da planilha onde os dados serão depositados
'Variavel ls define em qual linha do arquivo .csv irá iniciar a importação
If Cells(Cells.Rows.Count, "A").End(xlUp).Row = 1 Then
lInic = 2
ls = 1
Else
lInic = Cells(Cells.Rows.Count, "A").End(xlUp).Row + 1
ls = 2
End If
  'mudar para onde deseja que o diálogo seja apontado
  'para quando ele é exibido
  sPath = "C:Seu dirtorioSeus arquivos"
  ChDrive sPath

  fName = Application.GetOpenFilename( _
   Filefilter:="txt Files (*.txt),*.txt")
  ChDrive s
  ChDir s
  If LCase(fName) = "false" Then Exit Sub
    With ActiveSheet.QueryTables.Add _
        (Connection:="TEXT;" & fName, _
        Destination:=Range("A" & lInic))
        .Name = Replace(LCase(fName), ".xls", "")
        .TextFileSemicolonDelimiter = True
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1)
        .TextFileTrailingMinusNumbers = True
        .TextFileStartRow = ls
        .Refresh BackgroundQuery:=False
    End With
    
    info
    maiormenor
    
    
    
    
End Sub

Welington Gonçalves

 
Postado : 29/08/2014 9:21 am
Rogério Freitas
(@rfs)
Posts: 63
Estimable Member
Topic starter
 

WFRANCA;MACIEL

Amigos boa noite!

Sou muito grato a todos pelo empenho em me ajudar...
1º pergunta..eu preciso que todo os itens do arquivo seja compactado...
2º sujestão.. eu sou fraquinho em excel..srsr não conseguir...adaptar o código para que execute automático..

se poderem me ajudar...vou ser grato

att
ROGÉRIO

 
Postado : 30/08/2014 6:20 pm
wfranca
(@wfranca)
Posts: 297
Reputable Member
 

Rogério, poste o arquivo compactado pra ver se consigo te ajudar

Welington Gonçalves

 
Postado : 01/09/2014 9:47 am
Rogério Freitas
(@rfs)
Posts: 63
Estimable Member
Topic starter
 

Segue arquivo...se puder me ajudar..agradeço..

 
Postado : 01/09/2014 3:37 pm
wfranca
(@wfranca)
Posts: 297
Reputable Member
 

Rogério,

veja se esse arquivo pode te ajudar... lembrando que o arquivo txt deve estar bem configurado de acordo com cada célula.

Welington Gonçalves

 
Postado : 02/09/2014 10:06 am