Excelで複数のxlsファイルをxlsxファイルに変換するにはどうすればよいですか？

古いXLS Excelファイルを新しいXLSXファイルに変換するには、Excelの「名前を付けて保存」機能を使用できます。ただし、複数のXLSファイルを一度に変換する必要がある場合、このタスクを効率的に処理するにはどうすればよいでしょうか？

• 「名前を付けて保存」機能を使用して、1つずつxls形式をxlsx形式に変換する
• VBAコードを使用して、複数のxls形式を一度にxlsx形式に変換する
• 強力な機能を使用して、複数のxls形式を一度にxlsx形式に変換する
• 複数のワークブックを一度にPDFファイルに変換する

「名前を付けて保存」機能を使用して、1つずつxls形式をxlsx形式に変換する

Excelの「名前を付けて保存」機能は、古いワークブックのxls形式を新しいxlsx形式に1つずつ変換するのに役立ちます。

1. 変換したいワークブックを開きます。

2. 「ファイル」＞「名前を付けて保存」をクリックすると、「名前を付けて保存」ダイアログが表示されます。ファイルの新しい形式を保存するフォルダを指定し、「保存形式」ドロップダウンリストをクリックして「Excel ワークブック」を選択します。スクリーンショットをご覧ください：

3. そして、「保存」ボタンをクリックしてダイアログを閉じると、このExcel形式はxlsからxlsxに変換されました。

VBAコードを使用して、複数のxls形式を一度にxlsx形式に変換する

1つずつ保存せずに複数のxlsファイルを一度にxlsxファイルに変換したい場合は、ここでVBAコードについて説明します。次の手順に従ってください：

1. ALT + F11キーを押して、 Microsoft Visual Basic for Applicationsウィンドウを開きます。

2. 「 挿入」＞「モジュール」をクリックし、モジュールウィンドウに次のコードを貼り付けます。

VBAコード：複数のxls形式を一度にxlsx形式に変換する

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. F5キーを押してこのコードを実行すると、ウィンドウが表示されます。変換したいxlsファイルが含まれているフォルダを選択してください。スクリーンショットをご覧ください：

4. 「OK」をクリックすると、別のウィンドウがポップアップします。新しく変換されたファイルを出力したいフォルダパスを選択してください。スクリーンショットをご覧ください：

5. 「OK」をクリックします。変換が完了したら、指定したフォルダに移動して結果を確認します。

強力な機能を使用して、複数のxls形式を一度にxlsx形式に変換する

Kutools for Excelの「一括変換」ユーティリティを使用すると、複数のxls形式をxlsx形式に、またはその逆に変換でき、さらに複数のワークブックを一度にPDFファイルに変換することも可能です。

1. 「Kutools Plus」＞「ワークブック 」＞「一括変換」をクリックします。スクリーンショットをご覧ください：

2. プロンプトボックスがポップアップして、変換したいワークブックを閉じる必要があることを思い出させます。スクリーンショットをご覧ください：

3. 「OK」をクリックすると、「ファイル形式一括変換 」ダイアログで、以下のオプションを指定します：

• 「変換タイプ」ドロップダウンリストで、「Excel 97-2003をExcel 2007以降に変換」を選択します；
• 次に「追加」ボタンをクリックして、変換したいxlsファイルを追加します。必要に応じて、コンピュータのディスクやOneDriveからワークブックを追加できます。

4xlsファイルを挿入した後も、引き続き ファイル形式一括変換 ダイアログボックスで、出力先のフォルダパスを選択するための ボタンをクリックし、ダイアログボックスの下部で必要な操作を指定します。スクリーンショットをご覧ください：

5. そして、「OK」をクリックして変換を開始します。変換が完了したら、指定したフォルダに移動して結果を確認します。スクリーンショットをご覧ください：