Ir ao conteúdo
  • Cadastre-se
Entre para seguir isso  
Rob_Gianotto

Visual Basic Abrir diferentes WorkBooks com o mesmo nome em loop

Recommended Posts

Olà, 

Por gentileza alguem sabe como consigo abrir em loop varios workbooks que contem na chave os mesmos nomes?

Por exemplo eu conheço duas variaveis do nome,
var1 = (traceability_00-04-A3-D2-9E-83) este é o nome da maquina.
var2= (2018-02-28) este é a data.

Problema:
- O nome até a data (traceability_00-04-A3-D2-9E-83_2018-02-28) é sempre o mesmo. O final nao é conhecido porque é un registro que faz a maquina a cada ciclo de operaçao e registra o horario naquele momento, 
- A minha macro funziona mas abre apenas o ultimo arquivo salvo e nao sei como chamar os outros com o mesmo nome!!!

Nomes workbooks dentro do percorso:
traceability_00-04-A3-D2-9E-83_2018-02-28T11-53-07-070.data
traceability_00-04-A3-D2-9E-83_2018-02-28T11-54-36-458.data
traceability_00-04-A3-D2-9E-83_2018-02-28T11-55-32-271.data
ecc.

Sub Controle_maquina()
Dim strPath: strPath = "Z:\PRODUZIONE\Ufficio Programmazione\reports\"
Dim sFile
sFile = Dir(strPath & "*traceability_00-04-A3-D2-9E-83_2018-02-28*.data*")

If sFile <> "" Then
Workbooks.Open Filename:=strPath & sFile
Else: MsgBox "Arquivo não encontrado !"
End If
End Sub



Obrigado
Gianotto

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora
Entre para seguir isso  





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×