[µo°Ý] ³Ð¥ß¸ê®Æ§¨¦WºÙ

die78325

§Ú­n³Ð¥ß¸ê®Æ§¨ ¦W¤l¬°¬Q¤Ñ¤é´Á  "MMDD"
¦pªG¤w¸g¨S¦³¸ê®Æ§¨ ´N·s«Ø
¥H¤U   ·|²£¥Í ¡y&dd¡z ³o­Ó¸ê®Æ§¨ ¦Ó¤£¬O1127 ½Ð¦U¦ì¤j¤jÀ°¦£!@@"

1. Sub ³Ð«Ø¸ê®Æ§¨()
   
2. Dim dd As DATE '«Å§i¬°¦r¦ê
   
3. dd = Date - 1
   
4. Range("A1") = dd & "»s§@"
   
5. f = Dir("F:\¤w¤W¶Ç\11¤ë\ & dd", vbDirectory) '§PÂ_¬O§_¦s¦b
   
6. If f = "" Then MkDir ("F:\¤w¤W¶Ç\11¤ë\ & dd") '¦pªG¤£¦s¦b´N«Ø¥ß
   
7. End Sub

½Æ»s¥N½X

mark15jill

¦^´_ 1# die78325


    Sub ³Ð«Ø¸ê®Æ§¨()

Dim dd As DATE '«Å§i¬°¦r¦ê

dd = Date - 1

Range("A1") = dd & "»s§@"

f = Dir("F:\¤w¤W¶Ç\11¤ë\" & dd, vbDirectory) '§PÂ_¬O§_¦s¦b

If f = "" Then MkDir ("F:\¤w¤W¶Ç\11¤ë\" & dd) '¦pªG¤£¦s¦b´N«Ø¥ß

End Sub

"------------------------------------------------------------------"
& dd " ¬O§â & ddd ¤]¥]§t¦b¦r¦ê¤º

stillfish00

¦^´_ 1# die78325
¼Ó¤W¤w»¡©ú©ñ¿ù¦ì¸m
¥t¥~ ¸ê®Æ§¨¤£¯à§t±×½u"/" , ¥iÅÜ´«Dateªº¦r¦ê®æ¦¡
format(dd,"mmdd")

die78325

¦^´_ 2# mark15jill


    §Úª¾¹Dªü= ="¦ý¬O §A©Ô¥X¨Ó¤]³Ð«Ø¤£¥X¨Ó°Ú §A¦³¸Õ¹L¶Ü....
©Ò¥H§Ú¤~¥ý©ñ¶i¥h ¬Ý¤j¤jªù«ç»òÀ°§Ú§ï.......§Ú­è­è¤w¸g·Q¨ì¸Ñ¨Mªº¿ìªk¤F

1. Sub ³Ð«Ø¤å¥ó§¨()
   
2.   
   
3.   Dim dd As Date '«Å§i¬°¦r¦ê
   
4.     Range("A1") = Date & "»s§@"
   
5.   If Dir("F:\¤w¤W¶Ç\11¤ë\" & Format(Date - 1, "mmdd") & "¦Û°Ê·s«Ø", vbDirectory) <> "" Then
   
6.    Else
   
7.        MkDir "F:\¤w¤W¶Ç\11¤ë\" & Format(Date - 1, "mmdd") & "¦Û°Ê·s«Ø"
   
8. End If
   
9. End Sub

½Æ»s¥N½X

¦ý¬O¤S¹J¨ì§xÃø....

§Ú­nÂà¦s¤u§@­¶¥h¨º­Ó¸ê®Æ§¨¸Ì­±....
¤S¹J¨ì§xÃø ¤£ª¾¹D¦p¦ó«ü©w­è­è·s¼Wªº¸ê®Æ§¨ ¨Ã¥B©R¦W¬° up99   (­n©ñ¦b­è­è·s¼Wªº 1127¸ê®Æ§¨¸Ì­±)

1. Sub Âà¦s()
   
2. Dim Str$
   
3. Str = "¦Û°Ê¤Æ"   '¥i¦h¿ï¤u§@­¶ ¥Î*°Ï¹j
   
4. Worksheets(Split(Str, "*")).Copy    '½Æ»s«ü©wªº¤u§@ªí
   
5. gg = Format(Date - 1, "mmdd")
   
6. With ActiveWorkbook
   
7.      .SaveAs [color=Red]"F:\¤w¤W¶Ç\11¤ë\" & Format(Date - 1, "mmdd")\, FileFormat:=xlCSV[/color]   
   
8.    .Close  'Ãö³¬ÀÉ®×
   
9. End With
   
10. End Sub

½Æ»s¥N½X

¬õ¦â¬°°ÝÃDÂI....
½Ð¤j¤jªùÀ°¦£­×§ï....

die78325

¥H¸Ñ¨M = =­ì¨Ó¥u¬O¨S°Ï¹j¦n....