Página 1 de 1
SALVAR COPIA SEM FECHAR O ARQUIVO
Enviado: 29 Mar 2018 às 10:35
por rit
Bom dia Amigos,
Alguem tem um código que salve uma cópia de planilhas expecificas de uma pasta de trabalho e não feche o arquivo original ?
Exemplo, tenho um arquivo que tem tres planilhas dessas tres planilhas eu preciso salvar apenas as duas primeiras em um formato menor aquis xls sem ser o formato macro e ainda por cima excluir o botão da macro que vá fazer isso, alguem tem algo parecido com isso ? ou podem me ajudar com isso ?
Obrigado!
Re: SALVAR COPIA SEM FECHAR O ARQUIVO
Enviado: 30 Mar 2018 às 18:26
por babdallas
Anexe um exemplo e explique com detalhes o resultado final que deseja. Aí deverá conseguir ajuda.
SALVAR COPIA SEM FECHAR O ARQUIVO
Enviado: 01 Abr 2018 às 21:08
por mprudencio
Experimente este codigo
Código: Selecionar todos
Sub SALVAR()
Sheets(Array("Plan1", "Plan2")).Copy
ChDir "C:\LOCAL ONDE SALVAR O ARQUIVO"
ActiveWorkbook.SaveAs Filename:="C:CAMMINHO E NOME DO ARQUIVO A SALVAR", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
Sheets("Plan3").Select
End Sub
Se nao conseguir ajustar basta usar o gravador de macros.
SALVAR COPIA SEM FECHAR O ARQUIVO
Enviado: 03 Abr 2018 às 09:29
por rit
Bom dia,
quase perfeito, só preciso agora resolver um problema "Sheets("Plan3").Select" esse cara deveria selecionar o arquivo "novo" certo ? só que esse arquivo novo sempre muda de nome como eu faço para ele selecionar o arquivo criado ? teria que criar uma variavel ou algo assim ? desculpa se estou falando asneira kk mas é que não sou nenhum expert no assunto.
Obrigado!
SALVAR COPIA SEM FECHAR O ARQUIVO
Enviado: 03 Abr 2018 às 10:21
por rit
Cara acertei aqui muito obrigado pela ajuda!
O código ficou assim caso alguem se interesse.
Código: Selecionar todosSub SALVAR()
Sheets(Array("Cartão", "Grav Plc")).Copy
ChDir "S:\Dir_Geral\Dir_Tecnica\AB\Planej_Materiais\9.Outros_Documentos\Formularios Uso Geral\Arquivo 2010\Cartões\Documentos OP\Unidades Hidraulicas\CARTOES IDENT\"
ActiveWorkbook.SaveAs Filename:="S:\Dir_Geral\Dir_Tecnica\AB\Planej_Materiais\9.Outros_Documentos\Formularios Uso Geral\Arquivo 2010\Cartões\Documentos OP\Unidades Hidraulicas\CARTOES IDENT\" & Range("F4"), _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
Sheets("Cartão").Select
ActiveSheet.Shapes.Range(Array("Botão 1")).Delete
Workbooks(Range("F4") & ".xlsx").Close SaveChanges:=True
End Sub