Macro para abrir planilha

[Clonner]

Estava querendo uma macro que abrisse o arquivo cujo nome esta na celula A1.

Caso o arquivo não existisse ele abriria uma janela (um formulario) perguntando se desejamos abrir um arquivo chamado modelo.xls.

Os arquivos estarão todos no mesmo diretório.

Esta é a macro que estou fazendo até agora:

Sub Abrir_historico()

Dim FN As String

'Define o valor de FN como sendo a Celula C6

FN = Range("C6")

'Define diretório da planilha como aberto

ChDir ThisWorkbook.Path

'Abre a planilha do excel cujo o nome é igual a FN

Workbooks.Open Filename:=FN

End Sub

[zinhovba]

Boa noite!!!

Aqui vai encontrar o que precisa...

http://www.tomasvasquez.com.br/blog/microsoft-office/vba-listar-arquivos-de-um-diretorio

Att..

[Clonner]

Ola Zinhovba, demorei pra responder né!

peguei o código do site e não funcionou fiz a referência que ele solicita e nada feito!

Será que pode ser algum problema no meu office uso 2003.

O que achas?

Segue o código:

Public Function ListaArquivos(ByVal Caminho As String) As String()

'Atenção: Faça referência à biblioteca Microsoft Scripting Runtime

Dim FSO As New FileSystemObject

Dim result() As String

Dim Pasta As Folder

Dim Arquivo As File

Dim Indice As Long

ReDim result(0) As String

If FSO.FolderExists(Caminho) Then

Set Pasta = FSO.GetFolder(Caminho)

For Each Arquivo In Pasta.Files

Indice = IIf(result(0) = "", 0, Indice + 1)

ReDim Preserve result(Indice) As String

result(Indice) = Arquivo.Name

Next

End If

ListaArquivos = result

ErrHandler:

Set FSO = Nothing

Set Pasta = Nothing

Set Arquivo = Nothing

End Function

Sub ListaArquivos()

Dim arquivos() As String

Dim lCtr As Long

arquivos = ListaArquivos("C:\temp")

For lCtr = 0 To UBound(arquivos)

Debug.Print arquivos(lCtr)

Next

End Sub

[zinhovba]

Boa noite!!!

Consegue adaptar esse exemplo?

Sub ApontarArquivo()
ChDir "C:\Arquivos de programas\Autodesk\Autodesk DWF Viewer\"
FiletoOpen = Application _
.GetOpenFilename("Excel (*.xls), *.xls", , "Selecione a planilha")
End Sub

Att....

[Clonner]

Ola ZinhoVba,

Não serve pois ele abre um local para esolher o arquivo.

Eu gostaria de digitar em uma celula o nome do arquivo por exelmplo 001, assim automaticamente abriria o arquivo 001, caso não existisse ele abriria um formulario para a escolha do modelo, podem ser 3 modelos diferente.

No código que fiz:

Sub Abrir_historico()

Dim FN As String

'Define o valor de FN como sendo a Celula C6

FN = Range("C6")

'Define diretório da planilha como aberto

ChDir ThisWorkbook.Path

'Abre a planilha do excel cujo o nome é igual a FN

Workbooks.Open Filename:=FN

End Sub

Quando o valor de FN existe fica tudo certo ele abre certinho, quando o FN não existe ai dá um erro e não estou conseguindo sair dele.

[zinhovba]

Boa tarde!!!

Use um tratamento de erro..também deverá cria uma condição ...

Exemplo...

On Error GoTo Erro
'Sua rotina

Exit Sub
Erro:
Texto = "Não foi localizado um valor correspondente"
Msg = MsgBox(Texto, vbOKOnly + vbInformation)

[Clonner]

Obrigado ZinhoVba,

Ainda sou novo em VBA e estou nos caminhos das pedras.

Essa função Goto Erro funcionou perfeitamente.

Segue como ficou o meu código:

Sub Abrir_historico()

On Error GoTo Erro

Dim FN As String

'Define o valor de FN como sendo a Celula C6

FN = Range("C6")

'Define diretório da planilha como aberto

ChDir ThisWorkbook.Path

'Abre a planilha do excel cujo o nome é igual a FN

Workbooks.Open Filename:=FN

Exit Sub

Erro:

UserForm1.Show

End Sub

O userForm1 é o meu formulario para cadastro baseado em uma planilha modelo.

Moderador pode marcar como resolvido!

[Douglas]

Caso o autor do tópico necessite, o mesmo será reaberto, para isso deverá entrar em contato com a moderação solicitando o desbloqueio.