Como converter vários ficheiros XLS em ficheiros XLSX no Excel?
Para converter um ficheiro antigo do Excel em formato XLS para o novo formato XLSX, pode utilizar a funcionalidade Guardar Como no Excel. No entanto, se precisar de converter vários ficheiros XLS em simultâneo, como pode executar esta tarefa de forma eficiente?
- Converter vários formatos xls para formatos xlsx com a função Guardar Como, um a um
- Converter vários formatos xls para formatos xlsx de uma só vez com código VBA
- Converter vários formatos xls para formatos xlsx de uma só vez com uma funcionalidade poderosa
- Converter Vários Livros para Arquivos PDF de uma só vez
Converter vários formatos xls para formatos xlsx com a função Guardar Como, um a um
A função Guardar Como no Excel permite-lhe converter, um por um, os livros do antigo formato XLS para o novo formato XLSX.
1. Abra o livro cujo formato pretende converter.
2. Clique em Ficheiro > Guardar Como e será apresentada uma caixa de diálogo Guardar Como. Especifique uma pasta para guardar o ficheiro no novo formato e, em seguida, clique na lista suspensa Especificar Formato de Salvamento para escolher Pasta de trabalho do Excel. Veja a captura de ecrã:
3. Depois, clique no botão Guardar para fechar a caixa de diálogo e este ficheiro do Excel foi convertido de .xls para .xlsx.
Converter vários formatos xls para formatos xlsx de uma só vez com código VBA
Se pretender converter vários ficheiros .xls em .xlsx de uma só vez, sem os guardar individualmente, apresento-lhe um código VBA. Siga os passos seguintes:
1. Prima as teclas ALT + F11 para abrir a janela Microsoft Visual Basic for Applications.
2. Clique em Inserir > Módulo e cole o código seguinte na janela do Módulo.
Código VBA: Converter vários formatos xls para formatos xlsx de uma só vez
Sub ConvertToXlsx()
'Updateby Extendoffice
Dim strPath As String
Dim strFile As String
Dim xWbk As Workbook
Dim xSFD, xRFD As FileDialog
Dim xSPath As String
Dim xRPath As String
Set xSFD = Application.FileDialog(msoFileDialogFolderPicker)
With xSFD
.Title = "Please select the folder contains the xls files:"
.InitialFileName = "C:\"
End With
If xSFD.Show <> -1 Then Exit Sub
xSPath = xSFD.SelectedItems.Item(1)
Set xRFD = Application.FileDialog(msoFileDialogFolderPicker)
With xRFD
.Title = "Please select a folder for outputting the new files:"
.InitialFileName = "C:\"
End With
If xRFD.Show <> -1 Then Exit Sub
xRPath = xRFD.SelectedItems.Item(1) & "\"
strPath = xSPath & "\"
strFile = Dir(strPath & "*.xls")
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Do While strFile <> ""
If Right(strFile, 3) = "xls" Then
Set xWbk = Workbooks.Open(Filename:=strPath & strFile)
xWbk.SaveAs Filename:=xRPath & strFile & "x", _
FileFormat:=xlOpenXMLWorkbook
xWbk.Close SaveChanges:=False
End If
strFile = Dir
Loop
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
3. Prima a tecla F5 para executar este código e será apresentada uma janela com os ficheiros XLS que pretende converter. Veja a captura de ecrã:
4. Clique em OK. Surge outra janela a solicitar o caminho. Por favor, selecione uma pasta onde pretende guardar os novos ficheiros convertidos — veja a captura de ecrã:
5. Clique em OK. Assim que a conversão estiver concluída, aceda à pasta especificada para ver os resultados.
 |  |  |
Converter vários formatos xls para formatos xlsx de uma só vez com uma funcionalidade poderosa
Com a funcionalidade Kutools para Excel’s Converter em Lote, pode converter vários ficheiros em formato .xls para .xlsx — ou vice-versa — e ainda transformar múltiplos livros em ficheiros PDF de uma só vez.
1. Clique em KUTOOLS PLUS > Livro > Converter em lote. Veja a captura de ecrã:
2. Surge uma caixa de aviso a lembrá-lo de que deve fechar o livro que pretende converter. Veja a captura de ecrã:
3. Clique em OK e, na caixa de diálogo Converter em lote, especifique as seguintes opções:
- Na lista suspensa Tipo de Conversão, selecione Converter do Excel 97-2003 para o Excel 2007 ou posterior;
- Depois, clique no botão Adicionar para adicionar os ficheiros XLS que pretende converter. Pode importar livros do disco do seu computador ou do OneDrive, conforme necessário.
4. Após inserir os ficheiros .xls, ainda na caixa de diálogo Converter em lote, clique no botão 
para escolher um caminho de arquivo onde guardar os ficheiros convertidos e, em seguida, especifique as operações necessárias na parte inferior da caixa de diálogo. Veja a captura de ecrã:
- Se os livros nas subpastas também precisarem de ser convertidos, marque a opção Incluir subpastas ao adicionar pastasCaixa de Seleção;
- Se pretender remover os ficheiros originais após a conversão, marque a opção Excluir arquivos de origem após a conversãocaixa;
- Se pretender Manter a data de modificação dos arquivos originais, marque a opção Manter Data de Modificação dos ficheiros originaiscaixa;
- A estrutura de diretórios do ficheiro pode ser mantida ao marcar a opção Preservar a estrutura de diretórios dos arquivos durante a conversãocaixa;
5. Depois, clique em OK para iniciar a conversão. Após concluir a conversão, aceda à pasta especificada para ver os resultados. Veja as capturas de ecrã:
| | |
Kutools para Excel– Potencie o Excel com mais de 300 ferramentas essenciais, tornando o seu trabalho mais rápido e fácil, e aproveite as funcionalidades de IA para um processamento de dados mais inteligente e uma maior produtividade.Obtenha Já
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos