This is working for me, but the file extension is not changing. Any tips?
-
To post as a guest, your comment is unpublished.
-
To post as a guest, your comment is unpublished.
CSVファイルをXlSまたはXLSXファイルに変換するには、[名前を付けて保存]機能を適用すると非常に簡単です。 ただし、フォルダから複数のCSVファイルをXLSまたはXLSXファイルに変換するには、XNUMXつずつ手動で保存するので時間がかかります。 ここでは、すべてのCSVファイルをフォルダーからXLS(x)ファイルにすばやくバッチ変換するマクロコードを紹介します。
CSVファイルをマクロコードを使用してXlS(X)ファイルにバッチ変換します
複数のCSVファイルをXNUMXつのフォルダーからXLS(X)ファイルに変換するには、次の手順を実行します。
1.新しいワークブックを有効にして、を押します Altキー+ F11 開くキー Microsoft Visual Basic for Applications ウィンドウをクリックして インセット > モジュール。 スクリーンショットを参照してください:
ノート:変換するCSVファイルがすべて閉じていることを確認してください。
2.次に、以下のマクロコードを モジュール スクリプトを押して、 F5 コードを実行するためのキー。
VBA:CSVをXLSに変換
Sub CSVtoXLS() 'UpdatebyExtendoffice20170814 Dim xFd As FileDialog Dim xSPath As String Dim xCSVFile As String Dim xWsheet As String Application.DisplayAlerts = False Application.StatusBar = True xWsheet = ActiveWorkbook.Name Set xFd = Application.FileDialog(msoFileDialogFolderPicker) xFd.Title = "Select a folder:" If xFd.Show = -1 Then xSPath = xFd.SelectedItems(1) Else Exit Sub End If If Right(xSPath, 1) <> "\" Then xSPath = xSPath + "\" xCSVFile = Dir(xSPath & "*.csv") Do While xCSVFile <> "" Application.StatusBar = "Converting: " & xCSVFile Workbooks.Open Filename:=xSPath & xCSVFile ActiveWorkbook.SaveAs Replace(xSPath & xCSVFile, ".csv", ".xls", vbTextCompare), xlNormal ActiveWorkbook.Close Windows(xWsheet).Activate xCSVFile = Dir Loop Application.StatusBar = False Application.DisplayAlerts = True End Sub
3.ポップアウトダイアログで、変換するCSVファイルを含む指定されたフォルダーを選択します。 スクリーンショットを参照してください:
4。 クリック OK、選択したフォルダ内のすべてのCSVファイルがXLSファイルに変換されています。
先端:CSVファイルをXLSXファイルに変換する場合は、以下のVBAコードを使用します。
VBA:CSVファイルをXLSXに変換します
Sub CSVtoXLS() 'UpdatebyExtendoffice20170814 Dim xFd As FileDialog Dim xSPath As String Dim xCSVFile As String Dim xWsheet As String Application.DisplayAlerts = False Application.StatusBar = True xWsheet = ActiveWorkbook.Name Set xFd = Application.FileDialog(msoFileDialogFolderPicker) xFd.Title = "Select a folder:" If xFd.Show = -1 Then xSPath = xFd.SelectedItems(1) Else Exit Sub End If If Right(xSPath, 1) <> "\" Then xSPath = xSPath + "\" xCSVFile = Dir(xSPath & "*.csv") Do While xCSVFile <> "" Application.StatusBar = "Converting: " & xCSVFile Workbooks.Open Filename:=xSPath & xCSVFile ActiveWorkbook.SaveAs Replace(xSPath & xCSVFile, ".csv", ".xlsx", vbTextCompare), xlWorkbookDefault ActiveWorkbook.Close Windows(xWsheet).Activate xCSVFile = Dir Loop Application.StatusBar = False Application.DisplayAlerts = True End Sub
シートの範囲をすばやく変換またはエクスポートして、XLS / Word / PDFまたはその他の形式のファイルを一度に分離します
|
通常、Excelは、範囲をCSVまたはExcelファイルとしてすばやくエクスポートまたは保存するオプションをサポートしていません。 ある範囲のデータをCSVまたはワークブックとしてExcelに保存する場合は、VBAマクロを使用してこれを行うか、範囲をクリップボードにコピーして新しいワークブックに貼り付けてから、ワークブックをCSVまたはワークブック。 Kutools for Excel Excelを拡張します 範囲をファイルにエクスポート 次の操作をすばやく処理したいExcelユーザー向けのユーティリティ: 30日間のフル機能の無料トライアルをクリックしてください! |
![]() |
Kutools for Excel:300を超える便利なExcelアドインがあり、30日以内に制限なしで無料で試すことができます。 |