- 帖子
- 234
- 主題
- 19
- 精華
- 0
- 積分
- 276
- 點名
- 0
- 作業系統
- Windows XP
- 軟體版本
- office 2003
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2013-1-7
- 最後登錄
- 2021-10-7
|
2#
發表於 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 |
|
