 No Microsoft Excel xxxx, se você clicar para selecionar o arquivo usado recentemente lista caixa de seleção (no geral guia de Opções caixa de diálogo na Ferramentas menu), os arquivos que você usou mais recentemente estão listados no arquivo menu. Este artigo contém uma macro de exemplo que você pode usar para abrir programaticamente o arquivo que você utilizou por último.
Voltar ao topo MAIS INFORMAÇÕES
Microsoft fornece exemplos de programação somente para ilustração, sem garantia expressa ou implícita, incluindo mas não limitado a, garantias implícitas de comercialização e / ou adequação a um propósito particular. Este artigo presume que você esteja familiarizado com a linguagem de programação que está sendo demonstrada e as ferramentas utilizadas para criar e depurar procedimentos. Os profissionais de suporte da Microsoft podem ajudar a explicar a funcionalidade de um procedimento específico, mas eles não serão modificarão esses exemplos para fornecer funcionalidades adicionais ou construir procedimentos para atender às suas necessidades específicas.
Se você possui muita experiência de programação, poderá contactar um Microsoft Certified Partner ou o Microsoft Advisory Services. Para obter mais informações, visite estes sites da Microsoft:
Microsoft Certified Partners - https: / / partner.microsoft.com/global/30000104
(Https: / / partner.microsoft.com/global/30000104)
Microsoft Advisory Services - http://support.microsoft.com/gp/advisoryservice(Http://support.microsoft.com/gp/advisoryservice)
Para mais informações sobre as opções de suporte estão disponíveis e sobre como contactar a Microsoft, visite o seguinte site da Microsoft: http://support.microsoft.com/default.aspx?scid=fh; EN-US; cntactms(Http://support.microsoft.com/default.aspx?scid=fh; en-us; cntactms)
Voltar ao topo
Exemplo de macro
Sub vba_mostra_arquivos_recentes()
On Error Resume Next
Dim S As String
[A1].Select
For x = 1 To 3
'A variável S refere-se ao path e arquvios recentemente usados
S = Application.RecentFiles(x).Name
' S = Application.RecentFiles(1).Name ' abre o primeiro arquivo
ActiveCell.Value = S
ActiveCell.Offset(1, 0).Select
'Workbooks.Open S 'abre os arquivos
Next x
End Sub
Sub limpar()
[A1:A100].Value = ""
End Sub
Usando a macro de exemplo
NOTA : Se você não clique para seleccionar a lista de arquivos usados recentemente caixa de seleção, e você executar uma macro que usa o RecentFiles propriedade do aplicativo de objeto, você recebe a seguinte mensagem de erro:
Run-time error '9 ':Na Inserção menu, clique em Módulo .
- Digite o código de macro de exemplo no módulo.
- Pressione ALT + Q para regressar ao Excel.
- Em Ferramentas , aponte para Macro e clique em Macros . Clique Open_Last_Used_File e clique em Executar para executar a macro.
Quando você executa a macro, ele abre o primeiro arquivo na lista de arquivos usados recentemente.
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA - com Saberexcel
 |