IMPORTAR ARQUIVOS TXT

WTAVARES 24/05/2013 10:49:47
#423973
oi
ja começo pedindo desculpa se ja existe algo relacionado com o q vou solicitar, pois sou novo aqui.

seguinte:
preciso abrir uma pasta que o sistema gera onde o nome dela refere ao ddmmaaaa (ex: c:\pasta\ddmmaaaa\)
para copiar os arquivos txt que estão la dentro.
preciso fazer isto via vba. e precisa ser dinamico sempre o nome da pasta é a data do dia.

agradeço desde ja
PAYDANA 24/05/2013 16:39:38
#423997
[Ô]c:\pasta\[Ô] & Format(Now, [Ô]ddmmyyyy[Ô])


Pra testar faça isso:

Private Sub Command1_Click()
MsgBox Format(Now, [Ô]ddmmyyyy[Ô])
End Sub
WTAVARES 24/05/2013 18:42:04
#424004
paydana,
fiz o teste e apresenta msg de erro numero de argumentos incorretos ou atribuição de propriedade invalida.
lembrando que estou a fazer isto pelo excel no modulo vba. tem alguma interferencia? não sei pois não entendo bem de programaçaõ vba etc e tal no excel..rsrs
FILMAN 24/05/2013 20:17:01
#424007
Boa noite

posta o código que esta utilizando para abrir os arquivos

PAYDANA 25/05/2013 01:47:02
#424014
Resposta escolhida
ae ja não faço ideia
WTAVARES 25/05/2013 12:15:18
#424019
segue o codigo:
Sub Abrir()
Dim Pasta As String
Dim Arquivo As String
Dim Linha As String
Dim i As Long
Pasta = [Ô]C:\TESTE\[Ô] & Format(strNome, [Ô]ddmmyyyy[Ô]) & [Ô]\[Ô]
Arquivo = Dir(Pasta & [Ô]0061262.*[Ô])
i = 2
Do
Open Pasta & Arquivo For Input As #1
While Not (EOF(1))
Line Input #1, Linha
Cells(i, [Ô]A[Ô]).Value = Mid(Linha, 1, 3)
Cells(i, [Ô]B[Ô]).Value = Mid(Linha, 4, 25)
Cells(i, [Ô]C[Ô]).Value = Mid(Linha, 29, 13)
Cells(i, [Ô]D[Ô]).Value = Arquivo
i = i + 1
Wend
Close
Arquivo = Dir
Loop While Arquivo <> [Ô][Ô]
End Sub
WTAVARES 25/05/2013 12:27:26
#424020
Pessoal, abri um novo documento e colei o mesmo codigo e funcionou, alguem tem alguma ideia sobre o que pode esta ocorrendo neste meu arquivo, mudou alguma configuracao do projeto etc e tal!!
FILMAN 03/06/2013 22:50:04
#424359
Se o Problema foi resolvido, favor encerrar o tópico, mas caso não tenha sido resolvido
mostre-nos como esta o processo para que possamos lhe ajudar

Obrigado
WTAVARES 04/06/2013 00:44:22
#424362
bom pessoal, desculpem pela demora no retorno,
como não obtive resposta sobre o problema, acabei editando novo arquivo e o codigo q postei funcionou.
bem, acho q só Bill para explicar...
assim, agradeço a todos que postaram e me ajudaram com a encontrar o fio da meada para esta solução..
Tópico encerrado , respostas não são mais permitidas