Fórum Excel Bácico, Avançado e Vba
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.
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  Últimas imagensÚltimas imagens  ProcurarProcurar  RegistarRegistar  Entrar  

 

 Abrir planilhas automáticamente

Ir para baixo 
2 participantes
AutorMensagem
jsilva4




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

Abrir planilhas automáticamente Empty
MensagemAssunto: Abrir planilhas automáticamente   Abrir planilhas automáticamente EmptyQui 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!
Ir para o topo Ir para baixo
alexandrevba

alexandrevba


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

Abrir planilhas automáticamente Empty
MensagemAssunto: Re: Abrir planilhas automáticamente   Abrir planilhas automáticamente EmptySex 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
Ir para o topo Ir para baixo
 
Abrir planilhas automáticamente
Ir para o topo 
Página 1 de 1
 Tópicos semelhantes
-
» Executar automaticamente o VBA assim que abrir o arquivo excel xml
» Inserir linha e fórmula automaticamente
» Abrir Application.VBE com Clique.
» multiplicar TextBox Combobox e soma final automaticamente VBA
» RESOLVIDO: Executar função automaticamente a cada inserção de dados

Permissões neste sub-fórumNão podes responder a tópicos
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: