Notifications
Clear all

vba tentando abrir um arquivo na mesma pasta

9 Posts
3 Usuários
0 Reactions
1,541 Visualizações
(@fabio-rs)
Posts: 0
New Member
Topic starter
 

Boa tarde
estou desenvolvendo um macro a partir de apostilas que estou lendo e copiei uma e não está dando certo
o autor não me respondeu o questionamento, será que alguém pode me auxiliar???????????
segue a macro -
Dim varNomeArquivo As String

varNomeArquivo = Sheets("Rela").Range("C8").Value
Workbooks.Open varFileName

a mesma é para abrir um arquivo , e os arquivos estão na mesma pasta, o que estou fazendo errado????????

 
Postado : 24/03/2017 11:10 am
(@syrax)
Posts: 0
New Member
 

o que contém na variável "varFileName"?

se o nome do arquivo está em:

Sheets("Rela").Range("C8").Value

voce precisa usar

Workbooks.Open varNomeArquivo

Lembrando que você precisa especificar o caminho correto do arquivo, não somente o nome

 
Postado : 24/03/2017 11:14 am
(@fabio-rs)
Posts: 0
New Member
Topic starter
 

O nome do arquivo que procuro estara escrito na celula 8 da planilha rela este código copiei da apostila do Bertolo, a qual estou me baseando para aprender mais,
e na pagina 124 ele mostra este código mas estou tentando copiar o mesmo e não está dando certo,
tem outro codigo que ele sugere
'Workbooks.Open Sheets("Rela").Range("C8").value
ele comenta na apostila que é uma maneira de vc abrir arquivos através deste comando.
os arquivos que fiz estão na mesma pasta e não está dando certo, mas segundo a apostila é para funcionar, e daí o que estou fazendo de errado???????

a pasta contem vários arquivos e o que eu gostaria de fazer é abrir o que etá igual ao que eu digitar na celula 8

 
Postado : 24/03/2017 11:20 am
(@syrax)
Posts: 0
New Member
 

Você ao menos testou o código que eu postei?

Sub abrir()
Dim i As String
i = ThisWorkbook.Sheets("Rela").Range("C8").Value
Workbooks.Open i
End Sub

Lembrando que você precisa especificar o caminho do arquivo corretamente

 
Postado : 24/03/2017 11:37 am
(@fabio-rs)
Posts: 0
New Member
Topic starter
 

O de cima sim
vou testar este que vc está mandando agora e ja te respondo

 
Postado : 24/03/2017 11:40 am
(@fabio-rs)
Posts: 0
New Member
Topic starter
 

Syrax
anexei o arquivo que estou desenvolvendo, a intenção é que o valor que estiver na célula 8 seja pesquisado em arquivos que ficam armazenados na mesma pasta que este etá.
os macros que utilizei estão salvos nele.
obrigado desde já pela atenção e desculpe ser tão chato,

 
Postado : 24/03/2017 11:45 am
(@fabio-rs)
Posts: 0
New Member
Topic starter
 

Se puderes dar uma olhada na pasta zipada que segue
é onde estou tentando fazer tudo

 
Postado : 24/03/2017 11:55 am
(@syrax)
Posts: 0
New Member
 

Fábio, poderia ter especificado isso antes ou ter enviado o arquivo antes...

Veja se isso te ajuda

Sub abrir()
Dim i As String
i = Application.ActiveWorkbook.Path & "" & ThisWorkbook.Sheets("Rela").Range("C8").Value & ".xlsx"
If Dir(i) <> "" Then
Workbooks.Open i
Else
MsgBox "O arquivo não existe no local especificado"
End If
End Sub

se todos os arquivos forem *.xlsx o código vai funcionar, pois como eu disse, você precisa especificar o caminho corretamente, o que inclui a extensão do mesmo
digite o nome do arquivo sem a extensão e tente abrir, a macro vai procurar o arquivo dentro da mesma pasta onde está a sua planilha

Se isso te ajudou, clique no "joinha" ao lado de citar

 
Postado : 24/03/2017 12:05 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

O endereço completo deve estar na célula... não só o nome do arquivo...

 
Postado : 24/03/2017 12:10 pm