ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] §ó·s¤é´Á+°²¤é¤£§ó·s

¦^´_ 19# cowww


    ÁÂÁ«e½ú¦A¦^´_,¤@°_¾Ç²ß
¥H¤U¬O¾Ç²ß¤è®×,½Ð«e½ú°Ñ¦Ò

Option Explicit
Sub TEST()
Dim T$, B$, i%
T = "\\shl-group.com\dept\MFMG\B.¦U²Õ¸ê®Æ (Team inform)\E.¥ÍºÞ²Õ (PPC group)\X.¦Û°Ê¤Æ¤u¨ã(¤Å§R)\¼Ò¨ã²§°Ê-¤»ºÖ(«æ¥ó1.9±M¥Î)\"
For i = 0 To 10
   B = Format(Date - i, "yyyy.mm.dd")
   If Dir(T & B & " ¨C¤é¼Ò¨ã²§°Ê.xlsx") <> Empty Then GoTo i01
Next
MsgBox "§ä¤£¨ì " & Date & " ~ " & Date - 10 & " ÀÉ®×": Exit Sub
i01: Workbooks.Open Filename:=T & B & " ¨C¤é¼Ò¨ã²§°Ê.xlsx", ReadOnly:=True
End Sub
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

¦^´_ 21# cowww


    Empty(ªÅªº)
<>Empty(¤£¬OªÅªº)´N¬O¦³
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

¦^´_ 23# cowww


    ÁÂÁ«e½ú¦^´_,¤@°_¾Ç²ß,ÁÂÁ½׾Â,ÁÂÁ¦U¦ì«e½ú
«á¾ÇÂǦ¹©«½Æ²ß¤è®×,¤è®×ªº¤ß±oµù¸Ñ¦p¤U,½Ð«e½ú°Ñ¦Ò,½Ð¦U¦ì«e½ú«ü±Ð

Option Explicit
Sub TEST()
Dim T$, B$, i%
'¡ô«Å§iÅܼÆ(T,B)¬O¦r¦êÅܼÆ,i¬Oµu¾ã¼Æ
T = "\\shl-group.com\dept\MFMG\B.¦U²Õ¸ê®Æ (Team inform)\E.¥ÍºÞ²Õ (PPC group)\X.¦Û°Ê¤Æ¤u¨ã(¤Å§R)\¼Ò¨ã²§°Ê-¤»ºÖ(«æ¥ó1.9±M¥Î)\"
'¡ô¥OT³o¦r¦êÅܼƬO "¸ê®Æ§¨¦ì§}\"
For i = 0 To 10
'¡ô³]¶¶°j°é!i±q0 ¨ì10
   B = Format(Date - i, "yyyy.mm.dd")
   '¡ô¥OB³o¦r¦êÅܼƬO ¤µ¤Ñ¤é´Á´î±¼iÅܼƫ᪺¤é´ÁÂà´«¦¨¦r¦ê,
   '¦r¦ê:4½X¦~2½X¤ë2½X¤é¤¤¶¡¥["."²Å¸¹

   If Dir(T & B & " ¨C¤é¼Ò¨ã²§°Ê.xlsx") <> Empty Then GoTo i01
   '¡ô¥HTÅܼƳs±µ BÅܼÆ,¦A³s±µ " ¨C¤é¼Ò¨ã²§°Ê.xlsx"ªº·s¦r¦ê,
   '¦pªG³o·s¦r¦ê¥h¬d¦³³o­ÓÀÉ®×?? (PS:¤£¬OªÅªº´N¬O¦³ªº·N«ä)
   '¦pªG¦³³oÀÉ®×´N¸õ¨ì i01¼Ð¥Ü¦ì¸mÄ~Äò°õ¦æ

Next
MsgBox "§ä¤£¨ì " & Date & " ~ " & Date - 10 & " ÀÉ®×": Exit Sub
'¡ô·í¤W­z°j°é¶]§¹¤FÁ٧䤣¨ì·Q­nªº¦ì§}»PÀɦWÀÉ®×!
'´N¸õ¥X´£¥Üµ¡,Åã¥Ü11¤Ñ°Ï¶¡¤é´Á¨S¦³²Å¦XªºÀÉ®×
'³Ì«áµ²§ôµ{¦¡°õ¦æ

i01: Workbooks.Open Filename:=T & B & " ¨C¤é¼Ò¨ã²§°Ê.xlsx", ReadOnly:=True
'¡ô°ßŪ¶}±ÒÀÉ®×
End Sub
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

        ÀR«ä¦Û¦b : ¤Ñ¤W³Ì¬ü¬O¬P¬P¡A¤H¥Í³Ì¬ü¬O·Å±¡¡C
ªð¦^¦Cªí ¤W¤@¥DÃD