EXPORTAR V?RIAS SHEETS EM VBA

JPAULO101 25/07/2014 17:51:58
#439873

Olá pessoa tudo tranquilo, pessoal vocês poderia me ajuda com uma solução em uma rotina abaixo, pois preciso exportar varias Sheets de uma planilha para uma pasta especifica. No código abaixo chama a planilha que deve ser aberta, quando a mesma é aberta criar uma tabela dinâmica ao criar essa tabela extraio os dados da tabela em cada sheet quando extrair todos os dados em cada sheets tenho que mover essas shetts para uma pasta especifica criada no caminha dados. Segue rotina abaixo.

Agradeço ajuda de todos.


Sub ExtrairExportar_MRUs()

[ô]Nomes das variavesis
Dim stCaminho As String
Dim stNomeArquivo As String
Dim stNomePlanilha As String
Dim stNovaPasta As String
Dim stNome As String
Dim ws As Variant

[ô]Abre a planilha que deve ser extraidas as MRUs
Workbooks.Open Filename:= _
[Ô]C:\Users\Sap\Desktop\CR-13\LOTE 01\1 - GARANHUNS.xlsx[Ô]

[ô]Chama a variavel para extração das MRUs
Call ExtrairMRUs_01

[ô]Capturar o endereço da pasta (diretório) que contém o arquivo
stCaminho = [Ô]C:\Users\Sap\Desktop\CR-13\LOTE 01[Ô]
[ô]Definir o nome da nova pasta a ser criada
stNovaPasta = [Ô]1 - GARANHUNS[Ô]
stCaminho = stCaminho & [Ô]\[Ô] & stNovaPasta

[ô]Criar uma nova pasta, dentro da pasta que contém o arquivo
[ô]chamada 1 - GARANHUNS.
On Error Resume Next
MkDir stCaminho

[ô]Capturar o nome do arquivo
stNome = ThisWorkbook.Name
[ô]Loop para percorrer as planilhas do arquivo
For Each ws In ThisWorkbook.Worksheets
[ô]Capturar o nome da planilha
stNomePlanilha = ws.Name
[ô]A planilha é movida para um
[ô]novo arquivo do Excel
ws.Move

[ô]O novo arquivo é salvo, no formato do arquivo em uso pelo Excel
[ô]e seu nome é definido como o nome da planilha, seguida do nome do arquivo
ActiveWorkbook.SaveAs _
Filename:=stCaminho & [Ô]\[Ô] & stNomePlanilha, _
FileFormat:=ThisWorkbook.FileFormat

[ô]O novo arquivo é fechado
ActiveWindow.Close SaveChanges:=True

Next ws

End Sub