- ©«¤l
- 48
- ¥DÃD
- 14
- ºëµØ
- 0
- ¿n¤À
- 72
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2021-7-21
- ³Ì«áµn¿ý
- 2022-9-6
|
¦^´_ 4# samwang
±z¦n¡A§Ú¨Ï¥Î¦¹¬qµ{¦¡½X¡õ
Sub test()
Dim Arr(), T$, d$, d1$, d2$, xY$, xM$, xD$
T = Date
Set fs = CreateObject("Scripting.FileSystemObject")
a = "D:\AA\BB\CC\DD"
Set f = fs.GetFolder(a)
Set fc = f.Files
For Each f1 In fc
d = Split(Split(f1.Name, ")")(1), "-")(0)
xY = Left(d, 4): xM = Mid(d, 5, 2): xD = Right(d, 2)
d1 = DateSerial(xY, xM, xD)
d = Split(Split(Split(f1.Name, ")")(1), "-")(1), ".")(0)
xY = Left(d, 4): xM = Mid(d, 5, 2): xD = Right(d, 2)
d2 = DateSerial(xY, xM, xD)
If T >= d1 And T <= d2 Then
ReDim Preserve Arr(n)
Arr(n) = f1.Path
n = n + 1
End If
Next
If n > 0 Then
For i = 0 To n - 1
Set WB = Workbooks.Open(Arr(i))
'¥Dµ{¦¡»Ý¨D
Next
End If
End Sub
¤µ¤Ñ§Ú¦b D:\AA\BB\CC\DD ¸ô®|¤U¤S·s¼W ¤£¦PÀɦWªºÀɮסA´N·|¥X²{°ÝÃD¡C
¦p¤U¹Ï¡õ
§Ú·s¼WªºÀɮפΦWºÙ¦p¤U¹Ï
·s¼WÀɮצWºÙ¦p¤U
20170831-½Ð¨ó§U¥´¤WÀɮצWºÙ-Xjl
ZXZ0099X0.0-³¡«~¦W¥U²M³æ-2019
ZXZ0099X1.0-20190101¼Ð¥Ü
¥Dn¬O«ü°w¹ï¥H¤UÀɦW¶}±Ò
¤£·|¦]¬°¨ä¥LÀɦW¦Ó¶}±Ò¤£¤FÀɮסC
¥Ø«eÓ¤H»{¬°¥i¯à¬OSplit¡A³oÃ䪺°ÝÃD§a?
ÁٽФj¤j¨ó§U¡AÁÂÁÂ! |
|