Fórum Excel Bácico, Avançado e Vba

Este fórum é destina a usuário de Excel, que queiram compartilhar informações a básicas, avançadas e programação em VBA...
 
InícioInício  FAQFAQ  BuscarBuscar  MembrosMembros  GruposGrupos  Registrar-seRegistrar-se  Login  

Compartilhe | 
 

 Abrir planilhas automáticamente

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
jsilva4



Mensagens : 2
Data de inscrição : 18/10/2011

MensagemAssunto: Abrir planilhas automáticamente   Qui Jan 05, 2012 7:53 pm

Pessoal,

Preciso programar em uma planilha a abertura de outraS atomaticamente. Exemplo, quando abrir a planilha INVETÁRIO, preciso que abra automaticamente as palnilhas LOCAL_4 e LOCAL_100

Obrigado!
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Abrir planilhas automáticamente   Sex Jan 06, 2012 12:02 am

Boa noite!!!


Veja isso...

Código:
Sub AbrirVariosArquivosDiretorio()


Dim i As Integer
    With Application.FileSearch

        .LookIn = "C:\Seu diretorio deve ficar aqui"

        .FileType = msoFileTypeExcelWorkbooks

            If .Execute > 0 Then 'Arquivos existentes

                For i = 1 To .FoundFiles.Count

                    Workbooks.Open (.FoundFiles(i))

                Next i

            Else 'Não existe arquivo algum

                MsgBox "Não foi encontrado nenhum arquivo"

            End If

    End With

End Sub
Voltar ao Topo Ir em baixo
Ver perfil do usuário
 
Abrir planilhas automáticamente
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» Ícones nos membros automáticamente
» Como fazer auto conexão no chatbox?
» Abrir o navegador em uma página da internet
» Selecionador automático de sub-imagem
» [Resolvido] Abrir arquivos e automaticamente executar função nele

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: