VBA EXCEL - COPIAR DETERMINADAS FOLHAS DE CÁLCULO PARA UM NOVO LIVRO (Copy some specific worksheets to a new workbook)
Criar um novo ficheiro, a partir do livro existente, exportando ou copiando apenas as folhas de cálculo que desejamos. Create a new file from the existing book , exporting or copying only the worksheets that we desire. Sub ExportarFolhas() Dim wb As Workbook Dim fNome As Variant Worksheets(array ("Folha1", "Folha2")) .Copy ' cria novo livro (Creates new workbook) Set wb = ActiveWorkbook fNome = Application.GetSaveAsFilename( _ FileFilter: ="Excel Files (*.xla), *.xla", _ Title: ="Especificar Localização:") 'Specify Location for Copy If fNome = False Then ' Se o utilizador escolhe "cancelar" a cópia é eliminada ' If user has chosen "cancel" delete the copy wb.Close Savechanges: = False Else wb.SaveAs Filename: =fNome wb.Close Savechanges: = False End If End Sub