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

[µo°Ý] ÀɦW¤£¦P¦p¦ó§PÂ_

¦^´_ 1# cowww


   
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
   If Dir(T & B & "¨C¤é¼Ò¨ã²§°Ê.xlsx") <> Empty Then GoTo i02
Next
MsgBox "§ä¤£¨ì " & Date & " ~ " & Date - 10 & " ÀÉ®×": Exit Sub
i01: Workbooks.Open filename:=T & B & " ¨C¤é¼Ò¨ã²§°Ê.xlsx", ReadOnly:=True:Exit Sub
i02: Workbooks.Open filename:=T & B & "¨C¤é¼Ò¨ã²§°Ê.xlsx", ReadOnly:=True
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

¥»©«³Ì«á¥Ñ Andy2483 ©ó 2023-4-25 11:51 ½s¿è

¦^´_ 3# cowww


   
On Error Resume Next
Workbooks(B & " ¨C¤é¼Ò¨ã²§°Ê.xlsx").Close
Workbooks(B & "¨C¤é¼Ò¨ã²§°Ê.xlsx").Close
On Error Goto 0

===========================
¸É¥R:
«Øij«e½ú¥ý¥i¥H¥Î¤§«á¦A¬ã¨s¦p¦ó²¤Æ,Åý§ó©öµøŪ
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

¦^´_ 6# ­ã´£³¡ªL
¦^´_ 5# cowww


    ÁÂÁ½׾Â,ÁÂÁ«e½ú«ü¾É
«á¾Ç¾Ç²ß¤ß±oµù¸Ñ¦p¤U,½Ð«e½ú¦A«ü±Ð



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

   If Dir(T & B & " ¨C¤é¼Ò¨ã²§°Ê.xlsx") <> "" Then
   '¡ô¦pªGTÅܼƳs±µBÅܼÆ,¦A³s±µ" ¨C¤é¼Ò¨ã²§°Ê.xlsx"²Õ¦¨·s¦r¦ê¬d¨ì³oÀÉ®×?
      Set xBook = Workbooks.Open(T & B & " ¨C¤é¼Ò¨ã²§°Ê.xlsx", ReadOnly:=True)
      '¡ô¥OxBook³o¬¡­¶Ã¯ÅܼƬO³Q¥´¶}ªº,
      '³Q¥´¶}ªºTÅܼƳs±µBÅܼÆ,¦A³s±µ" ¨C¤é¼Ò¨ã²§°Ê.xlsx"²Õ¦¨·s¦r¦êªºÀÉ®×

      Exit For
      '¡ôµ²§ô°j°é
   End If
Next
If xBook Is Nothing Then MsgBox "§ä¤£¨ì¥Ø¼ÐÀÉ®×": Exit Sub
'¡ô¦pªGxBookÅܼƬO¨S¦³¸ü¤Jª«¥ó!´N¸õ¥X´£¥Üµ¡,µ²§ôµ{¦¡°õ¦æ
xBook.Sheets("LF").Columns("A:AG").Cells.Copy
'¡ôÄ~Äò¥HÅܼÆxBook«ü¦V¥Ø¼Ð¥i¥HÅýµ{¦¡Â²¼ä©öµøŪ
'~~do something ~~
xBook.Close 0
'¡ô¥OxBook¤£¦sÀÉ Ãö³¬
End Sub
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

¦^´_ 8# cowww


    ¤µ¤Ñ­n§ìªºÀɦW  " ¨C¤é¼Ò¨ã²§°Ê.xlsx" «e¤è¦³ªÅ¥Õ¦r¤¸¶Ü?
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

¦^´_ 10# cowww


    ³o¼Ë¦^´_¥Nªí¨S°ÝÃD§a!ÁÂÁ¤@°_¾Ç²ß
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

        ÀR«ä¦Û¦b : «H¤ß¡B¼Ý¤O¡B«i®ð¤TªÌ¨ã³Æ¡A«h¤Ñ¤U¨S¦³°µ¤£¦¨ªº¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD