[µo°Ý] ½Ð±Ð¤@¤U¦¹¥y¥¨¶°¿ù»~¦p¦ó§ï?

t8899

Sub Ma3333()
Dim a As String
set a=v:\program\supertsc" & "\" & Format(Date, "eemmdd)
Workbooks.Open Filename:="a - 5 & ".xls"
"a - 5 & ".xls".Activate
End Sub
¥t¥~¤@­Ó°ÝÃD
Sub Macro2()
for k=1 to 15
On Error Resume Next
Workbooks.Open Filename:="v:\program\supertsc" & "\" & Format(Date, "eemmdd")-k & ".xls"
  next
123:
End Sub
1.°²¦p¶}ªºÀɮצs¦b«h¸õ¨ì123ªº»yªk¬O???
2¥u¯à¶}¨ì 1030401 , ±µ¤U¬O 1030399  ¤£¬O 1030331??

t8899

GBKEE µoªí©ó 2014-4-7 15:58
2¥u¯à¶}¨ì 1030401 , ±µ¤U¬O 1030399  ¤£¬O 1030331  ****¬Ý¤£À´???

·íK=8 ¶Ç¦^¬O v:\program\supertsc\1030399.xls
¤£¬O v:\program\supertsc\1030331.xls ??

t8899

¦^´_  t8899
GBKEE µoªí©ó 2014-4-7 15:58

Set A = Workbooks.Open("v:\program\supertsc\" & Format(Date, "eemmdd")) ¦¹¦æ°õ¦æ§¹´N·|¶}±ÒÀÉ®×1030407.XLS
¾É­P¤U¤@¦æ Workbooks.Open Filename:="a - 5.xls"
¥X°ÝÃD==>"À³¥Îµ{¦¡©Îª«¥ó©w¸q¿ù»~??

t8899

¦^´_  t8899
GBKEE µoªí©ó 2014-4-7 15:58
A = "v:\program\supertsc" & "\" & Format(Date, "eemmdd") - k & ".xls"  '§¹¾ãªº¸ô®|ÀɮצWºÙ
    If Dir(A) <> "" Then

ÀɮצWºÙªº«á­±¦³¦h¾lªº¤]¥[¤J²Å¦X±ø¥óªº§PÂ_¡A­n«ç»ò§ï?
¤S­n¦p¦ó¶}±Ò¥¿½TªºÀɮצWºÙ?
1030407.xls
1030407adef.xls
1030407bf.xls

t8899

¦^´_  t8899 ·í«eªº©Ò¦b¥Ø¿ý¨S¦³³oÀÉ®×,·|¦³À³¥Îµ{¦¡©Îª«¥ó©w¸q¿ù»~
GBKEE µoªí©ó 2014-4-7 20:33

¬°¦óset «ü¥O´N·|°õ¦æ¶}±Òªº°Ê§@?(ÁÙ¨S¯u¥¿°õ¦æopen)

t8899

¦^´_  t8899 ·í«eªº©Ò¦b¥Ø¿ý¨S¦³³oÀÉ®×,·|¦³À³¥Îµ{¦¡©Îª«¥ó©w¸q¿ù»~ÀɮצWºÙªº«á­±¦³¦h¾lªº¤]¥[¤J²Å¦X±ø¥óªº ...
GBKEE µoªí©ó 2014-4-7 20:33

    Dim K As Integer, B As String
    For K = 0 To 0
    B = "v:\program\supertsc" & "\" & 1030403 - K & "?????" & ".xls" '§¹¾ãªº¸ô®|ÀɮצWºÙ
        [o1] = B
         If Dir(B) <> "" Then
      Workbooks.Open Filename:=B
       end if
        next

ÀɦW¬° 1030403ª`·N¦³°ÝÃD.xls
ÀˬdÀɮצ³¹L
¦ý¶}ÀɹL¤£¤F ?

¤U¸ü (29.26 KB)

2014-4-8 06:48

t8899

¦^´_  t8899
GBKEE µoªí©ó 2014-4-8 07:48

ÁÂÁ¡A§Úªº°ÝÃDÀ³¸Ó§ï¦¨
§Ú·Q§äC ®Ú¿ý¤UªºÀÉ®× (¥u¦³®Ú¥Ø¿ý)
ÀɦW¬°1030415.xls
¥]¬A 1030415«á­±³£ºâ (°ÆÀɦW­­xls)
¨Ò¦p
1030415a.xls
1030415b.xls
1030415123b.xls
....
§ä¨ì«á¦A¶}ÀÉ,¤£ª¾¦¹µ{§Ç¦p¦ó¼g?