Caro colegas.
Gostaria de saber se existe alguma função ou método que busca o nome do arquivo atual.
Tenho uma planilha chamada. Ex: Arquivo1.xls
Gostaria de criar um campo que recebece ("Arquivo1"), ou seja,

x = Nome do arquivo

Desde já agradeço a colaboração de vocês.

Olá Elves,

Pretendo ajuda-lo, mas preciso de mais informações.

Você quer informar o nome do arquivo em um campo de um form qualquer e, ao ativa-lo, ele trará na tela o arquivo solicitado? Ou você quer apenas que ele grave o nome do arquivo atual em um campo de form?

[]s

Rodrigues

Muito Obrigado pela sua atenção Rodrigues!

Eu gostaria que uma variável recebesse o nome do arquivo da qual estou. Sendo que apartir dela poderei me referenciar a uma outra planilha.

Minhas planilhas são criadas a cada dia e dou nomes a elas com o referido dia atual, ou seja, hoje eu criei um arquivo com o nome de ("29-07-02").xls só que cada planilha faz referência a data(arquivo) anterior, pois elas são acumulativas.

A idéia de referência seria a (data ou nome do arquivo) - 1 para referenciar ao arquivo com a data anterior.


Desde já gradeço a sua ajuda.
Elves Maria

PRezado amigo Rodrigues!
Tinha pedido ajuda pro meu amigo ElvesM e ele deu a idéia de postar um tópico pelo fórum. Mas a informação quem é de inteiro interesse seria meu.

Jardel Devogeski Silveira.

ja tentou usar:

Function GetDbPath() As String
Dim MyDb as Database

Set MyDb = CurrentDB()
GetDbPath = MyDb.Name
End Function
??

Elves, não sei se entendi direito mas vc poderia criar uma textbox para referenciar o caminho e o nome do arquivo poderia ser informado manual ou automatica, tipo assim:
vc informa a data de hoje e ele subtrai -1, ou vc coloca direto a função "=Now()-1" eu testei e funcionou direito, na verdade existe várias formas de vc fazer isso.

VC pode fazer o seguinte:

'Abre os arquivos
caminho = TextBox1.Value
arquivo = TextBox4.Value
a = caminho + "\" + arquivo
Workbooks.Open FileName:=a

ou
'Abre os arquivos
dim periodo as string
dim dia as date
date=now()-1
periodo=date
caminho = TextBox1.Value
arquivo = periodo
a = caminho + "\" + arquivo
Workbooks.Open FileName:=a

Seria isso?!

Espero que ajude

Elves,
Respondendo à sua dúvida inicial: para retornar o nome da pasta atual, use:

X = ActiveWorkbook.Name
ou ainda
X = ActiveWorkbook.FullName

A primeira forma retorna apenas o nome do arquivo (ex.: "Arquivo1.xls") e a segunda retorna também o caminho (ex.: "C:\Meus Documentos\Arquivo1.xls").

Elves, Veja se posso te ajudar.

Public Function F02_ObtemCaminhoDB() As String

Dim dbs As Database
Dim ls_caminho As String
Dim li_tamanho As Integer

Set dbs = CurrentDb()

' obtem o tamanho do nome do arquivo do .mdb (xxx.mdb)
li_tamanho = Len(Dir(dbs.Name, vbDirectory))

' retorna as posições mais a esquerda do nome do database
ls_caminho = Left(dbs.Name, (Len(dbs.Name) - li_tamanho))

' retorna o nome do caminho
F02_ObtemCaminhoDB = ls_caminho

End Function


Att,
Fábio de Farias