Marcelo,

Boa Tarde!

O que você quer é apenas gerar uma cópia do seu Arquivo1 Chamado BASE.xlsx em uma pasta na Unidade C com o nome DESTINO.xlsx?

Se for isso, basta colocar o código abaixo:

Sub CopiarArquivo()
    ActiveWorkbook.SaveAs Filename:= _
        ActiveWorkbook.Path & "DESTINO.xlsx", FileFormat _
        :=xlOpenXMLWorkbook, CreateBackup:=False
End Sub

Marcelo,

Boa Tarde!

O que você quer é apenas gerar uma cópia do seu Arquivo1 Chamado BASE.xlsx em uma pasta na Unidade C com o nome DESTINO.xlsx?

Se for isso, basta colocar o código abaixo:

Sub CopiarArquivo()
    ActiveWorkbook.SaveAs Filename:= _
        ActiveWorkbook.Path & "DESTINO.xlsx", FileFormat _
        :=xlOpenXMLWorkbook, CreateBackup:=False
End Sub

Amigo,

Primeiramente obrigado pela ajuda, mas não é tão simples assim minha duvida acho que não citei o problema corretamente!

Na planilha BASE possuo 40 ABAS, dentre elas só quero copiar 3 das 40 existentes, estou me perdendo na forma de instanciar(SETAR) as abas em uma WORKBOOK na memória e após efetuar a copia pegar este OBJETO e executar um SAVE!

Um exemplo bem mal feito é esse aqui!

Set xls = createobject("Excel.application")

xls.worksheets(1) = plan1.copy
xls.worksheets(2) = plan23.copy
xls.worksheets(3) = Plan31.copy

não to conseguindo gerar uma SINTAXE de copiar e colar entre o workbook ativo para o NOVO workbook SETADO na memória :[!

De uma olhada neste Tópico : http://www.planilhando.com.br/forum/viewtopic.php?f=16&t=5265&p=27584&hilit=Array#p27584, creio que lhe ajudará

Marcelo,

Bom Dia!

Ok.

Troque o código por este:

Sub CopiarArquivo()
    Dim Caminho As String
    Caminho = ActiveWorkbook.Path
    Sheets(Array("Plan1", "Plan23", "Plan31")).Select
    Sheets(Array("Plan1", "Plan23", "Plan31")).Copy
    ActiveWorkbook.SaveAs Filename:= _
        Caminho & "DESTINO.xlsx", FileFormat _
        :=xlOpenXMLWorkbook, CreateBackup:=False
End Sub

Ae galera consegui depois de fuçar e fritar o cerebro a alguns dias só consegui tempo para fazer isso hj!

Segue codigo caso alguem precise fazer algo igual ou similar!

'Seta(Armazena) ABAS do arquivo principal em OBJETOS
Set CAPA = Worksheets("Layout_Renovação_Capa")
Set DADOS = Worksheets("Layout_Renovação_Dados")
Set DADOS2 = Worksheets("Layout_Renovação_Sinistro")

'Seta novo WORKBOOK na memória
Set novoArquivo = Workbooks.Add

'Copia plans("ABAS") para novo arquivo setado na memória anteriormente de acordo com seus respectivos INDEXS
CAPA.Copy novoArquivo.Sheets(1)
DADOS.Copy novoArquivo.Sheets(2)
DADOS2.Copy before:=novoArquivo.Sheets(3)

agora vai o codigo que usei para salvar se alguem precisar fazer algo igual!

'Ativa WORKBOOK novoArquivo
Workbooks(2).Activate

'Desativa qualquer mensagens(OFFICE & EXCEL) quando for salvar arquivo
Application.DisplayAlerts = False
'Salva arquivo na pasta desejada(Concatenei variaveis para gerar nome arquivo especifico sendo salvo ( você muda como quiser )
Workbooks(2).SaveAs "C:NOVOS" & numeroCasa & "" & " Apartamento - " & numeroApartamento & " NumeroCarro - " & numeroCarro & " " & nomePessoa & "Numero " & numero & ".xlsx", , , , , , xlShared

se for um save normal no c da maquina segue!
Workbooks(2).SaveAs "C:".xlsx", , , , , , xlShared

Abraço

Boa tarde!!

Olá Marcelo-CTBA, obrigado pelo retorno!

Para manter o fórum organizado, lembre se de marca lo como resolvido, quando for o caso!!

Veja como em:
Marcar Tópico como Resolvido e Agradecimento
viewtopic.php?f=7&t=3784

Att