[Resolvido]Abrir várias planilhas pelo vba Access

Boa Tarde Amigos

Como faço para abrir várias planilhas de um determinado diretório através de um botão no form utilizando o vba?
gostaria que essa função acionasse as planilhas independente de seu nome, considerando apenas o diretório a onde estão localizados.

tem como????

Se não me engano, certa vez fiz um exemplo disso para uma dúvida aqui do fórum. Dê uma pesquisada. Caso não encontre, procure um exemplo meu no repositório chamado "Explorer quase completo". Ele tem funções que podem ser usadas para o seu caso.

Se é só para abrir todos os ficheiros Excel numa Pasta, aqui fica:

Function AbreFicheiros()
'By JPaulo ® Maximo Access 2010
'Requer as seguintes referências VBA ativas:
'Microsoft Scripting Runtime
'Microsoft Excel XX.0 Object Library
Dim Filefso As New FileSystemObject
Dim strPasta As Folder
Dim strFicheiros As String
Dim strNomeFicheiros As File
Dim strApp As New Excel.Application
Dim strLivro As Excel.Workbook
Set strPasta = Filefso.GetFolder("C:\SuaPasta\") 'caminho completo dos ficheiros
strApp.Visible = True
For Each strNomeFicheiros In strPasta.Files
    strFicheiros = Right(strNomeFicheiros.Name, 4)
    If strFicheiros = ".xls" Then
        Set strLivro = strApp.Workbooks.Open(strNomeFicheiros)
    End If
Next strNomeFicheiros
Set strApp = Nothing
End Function

JPaulo

Fiz seu procedimento. Ele até executa as planilhas, porem ele não mantem aberta.
Executa em poucos segundos e fecha....

estranho né.....

Qual a versão do seu Office ?

Fecha ou minimiza ?

Bom dia JPaulo

A versão é o office 2010
E já fiz todas as referencias conforme orientação no código.

Ele simplesmente fecha. Abri o gerenciador de tarefas para verificar se não fica o excel.exe acionado, mas não.
Considere que ele fecha os arquivo após segundo de sua execução.

at.

E você alterou a extensão do Excel no código ?

De:
If strFicheiros = ".xls" Then

Para:

If strFicheiros = ".xlsx" Then

sim.....

Faça o teste assim;

Function AbreFicheiros()
'By JPaulo ® Maximo Access 2010
'Requer as seguintes referências VBA ativas:
'Microsoft Scripting Runtime
'Microsoft Excel XX.0 Object Library
Dim Filefso As New FileSystemObject
Dim strPasta As Folder
Dim strFicheiros As String
Dim strNomeFicheiros As File
Dim strApp As New Excel.Application
Dim strLivro As Excel.Workbook
Set strPasta = Filefso.GetFolder("C:\SuaPasta\") 'caminho completo dos ficheiros
strApp.Visible = True
For Each strNomeFicheiros In strPasta.Files
    strFicheiros = Right(strNomeFicheiros.Name, 4)
    If strFicheiros = ".xlsx" Then
        Set strLivro = strApp.Workbooks.Open(strNomeFicheiros)
        strApp.WindowState = xlMaximized
        strApp.ActiveWindow.WindowState = xlMaximized
    End If
Next strNomeFicheiros
Set strApp = Nothing
End Function

mantem o mesmo problema......

Vamos fazer-lhe um tratamento de erro, para ver se acusa;

Function AbreFicheiros()
'By JPaulo ® Maximo Access 2010
'Requer as seguintes referências VBA ativas:
'Microsoft Scripting Runtime
'Microsoft Excel XX.0 Object Library
Dim Filefso As New FileSystemObject
Dim strPasta As Folder
Dim strFicheiros As String
Dim strNomeFicheiros As File
Dim strApp As New Excel.Application
Dim strLivro As Excel.Workbook
Set strPasta = Filefso.GetFolder("C:\SuaPasta\") 'caminho completo dos ficheiros

For Each strNomeFicheiros In strPasta.Files
    strFicheiros = Right(strNomeFicheiros.Name, 4)
    If strFicheiros <> ".xlsx" Then
                    MsgBox "Caminho ou Ficheiros não encontrados....", vbCritical
                    Exit Function
                    Else
    If strFicheiros = ".xlsx" Then
        Set strLivro = strApp.Workbooks.Open(strNomeFicheiros)
        strApp.Visible = True
        strApp.WindowState = xlMaximized
        strApp.ActiveWindow.WindowState = xlMaximized
    End If
End If
Next strNomeFicheiros

Set strApp = Nothing
End Function

é muito estranho
Apresentou o erro.

Conferi o diretório e a extensão do arquivo e está de acordo....
mas apresentou seu erro conforme tratamento 

não consigo entender.....

Fiz um teste em outro banco . Criei um novo e referenciei novamente.
Verificar se não existia algum conflito com meu projeto.

mas apresenta o mesmo problema......
Diretório conferido
extensão conferida e nada......

at.

Faça um Break na primeira linha do código, corra a função e acompanhe para ver se encontra o erro.

Aproveite e cole aqui o código com toda a alteração que fez.

a principio nada encontrado....
meu conhecimento intermediário em vba não encontrou o erro no código.....preciso de ajuda....

Eu pedi para você colar aqui o código com toda a alteração que fez, pode ser ?

Desculpe o mau entendido......
segue....

Function AbreFicheiros()
'By JPaulo ® Maximo Access 2010
'Requer as seguintes referências VBA ativas:
'Microsoft Scripting Runtime
'Microsoft Excel XX.0 Object Library
Dim Filefso As New FileSystemObject
Dim strPasta As Folder
Dim strFicheiros As String
Dim strNomeFicheiros As File
Dim strApp As New Excel.Application
Dim strLivro As Excel.Workbook
Set strPasta = Filefso.GetFolder("C:\Planilhas\") 'caminho completo dos ficheiros

For Each strNomeFicheiros In strPasta.Files
    strFicheiros = right(strNomeFicheiros.Name, 4)
    If strFicheiros <> ".xlsx" Then
                    MsgBox "Caminho ou Ficheiros não encontrados....", vbCritical
                    Exit Function
                    Else
    If strFicheiros = ".xlsx" Then
        Set strLivro = strApp.Workbooks.Open(strNomeFicheiros)
        strApp.visible = True
        strApp.WindowState = xlMaximized
        strApp.ActiveWindow.WindowState = xlMaximized
    End If
End If
Next strNomeFicheiros

Set strApp = Nothing
End Function

Aqui está a funfar beleza;

Esperamos alguém com o 2010 em mão, para testar.

sem sucesso. Não consigo entender do porque não da certo em minha maquina......

Resolvi o Problema.....

dado como resolvido.....Obrigado JPaulo