Note: The other languages of the website are Google-translated. Back to English
ログイン  \/ 
x
or
x
今すぐ登録  \/ 
x

or

Excelで複数のCSVファイルをXLS(X)ファイルにバッチ変換するにはどうすればよいですか?

CSVファイルをXlSまたはXLSXファイルに変換するには、[名前を付けて保存]機能を適用すると非常に簡単です。 ただし、フォルダから複数のCSVファイルをXLSまたはXLSXファイルに変換するには、XNUMXつずつ手動で保存するので時間がかかります。 ここでは、すべてのCSVファイルをフォルダーからXLS(x)ファイルにすばやくバッチ変換するマクロコードを紹介します。

CSVファイルをマクロコードを使用してXlS(X)ファイルにバッチ変換します


CSVファイルをマクロコードを使用してXlS(X)ファイルにバッチ変換します

複数のCSVファイルをXNUMXつのフォルダーからXLS(X)ファイルに変換するには、次の手順を実行します。

1.新しいワークブックを有効にして、を押します Altキー+ F11 開くキー Microsoft Visual Basic for Applications ウィンドウをクリックして インセット > モジュール。 スクリーンショットを参照してください:
docバッチ変換cvsxls 1

ノート:変換する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ファイルを含む指定されたフォルダーを選択します。 スクリーンショットを参照してください:
docバッチ変換cvsxls 2

4。 クリック OK、選択したフォルダ内のすべてのCSVファイルがXLSファイルに変換されています。
docバッチ変換cvsxls 3

先端: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日間のフル機能の無料トライアルをクリックしてください!
docはセル範囲をファイルにエクスポートします
 
Kutools for Excel:300を超える便利なExcelアドインがあり、30日以内に制限なしで無料で試すことができます。

関連記事:


最高のオフィス生産性ツール

Kutools for Excelはほとんどの問題を解決し、生産性を80%向上させます

  • 再利用: すばやく挿入 複雑な数式、チャート および以前に使用したものすべて。 セルを暗号化する パスワード付き。 メーリングリストを作成する そしてメールを送る...
  • スーパーフォーミュラバー (複数行のテキストと数式を簡単に編集できます); 読書レイアウト (多数のセルを簡単に読み取って編集する); フィルター範囲に貼り付け...
  • セル/行/列をマージする データを失うことなく; 分割セルコンテンツ; 重複する行/列を組み合わせる...重複セルを防止します。 範囲を比較する...
  • [複製]または[一意]を選択します 行; 空白行を選択 (すべてのセルは空です); スーパーファインドとファジーファインド 多くのワークブックで; ランダム選択...
  • 正確なコピー 数式参照を変更せずに複数のセル。 参照の自動作成 複数のシートに; 箇条書きを挿入、チェックボックスなど...
  • テキストを抽出、テキストの追加、位置による削除、 スペースを削除する; ページング小計の作成と印刷。 セルの内容とコメントを変換する...
  • スーパーフィルター (フィルタースキームを保存して他のシートに適用します); 高度な並べ替え 月/週/日、頻度など。 特殊フィルター 太字、斜体...
  • ワークブックとワークシートを組み合わせる; キー列に基づいてテーブルをマージします。 データを複数のシートに分割; xls、xlsx、PDFをバッチ変換...
  • 300以上の強力な機能。 Office / Excel2007-2019および365をサポートします。すべての言語をサポートします。 企業や組織に簡単に導入できます。 全機能30日間の無料トライアル。 60日間の返金保証。
kteタブ201905

Officeタブは、タブ付きのインターフェイスをOfficeにもたらし、作​​業をはるかに簡単にします

  • Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性が50%向上し、毎日何百ものマウスクリックが減ります。
officetab下部
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Robin · 6 months ago
    This is working for me, but the file extension is not changing. Any tips?
    • To post as a guest, your comment is unpublished.
      Pascal · 4 months ago
      I had the same problem. If your source file has an extention in capital letters (.CSV) it doesnt work. Just replace .csv to .CSV in the code in line 22 and then it should work. Well, at least for me it did.
    • To post as a guest, your comment is unpublished.
      stevehurm · 6 months ago
      Same for me -- all files remain .csv.
      • To post as a guest, your comment is unpublished.
        Sunny · 3 months ago
        All csv files you choose have been save as new excel files, the original files (csv) do not change, there are new excel files with same contents existing.
  • To post as a guest, your comment is unpublished.
    Dixon · 10 months ago
    I get an error "Object variable or with block variable not set" for this line:
    xFd.Title = "/Users/[my.name]/Documents/[myFolder]" >> this is the path of a particular folder on my computer where I'm doing the conversion (the folder has a bunch of csv files inside)

    Am I doing something wrong here?
  • To post as a guest, your comment is unpublished.
    Jason · 10 months ago
    You have an error on line 22 of the csv to xlsx
    With Error - ActiveWorkbook.SaveAs Replace(xSPath & xCSVFile, ".csv", ".xls", vbTextCompare), xlWorkbookDefault
    Corrected - ActiveWorkbook.SaveAs Replace(xSPath & xCSVFile, ".csv", ".xslx", vbTextCompare), xlWorkbookDefault
    • To post as a guest, your comment is unpublished.
      Sunny · 9 months ago
      Thanks for your reminder, I have updated it, thanks again.
  • To post as a guest, your comment is unpublished.
    aaqil Rahman · 1 years ago
    great article. How can I, save all the converted files in a new location? Can you please update the code and send it to me. Like allowing the user to choose his destination folder.


    Thanks
  • To post as a guest, your comment is unpublished.
    viper · 1 years ago
    it changes my date column format from dd-mm-yyyy to dd/mm/yyyy, please can anyone help with how to prevent this script from changing column formats.
    Thanks a lot.
    • To post as a guest, your comment is unpublished.
      Sunny · 1 years ago
      Hi, viper, after conversion, you can format them back, select the dates and right click to choose Format Cells from context menu, in the Format Celld dialog, under Number tab, click Custom in the Category list, then type mm-dd-yyyy into the textbox in right section. Or if you have Kutools for Excel, applying the Apply Date Formatting to change the date format as you need.
  • To post as a guest, your comment is unpublished.
    Sam · 1 years ago
    One small issue with this code is that some accuracy (number of decimals) can be lost when opening a csv and saving it as xlsx.
    The way to prevent this is to select all cells right after opening, set the number of decimal places to the desired amount (15 for me personally), and *then* saving as xlsx

    Otherwise, the xlsx has less detail (less accuracy in terms of decimals) than the original csv, which can lead to problems in some applications
  • To post as a guest, your comment is unpublished.
    Rose · 1 years ago
    this macro does not show my csv file
  • To post as a guest, your comment is unpublished.
    stb · 1 years ago
    Cool bit of code. Very useful. If I'm not mistaken the code for .xlsx looks the same as the .xls code.

    This line:
    ActiveWorkbook.SaveAs Replace(xSPath & xCSVFile, ".csv", ".xls", vbTextCompare), xlWorkbookDefault

    I assume it should be: ".csv" , ".xlsx", vbTextCompare etc.
    • To post as a guest, your comment is unpublished.
      iBrezel · 1 years ago
      I've changed the code so, described above; now the script works as expected: it generates xlsx files
      • To post as a guest, your comment is unpublished.
        thy · 1 years ago
        no you haven't. it still says xls in both versions.
  • To post as a guest, your comment is unpublished.
    koliarpramod935@gmail.com · 2 years ago
    Great Script after searching all other script available in google. Can anybody help how to modify this script by specifying a folder location in local drive instead of allowing it to open the dialog box as i am actually automating the system. Thanks in advance
  • To post as a guest, your comment is unpublished.
    Pramod Koliar · 2 years ago
    Hi, great script which worked for me after trying all other script available in google. I have added few more lines which performs the text to columns operation which i want. Can anybody help me how to modify the script by specifying the folder location in local drive instead of opening the dialog box as i am actually automating the system
    . Thanks in advance
    • To post as a guest, your comment is unpublished.
      equiposlagares@gmail.com · 1 years ago
      Hi
      Could you share the script that performs the text to columns??
      Best Regards
  • To post as a guest, your comment is unpublished.
    HC · 2 years ago
    Hello,

    a great article - thank you! Almost works for me.

    Here's the problem: I have a pipe-delimited csv file. I have changed the default windows delimiter (via control panel/regional settings) to "|". So, when I open the csv file with Excel, it opens, directly reads and parses the fields to columns correctly. All I have to do is to save as xls or xlsx, done. When I look at your code, that should be what the code does: It opens the csv files in a folder, saves them as xls or xlsx, and loops over that.

    Here is the problem: When I open those Excel files, the pipe delimiters are still there, nothing is parsed to the columns. This was the behavior as before my change to the pipe delimited default setting in the Windows settings. So it seems like Excel doesn't use those Windows settings. I verified this by replacing the pipe delimiters with comma delimiters in a copy of the file - of the two files, the pipe-delimited remained unparsed, the comma delimited got converted just fine.

    Any idea where that Excel-inbuilt comma delimitation can be found or changed, or whether there is a way in the code to do that? I would prefer NOT to have to do a search and replace, then save...

    Thanks, HC
    • To post as a guest, your comment is unpublished.
      Sunny · 2 years ago
      If you want to split the data into column based on the pipe delimiter in Excel, just use Text to Columns function to split data by / after coverting the csv files to xls.
      • To post as a guest, your comment is unpublished.
        Sat · 7 months ago
        Doesn't really make the code useful for excel files.
  • To post as a guest, your comment is unpublished.
    Fred Maye · 2 years ago
    WHen I gave the folder name, the program said, "No files match your search." But there are 2,609 .csv files in the folder
    • To post as a guest, your comment is unpublished.
      Sunny · 2 years ago
      The code not support the separated comma csv file, are your files in this case?
  • To post as a guest, your comment is unpublished.
    ptee · 2 years ago
    I used the file multiple csv to multiple xls but get wrong xls de csv files have ; seperated info but become together in cells. How can this been solved?
    • To post as a guest, your comment is unpublished.
      Sunny · 2 years ago
      The code cannot support the separated comma csv file.
  • To post as a guest, your comment is unpublished.
    Dragos · 3 years ago
    Hi,

    Your script is great but it doesn't convert the csv separated by semicolons. Can you please post a solution for those?

    Thank you
    • To post as a guest, your comment is unpublished.
      strauss113 · 2 years ago
      i might be late i just got the issue where i needed to convert the semicolons CSV files and i added this to the code and it worked hope this will help someone

      Change 'Workbooks.Open Filename:=xSPath & xCSVFile' By this 'Workbooks.Open Filename:=xSPath & xCSVFile, Delimiter:=";", Local:=True'
    • To post as a guest, your comment is unpublished.
      Sunny · 3 years ago
      Sorry,here I do not have any solution, maybe you can place your question to our forum, someone else may help you. https://www.extendoffice.com/forum.html
  • To post as a guest, your comment is unpublished.
    Sathish · 3 years ago
    Thankyou so much for your excellent script for CSV to XLS. Its much more useful to my work
  • To post as a guest, your comment is unpublished.
    mathaio · 3 years ago
    "Tip: If you want to convert CSV files to XLXS files, you just need to change .xls to .xlsx in the macro ActiveWorkbook.SaveAs Replace(xSPath & xCSVFile, ".csv", ".xls", vbTextCompare)."

    I tried this, and Excel could not open the resulting files. I got the following message: "Excel cannot open the file 'filename.xlsx' because the file format or file extension is not valid. Verify that the file has not been corrupted and that the file extension matches the format of the file."

    However, the script was successful for converting to .xls.
    • To post as a guest, your comment is unpublished.
      Sunny · 3 years ago
      I did not find that problem before, thank you for your correct comment. I have corrected the tip.
  • To post as a guest, your comment is unpublished.
    Karen · 3 years ago
    I want to do the opposite - convert XLS to CSV. does this script work?
    Sub CSVtoXLS()
    'UpdatebyExtendoffice20170814
    Dim xFd As FileDialog
    Dim xSPath As String
    Dim xXLSFile 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 + "\"
    xXLSFile = Dir(xSPath & "*.xls")
    Do While xXLSFile <> ""
    Application.StatusBar = "Converting: " & xXLSFile
    Workbooks.Open Filename:=xSPath & xXLSFile
    ActiveWorkbook.SaveAs Replace(xSPath & xXLSFile, ".xls", ".csv", vbTextCompare), xlNormal
    ActiveWorkbook.Close
    Windows(xWsheet).Activate
    xXLSFile = Dir
    Loop
    Application.StatusBar = False
    Application.DisplayAlerts = True
    End Sub
    • To post as a guest, your comment is unpublished.
      brad · 10 months ago
      Sub ConvertCSVToXlsx()

      Dim myfile As String
      Dim oldfname As String, newfname As String
      Dim workfile
      Dim folderName As String

      Application.DisplayAlerts = False
      Application.ScreenUpdating = False

      ' Capture name of current file
      myfile = ActiveWorkbook.Name

      ' Set folder name to work through
      folderName = "D:\tmp\"

      ' Loop through all CSV filres in folder
      workfile = Dir(folderName & "*.CSV")
      Do While workfile <> ""
      ' Open CSV file
      Workbooks.Open Filename:=folderName & workfile
      ' Capture name of old CSV file
      oldfname = ActiveWorkbook.FullName
      ' Convert to XLSX
      newfname = folderName & Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4) & ".xlsx"
      ActiveWorkbook.SaveAs Filename:=newfname, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=True
      ActiveWorkbook.Close
      ' Delete old CSV file
      Kill oldfname
      Windows(myfile).Activate
      workfile = Dir()
      Loop

      Application.DisplayAlerts = True
      Application.ScreenUpdating = True

      End Sub