Excel e Outras Coisas (Excel Things)

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

Uma forma de importar ou copiar dados de um livro ("Livro1") fechado para o livro activo ("Livro2"), atendendo a um conjunto de condições. Este exemplo mostra como podemos importar ou copiar um conjunto de dados de um livro para outro, sem ser necessário o recurso a colar e copiar. Para tal, basta colocar este código num módulo VBA e correr a macro. Podemos igualmente associar a macro a uma botão, possibilitando assim a execução do processo através de um único click. A simple way to import or copy data from a closed book (" Livro1 ") for the active workbook (" Livro2 ") , given a set of conditions.   This example shows how we can import or copy data from one workbook to another without requiring the use of copy and paste. Simply put this code in a VBA module and run the macro. We can also associate the macro to a button, allowing the execution of the process through a single click.   Sub ImportarDados ()     Workbooks....