Net11
Mensagens : 1
Data de inscrição : 10/10/2011
 | | Assunto: Importar Arquivo Texto com VBA Seg Out 10, 2011 10:03 pm | |
| Olá, boa tarde!
Eu tenho uma planilha onde eu estava usando o comando:
.Add(Connect='TEXT';\\ caminho
Eu coloco o caminho do arquivo, porém o nome do meu arquivo muda a cada mês.
Vocês sabem de alguma forma que eu possa ignorar alguns caracteres do meu arquivo.
Ex:Nome do arquivo: brjk25g.ghd.batchinputghd_20110710100101.txt
20110710100101 esta é a parte variavel,portanto queria que ele ignorasse e importasse o arquivo que fosse encontrado.
Grata,
Net11 | |
|
alexandrevba
Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES
| | Assunto: Re: Importar Arquivo Texto com VBA Ter Out 11, 2011 12:52 am | |
| Boa noite!!! Teria como fornecer mais informação..qual é o código...mande ele por inteiro. Porque não o nomeia por parte.. Ex:..Favor usar o código abaixo, somente como analise... - Código:
-
Sub FiltroNewWkB()
Dim wsOrigem As Worksheet, fNome As String, sPath As String
Set wsOrigem = Sheets("Dados")
'Obtem o nome na celula "B2" em dados
fNome = wsOrigem.Cells(2, 2).Value
'Indica o local onde será salvo o novo arquivo
sPath = "c:\Temp\"
'Cria uma nova Pasta
Set wkb = Workbooks.Add
'
With wkb
'Aqui nomeia a primeira planilha
.ActiveSheet.Name = fNome
'Aqui salva e nomeia o arquivo (sem os dados ainda)
.SaveAs Filename:=sPath & fNome
End With
'Aplica o Filtro Avançado e Copia para a ABA "filtrados"
'do novo WB
'O CRITERIO ESTÁ NESTE ENDEREÇO : wsOrigem.Range("D1:D2")
wsOrigem.Range("Database") _
.AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=wsOrigem.Range("D1:D2"), _
CopyToRange:=ActiveSheet.Range("A1"), Unique:=False
Range("A1").Activate
'Ajusta a largura das colunas
ActiveSheet.Columns("A:R").AutoFit
End Sub
Att... | |
|
