Acho que é isso aqui, mas não entendo onde colocar o caminho.
Sub Mover2()
ActiveSheet.Move Before:=Workbooks("Test.xls").Sheets(1)
'Moves active sheet to beginning of named workbook.
'Replace Test.xls with the full name of the target workbook you want.
End Sub
Nas instruções acima não temos caminho, transcrevendo as ações, estamos instruindo para realizar as seguintes ações:
1°) Temos duas Pastas (2 arquivos)
O primeiro vamos chamar de Origem.xls, e o segundo, já temos o nome na rotina "Test.xls".
workbook refere-se a um outro arquivo (ou Pasta)
Para a execução da rotina temos de estar com os dois arquivos abertos :
Estas instruções referem-se ao primeiro arquivo : Origem.xls
ActiveSheet refere-se a aba que está ativa, do arquivo Origem.xls
move estamos instruindo para MOVER
Before = Antes
Refere-se ao segundo arquivo : "Test.xls"
Workbooks("Test.xls") - Arquivo (ou Pasta) de nome Test.xls
.Sheets(1): Refere-se a aba deste arquivo e o numero é o indice .
Resumindo, estamos instruindo para :
Mover a Aba(Guia)Ativa do arquivo "Origem" para o arquivo "Test" antes da primeira aba(guia) que temos no arquivo "Test".
espero que tenha conseguido explicar.
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 14/02/2014 6:54 pm