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

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

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

§Ú­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
¦Û¥Î¨®¤]¥i¥Hñ±b³á!
¤­¤d¤¸¥[ªoª÷¥[¤Jªo½c«áÁÙ¦^õX±z6200¤¸
ºÖ§Q©ô¨®¤Í·|power-want.com

¥H¸Ñ¨M = =­ì¨Ó¥u¬O¨S°Ï¹j¦n....
¦Û¥Î¨®¤]¥i¥Hñ±b³á!
¤­¤d¤¸¥[ªoª÷¥[¤Jªo½c«áÁÙ¦^õX±z6200¤¸
ºÖ§Q©ô¨®¤Í·|power-want.com

TOP

¦^´_ 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ªùÀ°¦£­×§ï....
¦Û¥Î¨®¤]¥i¥Hñ±b³á!
¤­¤d¤¸¥[ªoª÷¥[¤Jªo½c«áÁÙ¦^õX±z6200¤¸
ºÖ§Q©ô¨®¤Í·|power-want.com

TOP

¥»©«³Ì«á¥Ñ stillfish00 ©ó 2012-11-28 11:30 ½s¿è

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

TOP

¦^´_ 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¦ê¤º

  ¦h°µ¦h·Q¦h¾Ç²ß¡A¤Ö¬Ý¤Ö¿ù¤Ö°g³~

  ¦h°µ=¦h¦h½m²ß¡A¦h¦h½s¼g¡C
  ¦h·Q=·Q·Q¬°¤°»ò¤H®aµ{¦¡­n¨º¼Ë¼g¡A¦pªG´«¦¨¦Û¤v¡A¤S·|«ç¼g¡C
  ¦h¾Ç²ß=¾Ç²ß¤H®aªºµo°Ý¨Ã¸Ñµª¡A¾Ç²ß¤H®aªº¼gªk

  ¤Ö¬Ý=¥u¬Ý¤£°µ¤]ªPµM

TOP

        ÀR«ä¦Û¦b : ¤H¥Í¨S¦³©Ò¦³Åv¡A¥u¦³¥Í©Rªº¨Ï¥ÎÅv¡C
ªð¦^¦Cªí ¤W¤@¥DÃD