IMPORTAR ARQUIVOS TXT
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
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
[Ô]c:\pasta\[Ô] & Format(Now, [Ô]ddmmyyyy[Ô])
Pra testar faça isso:
Private Sub Command1_Click()
MsgBox Format(Now, [Ô]ddmmyyyy[Ô])
End Sub
Pra testar faça isso:
Private Sub Command1_Click()
MsgBox Format(Now, [Ô]ddmmyyyy[Ô])
End Sub
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
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
Boa noite
posta o código que esta utilizando para abrir os arquivos
posta o código que esta utilizando para abrir os arquivos
ae ja não faço ideia
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
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
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!!
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
mostre-nos como esta o processo para que possamos lhe ajudar
Obrigado
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..
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