Ir ao conteúdo
  • Comunicados

    • Gabriel Torres

      Seja um moderador do Clube do Hardware!   12-02-2016

      Prezados membros do Clube do Hardware, Está aberto o processo de seleção de novos moderadores para diversos setores ou áreas do Clube do Hardware. Os requisitos são:   Pelo menos 500 posts e um ano de cadastro; Boa frequência de participação; Ser respeitoso, cordial e educado com os demais membros; Ter bom nível de português; Ter razoável conhecimento da área em que pretende atuar; Saber trabalhar em equipe (com os moderadores, coordenadores e administradores).   Os interessados deverão enviar uma mensagem privada para o usuário @Equipe Clube do Hardware com o título "Candidato a moderador". A mensagem deverá conter respostas às perguntas abaixo:   Qual o seu nome completo? Qual sua data de nascimento? Qual sua formação/profissão? Já atuou como moderador em algo outro fórum, se sim, qual? De forma sucinta, explique o porquê de querer ser moderador do fórum e conte-nos um pouco sobre você.   OBS: Não se trata de função remunerada. Todos que fazem parte do staff são voluntários.
    • DiF

      Poste seus códigos corretamente!   21-05-2016

      Prezados membros do Fórum do Clube do Hardware, O Fórum oferece um recurso chamado CODE, onde o ícone no painel do editor é  <>     O uso deste recurso é  imprescindível para uma melhor leitura, manter a organização, diferenciar de texto comum e principalmente evitar que os compiladores e IDEs acusem erro ao colar um código copiado daqui. Portanto convido-lhes para ler as instruções de como usar este recurso CODE neste tópico:  
jordan_jd

Criar pasta, move o arquivo e Abrir em VBA

Recommended Posts

Boa tarde galera

 

Estou tendo um problema com o código abaixo, primeiro ele copia um arquivo base "meu", renomeia com o numero que esta na célula e depois ele abrir.

 

Agora eu quero mover o arquivo renomeado e abri-lo em seguida mas não estou conseguindo alguém pode me ajudar.

 

Sub Copy_Abrir()
FileCopy "D:\Users\Jordan\Desktop\WEb\Teste\teste.xlsx", "D:\Users\Jordan\Desktop\WEb\Teste\teste 1.xlsx"

    Dim caminlho As String
    Dim pasta As Object, Nomepasta

Application.ScreenUpdating = False
    
'Seleciona a última linha preenchida da planilha
 Linha = Sheets("Orcamento").Cells(Rows.Count, "A").End(xlUp)
 Cliente = Sheets("Orcamento").Cells(Rows.Count, "B").End(xlUp)
 Obra = Sheets("Orcamento").Cells(Rows.Count, "C").End(xlUp)

    'Cria pasta com o numero do orçamento que esta na ultima linha escrita da coluna A
    Set pasta = CreateObject("Scripting.FileSystemObject")
    Nomepasta = ActiveWorkbook.Path & "\" & Linha
    
     If Not pasta.FolderExists(Nomepasta) Then
    pasta.CreateFolder (Nomepasta)
    End If
    
        'Nome na Planilha Ativa em A2
        nomeA2 = CStr(Linha & " - " & Cliente & " - " & Obra)
        
        On Error Resume Next

        'Define os Novos Nomes - Planilha(Arquivo)
        novoNome = nomeA2

        'Enibe a mensagem se a pasta já existir
        'Com essa instrução a Pasta será substiutida sem questionamento
        Application.DisplayAlerts = False
 
    'Como renomear arquivos (exemplo):
    Name "D:\Users\Jordan\Desktop\WEb\Teste\teste 1.xlsx" As "D:\Users\Jordan\Desktop\WEb\Teste\" & novoNome & ".xlsx"

'AQUI SERA PARA MOVER PARA A PASTA CRIADA
Name "D:\Users\Jordan\Desktop\WEb\Teste" & "\" & novoNome & ".xlsx" As "D:\Users\Jordan\Desktop\WEb\Teste" & "\" & Nomepasta & novoNome & ".xlsx"

'AQUI ABRIR O ARQUIVO MOVIDO
    Workbooks.Open ("D:\Users\Jordan\Desktop\WEb\Teste" & "\" & Nomepasta & novoNome & ".xlsx")

End Sub

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

Nao é mais fácil salvar como o arquivo no novo local, novo nome e mante-lo aberto?

 

A base do codigo da pra fazer ate com o gravador de macros.

Compartilhar este post


Link para o post
Compartilhar em outros sites
  • Autor do tópico
  • Boa tarde Galera

     

    consegui fazer alterando a linha abaixo.

     

    Esta Linha:

        'Como renomear arquivos (exemplo):
        Name "D:\Users\Jordan\Desktop\WEb\Teste\teste 1.xlsx" As "D:\Users\Jordan\Desktop\WEb\Teste\" & novoNome & ".xlsx"

     

    Por : 

     

        'Como renomear arquivos (exemplo):
        Name "D:\Users\Jordan\Desktop\WEb\Teste\teste 1.xlsx" As "D:\Users\Jordan\Desktop\WEb\Teste\" & Linha & "\" & novoNome & ".xlsx"

     

    Esta pode excluir:

     

     'AQUI SERA PARA MOVER PARA A PASTA CRIADA
      Name "D:\Users\Jordan\Desktop\WEb\Teste" & "\" & novoNome & ".xlsx" As "D:\Users\Jordan\Desktop\WEb\Teste" & "\" & Nomepasta & novoNome & ".xlsx"

     

    Compartilhar este post


    Link para o post
    Compartilhar em outros sites

    Crie uma conta ou entre para comentar

    Você precisar ser um membro para fazer um comentário






    Sobre o Clube do Hardware

    No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

    Direitos autorais

    Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

    ×