Como converter vários arquivos xls em arquivos xlsx no Excel?
Para converter um arquivo xls antigo do Excel em um novo arquivo xlsx, você pode aplicar o recurso Salvar como no Excel, mas, se houver vários arquivos xls que precisam ser convertidos, como lidar com essa tarefa de forma rápida e fácil?
- Converta vários formatos xls em formatos xlsx com a função Salvar como, um por um
- Converta vários formatos xls em formatos xlsx de uma vez com o código VBA
- Converta vários formatos xls em formatos xlsx de uma só vez com um recurso poderoso
- Converter várias pastas de trabalho em arquivos PDF de uma vez
Converta vários formatos xls em formatos xlsx com a função Salvar como, um por um
A função Salvar como no Excel pode ajudá-lo a converter o formato xls da pasta de trabalho antiga para o novo formato xlsx, um por um.
1. Abra a pasta de trabalho que deseja converter em formato.
2. Clique Envie o > Salvar comoe um Salvar como a caixa de diálogo será exibida, especifique uma pasta para colocar o novo formato do arquivo e clique em Salvar como tipo lista suspensa para escolher livro do Excel, veja a captura de tela:
3. Então clique Salvar para fechar a caixa de diálogo, e este formato Excel foi convertido de xls para xlsx.
Converta vários formatos xls em formatos xlsx de uma vez com o código VBA
Se você deseja converter vários arquivos xls em arquivos xlsx de uma vez sem salvar um por um, aqui, falarei sobre um código VBA para você, siga as seguintes etapas:
1. Segure o ALT + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.
2. Clique inserção > Móduloe cole o seguinte código no Módulo Janela.
Código VBA: converta vários formatos xls em formatos xlsx de uma 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. Então aperte F5 para executar este código e uma janela será exibida, selecione uma pasta que contenha os arquivos xls que você deseja converter, veja a imagem:
4. Então clique OK, outra janela é exibida, selecione um caminho de pasta onde deseja enviar os novos arquivos convertidos, consulte a captura de tela:
5. E então, clik OK, depois de terminar a conversão, você pode ir para a pasta especificada para visualizar o resultado convertido, veja as capturas de tela:
Converta vários formatos xls em formatos xlsx de uma só vez com um recurso poderoso
Com esta Kutools for Excel'S Conversor de formato utilitário, você pode converter vários formatos xls em formatos xlsx ou vice-versa, ele também pode ajudá-lo a converter várias pastas de trabalho em arquivos PDF em um.
Depois de instalar Kutools for Excel, por favor, faça o seguinte:
1. Clique Kutools Plus > livro > Conversor de formato, veja a captura de tela:
2. E uma caixa de aviso aparecerá para lembrá-lo de fechar a pasta de trabalho que deseja converter. Veja a imagem:
3. Clique OK, então, no Conversor de formato de arquivo caixa de diálogo, especifique as seguintes opções:
- Sob o Converter tipo lista suspensa, selecione Excel 97-2003 para Excel 2007 ou superior;
- Então clique Adicionar botão para adicionar os arquivos xls que você deseja converter, você pode adicionar as pastas de trabalho de seu disco de computador ou OneDrive conforme necessário;
4. Após inserir os arquivos xls, ainda no Conversor de formato de arquivo caixa de diálogo, por favor clique para escolher um caminho de pasta para a saída dos arquivos convertidos e, em seguida, especificar algumas operações necessárias na parte inferior da caixa de diálogo, consulte a captura de tela:
- Se as pastas de trabalho nas subpastas também precisarem ser convertidas, verifique o Incluir subpastas ao adicionar pastas caixa de seleção;
- Se você deseja remover os arquivos originais após a conversão, verifique o Exclua os arquivos de origem após a conversão caixa;
- Se você deseja manter a data de modificação dos arquivos originais, verifique o Manter a data de modificação dos arquivos originais caixa;
- A estrutura do diretório do arquivo pode ser mantida verificando o A estrutura do diretório do arquivo é preservada quando convertida caixa;
5. Então clique OK para iniciar a conversão, após terminar a conversão, você pode ir para a pasta específica para visualizar o resultado convertido. Veja as capturas de tela:
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!