標題: [分享] 如何合併多個csv檔案於同一份 [打印本頁]

---

作者: chi830    時間: 2017-11-14 10:34     標題: 如何合併多個csv檔案於同一份

先將所有csv檔案置於同一個資料夾(例如: D:\MYCSV\CSV)
開啟命令提示字元CMD，進到CSV文件的所在目錄(D:\MYCSV\CSV)
執行下列指令
copy *.csv all.csv

如此，在D:\MYCSV\CSV下，可見生成all.csv檔案即為求

---

作者: rouber590324    時間: 2017-11-15 10:30

試試

Sub yy()
  Dim a As Workbook, f$
  Dim p$, sh As Worksheet
  Set a = ThisWorkbook
  p = "D:\MYCSV\"
  f = Dir(p & "*.CSV")
  Application.ScreenUpdating = False
  Do While f <> ""
    Workbooks.Open p & f
    For Each sh In Worksheets
    'On Error Resume Next
    X = WorksheetFunction.CountA(sh.Range("a1:iv65536"))
    Y = ActiveWorkbook.Name
    If X <> 0 Then
      sh.Copy after:=a.Sheets(a.Sheets.Count)
    End If
    Next
    Windows(f).Close True
    f = Dir
  Loop
  Application.ScreenUpdating = True
  Sheet1.Select
  Range("A1").Select
End Sub

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)