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 | 
 

 Janela Salvar como

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



Mensagens : 4
Data de inscrição : 12/08/2014
Idade : 40
Localização : São Paulo

MensagemAssunto: Janela Salvar como   Ter Ago 12, 2014 4:05 am

Boa noite!!!

Estou com um problema em um VBA que estou fazendo para a empresa em que trabalho, preciso de uma sub que abra a janela salvar como em um diretório especifico, abra pois o usuário que terá que colocar no nome do arquivo a ser salvo.

Encontrei está sub na net, ela abre a janela mas não encontra o diretório que solicito.

Sub Salvar_como()

Application.Dialogs(xlDialogSaveAs).Show ("c:\temp")


End Sub

Ps. achei uma coisa interessante aqui no Excel do meu Not está Sub não funciona e lá na do Trabalho ela funciona abre a tela Salvar como e a versão é a mesma 2010 Smile Smile
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: Janela Salvar como   Qui Ago 14, 2014 2:54 pm

Bom dia!!

Leia:
http://support.microsoft.com/kb/139723


Att
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Aesilva



Mensagens : 4
Data de inscrição : 12/08/2014
Idade : 40
Localização : São Paulo

MensagemAssunto: Re: Janela Salvar como   Sab Ago 23, 2014 3:51 pm

Alexandre, bom dia!!! e desculpa a demora...

Bom eu já estou utilizando este comando ele até abre a janela, mas não vai para o diretório que eu preciso.

Anderson
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: Janela Salvar como   Sab Ago 23, 2014 4:43 pm

Bom dia!!!

Cara tenta isso....
Código:
Sub AleVBA_857()
    Dim fs As FileSearch, ws As Worksheet, i As Long
    Dim loc As Long, fdt As Double
    Set fs = Application.FileSearch
    With fs
        .SearchSubFolders = False 'Mude para True caso inclua sub diretótio
        .FileType = msoFileTypeExcelWorkbooks
        .LookIn = "C:\Users\Administrador\Downloads\MuArquivo" 'Modifique para o caminho que desejar
        If .Execute > 0 And .FoundFiles.Count > 0 Then
            loc = 0
            For i = 1 To .FoundFiles.Count
                If FileDateTime(.FoundFiles(i)) > fdt Then loc = i
            Next i
            Workbooks.Open .FoundFiles(loc)
        Else
            MsgBox "Arquivos não encontrados"
        End If
    End With
End Sub

At
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Aesilva



Mensagens : 4
Data de inscrição : 12/08/2014
Idade : 40
Localização : São Paulo

MensagemAssunto: Re: Janela Salvar como   Sab Ago 23, 2014 5:15 pm

Bom ele está parando na cláusula set diz que "O objeto não aceita esta ação "


Att
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Aesilva



Mensagens : 4
Data de inscrição : 12/08/2014
Idade : 40
Localização : São Paulo

MensagemAssunto: Re: Janela Salvar como   Sab Ago 23, 2014 5:18 pm

Há o método filesearch não aparece na lista de propriedades e métodos .
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Conteúdo patrocinado




MensagemAssunto: Re: Janela Salvar como   Hoje à(s) 10:15 pm

Voltar ao Topo Ir em baixo
 
Janela Salvar como
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» [dúvida]Carregar e Salvar Arquivo
» Colocar imagem de fundo na caixa de edição de mensagem
» Caixa de dialogo (Abrir arquivo ou Salvar como...)
» [Resolvido]Salvar sprite como gif animado durante o jogo
» Como Troca ícone do Jogo e Salvar o Jogo em EXE que de para Rodar

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: