標題: [發問] 請問如何指定時間區間的工作簿，合併為同一張工作表呢?! [打印本頁]

---

作者: lin0902    時間: 2020-10-26 11:35     標題: 請問如何指定時間區間的工作簿，合併為同一張工作表呢?!

請問如何指定時間區間的工作簿，合併為同一張工作表呢?!
[attach]32655[/attach]
假設我要指定每天的7點到15點的工作簿，合併到同一張工作表，VBA應該怎麼寫才好?
先謝謝幫忙的大大了!!

---

作者: jcchiang    時間: 2020-10-26 16:04

回復 1# lin0902

提供參考
Sub ex()
Dim file$, fn$, wb As Workbook
Application.ScreenUpdating = False
r = 1
file = Dir(ThisWorkbook.Path & "\*.xls*")
Do While file <> ""
   If Split(file, ".")(0) >= Format(Date, "mmdd") & "0700" And Split(file, ".")(0) <= Format(Date, "mmdd") & "1500" Then
      fn = ThisWorkbook.Path & "\" & file
      Set wb = GetObject(fn)
'---------------這一段要做什麼請自行修改--------
      'Set sht = wb.Worksheets(1)
      'arr = sht.[a1].CurrentRegion
      'Cells(r, "a") = arr
'-------------------------------------------------
      wb.Close False
   End If
   r = r + 1
   file = Dir
Loop
Application.ScreenUpdating = True
End Sub

---

作者: lin0902    時間: 2020-10-27 11:42

謝謝jcchiang大幫忙，這兩天有點忙，等晚點有空再再來用您的方法試run，感謝。

---

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