Fórum Excel Bácico, Avançado e Vba

Este fórum é destina a usuário de Excel, que queiram compartilhar informações a básicas, avançadas e programação em VBA...
 
InícioInício  FAQFAQ  BuscarBuscar  MembrosMembros  GruposGrupos  Registrar-seRegistrar-se  Login  

Compartilhe | 
 

 Importar Arquivo Texto com VBA

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
Net11



Mensagens : 1
Data de inscrição : 10/10/2011

MensagemAssunto: 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
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: 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...
Voltar ao Topo Ir em baixo
Ver perfil do usuário
 
Importar Arquivo Texto com VBA
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» [Resolvido]Importar arquivo em formato XML para o Access
» Como importar arquivo de vídeo para o Game Maker
» [Resolvido]Importação de dados de um arquivo texto
» Como criar um arquivo de texto que armazena um numero??
» [Dúvida] Como importar strings de um arquivo .txt

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: