複数の Excel ファイルを CSV に変換する方法 (3 つの適切な方法)

CSV の完全な形式 カンマ区切り値です。つまり、CSV の t 値 コンマのみで区切られています。これは、データベース管理に不可欠なデータ形式です。また、多くのデータ管理プロジェクトで Excel を使用しています。したがって、これら 2 つのフォーマット間でデータを交換するのはごく普通のことです。 CSV は簡単に変換できますが、 複数の Excel を CSV に変換するために、テキストを列に変換する機能を使用してファイルを Excel にフォーマットします。 今日まで存在する直接的な方法はありません。 VBA を使用する必要があります またはこの目的のためのオンラインツール。複数の Excel ファイルを CSV に変換する方法 ここでは、適切な説明とともに説明します。

以下の練習用ワークブックをダウンロードしてください。

複数の Excel ファイルを CSV に変換する 3 つの適切な方法

デモンストレーションの目的で、かなり理解しやすい次のデータセットを使用します。 購入日があります 、地域 ,商品 、および数量 テーブル ヘッダーとして。

1.複数の Excel ファイルを CSV に変換するための VBA の埋め込み

シンプルなVBA マクロの使用 複数の Excel ファイルを CSV に変換する時間を大幅に短縮できます フォーマット。このメソッドは、Excel ファイルを直接読み込み、CSV に変換します。

手順

• まず 開発者 に移動します タブをクリックし、[Visual Basic] をクリックします。

• 次に、[挿入] をクリックします> モジュール。

• モジュール内 ウィンドウで、次のコードを入力してください。

Sub convert_Excel_to_csv()

Dim Con_Mul_Excel As Workbook
Dim Con_Mul_Excel_ws As Worksheet
Dim Con_Mul_Excel_path As String
Dim Con_Mul_Excel_file As String
Dim Con_Mul_Excel_fd As FileDialog
Dim Con_Mul_Excel_sfd As FileDialog
Dim Con_Mul_Excel_spath As String
Dim Con_Mul_Excel_name As String

Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Calculation = xlCalculationManual

On Error Resume Next
Set Con_Mul_Excel_fd = Application.FileDialog(msoFileDialogFolderPicker)
Con_Mul_Excel_fd.AllowMultiSelect = False
Con_Mul_Excel_fd.Title = "Select the Folder for Your Excel Files"
If Con_Mul_Excel_fd.Show <> -1 Then Exit Sub
Con_Mul_Excel_path = Con_Mul_Excel_fd.SelectedItems(1) & "\"
Set Con_Mul_Excel_sfd = Application.FileDialog(msoFileDialogFolderPicker)
Con_Mul_Excel_sfd.AllowMultiSelect = False
Con_Mul_Excel_sfd.Title = "Select Destination Folder"

If Con_Mul_Excel_sfd.Show <> -1 Then Exit Sub
Con_Mul_Excel_spath = Con_Mul_Excel_sfd.SelectedItems(1) & "\"
Con_Mul_Excel_file = Dir(Con_Mul_Excel_path & "*.xls*")

Do While Con_Mul_Excel_file <> ""
Set Con_Mul_Excel = Workbooks.Open(Filename:=Con_Mul_Excel_path & Con_Mul_Excel_file)
Con_Mul_Excel_name = Con_Mul_Excel_spath & Left(Con_Mul_Excel_file, InStr(1, Con_Mul_Excel_file, ".") - 1) & ".csv"
Con_Mul_Excel.SaveAs Filename:=Con_Mul_Excel_name, FileFormat:=xlCSV
Con_Mul_Excel.Close savechanges:=False
Con_Mul_Excel_file = Dir
Loop

Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
Application.ScreenUpdating = True

End Sub

• ウィンドウを閉じます。
• その後、表示に移動します タブ> マクロ (ダブルクリック).

• [マクロを表示] をクリックした後、 今作成したマクロを選択します。ここでの名前は convert_Excel-to CSV です。次に、[実行] をクリックします。

• [実行] をクリックした後、 新しいブラウザ ウィンドウが開きます。そのウィンドウから、複数の Excel ファイルが保存されているフォルダを選択し、フォルダを選択して [OK] をクリックする必要があります。

• その後、別のウィンドウが開き、CSV の場所を尋ねられます Excel ファイルから変換した後のファイル。宛先フォルダを選択し、[OK ] をクリックします。 この後。

• 次に、循環読み込みアイコンが表示されます。この後、変換された CSV の宛先フォルダを確認します ファイル。
• 宛先フォルダでは、3 つすべてが CSV に変換されていることがわかります。 ファイルがあり、そのファイル拡張子は CSV として表示されます .

• Dataset_1 をクリックします
• ファイルをクリックすると、ファイルが開き、CSV として表示されます。 Excel ファイルではなくファイル
• 変換が成功したことを確認します。

• Dataset_2 をクリックします
• ファイルをクリックすると、ファイルが開き、CSV として表示されます。 Excel ファイルではなくファイル
• 変換が成功したことを確認します。

• Dataset_3 をクリックします
• ファイルをクリックすると、ファイルが開き、CSV として表示されます。 Excel ファイルではなくファイル
• 変換が成功したことを確認します。

続きを読む:Excel ファイルを CSV 形式に変換する方法 (5 つの簡単な方法)

2.複数の Excel ファイルを結合して CSV に変換

複数の Excel ファイルをワークシートとして 1 つのワークブックにまとめます。そして、これらのワークシートを個々の CSV としてエクスポートします ファイル。

手順

• まず 開発者 に移動します タブをクリックし、Visual Basic をクリックします。 .

• 次に、[挿入] をクリックします> モジュール。

• モジュール内 ウィンドウで、次のコードを入力してください。

Sub Combine_Excel_Files()

Dim fnList, fnCurFile As Variant
Dim cFiles, cSheets As Integer
Dim wkCurSheet As Worksheet

Dim wbCurBook, wbSrcBook As Workbook

fnList = Application.GetOpenFilename(FileFilter:="Microsoft Excel Workbooks (*.xls;*.xlsx;*.xlsm),*.xls;*.xlsx;*.xlsm", Title:="Choose Excel files to merge", MultiSelect:=True)
If (vbBoolean <> VarType(fnList)) Then
If (UBound(fnList) > 0) Then
cFiles = 0
cSheets = 0
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Set wbCurBook = ActiveWorkbook
For Each fnCurFile In fnList
cFiles = cFiles + 1
Set wbSrcBook = Workbooks.Open(Filename:=fnCurFile)
For Each wkCurSheet In wbSrcBook.Sheets
cSheets = cSheets + 1
wkCurSheet.Copy after:=wbCurBook.Sheets(wbCurBook.Sheets.Count)
Next
wbSrcBook.Close SaveChanges:=False
Next
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
MsgBox "Worked on " & cFiles & " files" & vbCrLf & "Joined " & cSheets & " worksheets", Title:="Merging Multiple Excel Files"
End If
Else
MsgBox "No File is Selected", Title:="Merging Multiple Excel files"
End If

End Sub

• ウィンドウを閉じます。
• その後、表示に移動します タブ> マクロ (ダブルクリック).

• [マクロを表示] をクリックした後、 今作成したマクロを選択します。ここでの名前は Combine_Excel_Files です .次に、[実行] をクリックします。

• その後、新しいファイル ブラウザ ウィンドウが開きます。そのウィンドウから、1 つの Excel ファイルに結合するファイルを選択する必要があります。
• ファイルを選択して、[開く] をクリックします。

• [開く] をクリックした後 、シートごとに 1 つずつロード画面があることに気付くでしょう。しばらくすると、下のウィンドウに次のメッセージが表示されます。

• 次に、3 つの異なる Excel ワークブックがアクティブな Excel ワークブックに個別のワークシートとして読み込まれます。

• 次に、 開発者 に移動します タブをクリックし、Visual Basic をクリックします。 .

• 次に、[挿入] をクリックします> モジュール。

• モジュール内 ウィンドウで、次のコードを入力してください。

Sub Excel_TO_CSV()

Dim wrsh As Worksheet
Dim excsv As String

For Each wrsh In Application.ActiveWorkbook.Worksheets
wrsh.Copy
excsv = CurDir & "\" & wrsh.Name & ".csv"
Application.ActiveWorkbook.SaveAs Filename:=excsv, _
FileFormat:=xlCSV, CreateBackup:=False
Application.ActiveWorkbook.Saved = True
Application.ActiveWorkbook.Close
Next

End Sub

• ウィンドウを閉じます。
• その後、表示に移動します タブ> マクロ (ダブルクリック).

• [マクロを表示] をクリックした後、 今作成したマクロを選択します。ここの名前は Excel_TO_CSV です .次に、[実行] をクリックします。

• [実行] をクリックすると、ワークシートに読み込みフェーズの瞬間が表示されます。
• 次に、コンピュータ上のファイル ドキュメント フォルダが必要です。このディレクトリには、変換された CSV が表示されます ファイル。
• これらのファイルのファイル拡張子が CSV で表示されていることに気付くでしょう。

• Dataset_1 を開く 、次に、ファイルが CSV であることがわかります 形式で、Excel ワークシートから変換されます。

続きを読む:Excel を開かずに CSV に変換する方法 (4 つの簡単な方法)

3.オンライン変換ツールの活用

オンライン アクセスがある場合、これがおそらく Excel ファイルを CSV に変換する最も簡単な方法です。 フォーマット。必要なファイルをアップロードして、変換をクリックするだけです。変換が完了したら、ファイルをコンピューターにダウンロードするだけです。

手順

• X に移動 LSX (EXCEL) から CSV (オンライン &無料) — Convertio .これは、複数の Excel シートを CSV に変換するための非常に優れたオンライン コンバーターです。
• ファイルの入力形式と出力形式を選択します。ここで、入力形式は XLSX になります 、出力形式 CSV を選択します .
• 次に、Web サイトで [ファイルの選択] をクリックします。 アイコン。

• ファイル参照メニューが開きます。そのメニューから、変換する必要があるファイルを選択し、[開く] をクリックします。 .この場合、Dataset_1 を選択しました 、Datset_2 、Dataset_3。

• 3 つすべてがウェブサイトにアップロードされ、アップロード先の形式は CSV と表示されます [変換] をクリックします。 この後。

• [変換] をクリックした後 、変換プロセスが開始されます。
• [ダウンロード] をクリックします をクリックして、変換されたファイルをダウンロードします。

<強い>

• ダウンロードが完了したら、ダウンロード フォルダを開くと、すべての Excel ファイルが CSV に変換されていることに注意してください。

• 開くデータセット_1
• ファイルが CSV として開かれていることに注意してください ファイル。これは、変換が成功したことを意味します。

続きを読む:Excel ファイルを自動的に CSV に変換する方法 (3 つの簡単な方法)

結論

まとめると、「複数のExcelファイルをCSVに変換する方法」という質問です。 」は、ここで 3 つの異なる方法で回答されます。 2 つの異なる VBA を使用しました アプローチと 1 つのオンライン コンバーター メソッド. ここで使用するすべての方法の中で、オンライン変換方法を使用するのが最も簡単で、時間を節約できます。 VBA プロセスもそれほど時間はかかりませんが、事前に VBA が必要です に関する知識。オンライン方式にはそのような要件はありません。

この問題については、これらの方法を実践できるマクロ対応のワークブックが添付されています。

コメント欄から質問やフィードバックをお気軽にお寄せください。 ExcelDemy を改善するための提案 コミュニティは非常に高く評価されます。

関連記事

• Excel をパイプ区切りテキスト ファイルに変換するマクロ (3 つの方法)
• Excel ファイルをコンマ区切りのテキスト ファイルに変換する方法 (3 つの方法)
• 二重引用符を付けて Excel を CSV として保存する (3 つの最も簡単な方法)
• [修正!] Excel でカンマ付きの CSV が保存されない (7 つの解決策)
• Excel をカンマ区切りの CSV ファイルに変換する (2 つの簡単な方法)