Ir para o conteúdo principal

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

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.

Tips: Com isso Salvar como função, você apenas converte um arquivo do Excel por vez, se você tiver centenas de arquivos do Excel que precisam ser convertidos, este método não é uma boa escolha.

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.

Nota:Para aplicar isso Conversor de formato, em primeiro lugar, você deve baixar o Kutools for Excele, em seguida, aplique o recurso de forma rápida e fácil.

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:

Notas: Na caixa de diálogo acima:
  • 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

🤖 Assistente de IA do Kutools: Revolucionar a análise de dados com base em: Execução Inteligente   |  Gerar Código  |  Crie fórmulas personalizadas  |  Analise dados e gere gráficos  |  Invocar funções do Kutools...
Recursos mais comuns: Encontre, destaque ou identifique duplicatas   |  Excluir linhas em branco   |  Combine colunas ou células sem perder dados   |   Rodada sem Fórmula ...
Super pesquisa: VLookup de múltiplos critérios    VLookup de múltiplos valores  |   VLookup em várias planilhas   |   Pesquisa Difusa ....
Lista suspensa avançada: Crie rapidamente uma lista suspensa   |  Lista suspensa de dependentes   |  Lista suspensa de seleção múltipla ....
Gerenciador de colunas: Adicione um número específico de colunas  |  Mover colunas  |  Alternar status de visibilidade de colunas ocultas  |  Compare intervalos e colunas ...
Recursos em destaque: Foco da Grade   |  Vista de Design   |   Grande Barra de Fórmula    Gerenciador de pastas de trabalho e planilhas   |  Biblioteca (Auto texto)   |  Data Picker   |  Combinar planilhas   |  Criptografar/Descriptografar Células    Enviar e-mails por lista   |  Super Filtro   |   Filtro Especial (filtro negrito/itálico/tachado...) ...
15 principais conjuntos de ferramentas12 Texto Ferramentas (Adicionar texto, Remover Personagens, ...)   |   50+ de cores Tipos (Gráfico de Gantt, ...)   |   Mais de 40 práticos Fórmulas (Calcule a idade com base no aniversário, ...)   |   19 Inclusão Ferramentas (Insira o código QR, Inserir imagem do caminho, ...)   |   12 Conversão Ferramentas (Números para Palavras, Conversão de moedas, ...)   |   7 Unir e dividir Ferramentas (Combinar linhas avançadas, Dividir células, ...)   |   ... e mais

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...

Descrição


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!
Comments (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Please could you change the VBA code so that it looks in subfolders of the chosen folder.
Could it also output a log file to show everything its converted?
This comment was minimized by the moderator on the site
Thank You!
This comment was minimized by the moderator on the site
Thanks so much for the VBA CODE. Very Useful
This comment was minimized by the moderator on the site
Can you save a xls as a xlsx and maintain 1,048,576 rows and XFD Columns?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations