Hsieh

¦^´_ 6# ten999
³o°ÝÃD¨Ã¨S¬Æ»ò¤j§Þ¥©
´N³æ¯Â¨Ï¥ÎINPUTBOX§@¬°¿é¤J°_©l¤é´Á»Pµ²§ô¤é´Á
¥Î°j°éFor....Next±Ô­z

1. Sub testCr()
   
2. Dim selDate As Date,°_©l¤é´Á as Date, µ²§ô¤é´Á as date
   
3. °_©l¤é´Á=inputbox("¿é¤J°_©l¤é´Á")
   
4. µ²§ô¤é´Á=inputbox("¿é¤J µ²§ô¤é´Á")
   
5. For selDate=°_©l¤é´Á to µ²§ô¤é´Á
   
6. saveCSVfmURL selDate
   
7. Next
   
8. End Sub

½Æ»s¥N½X

ten999

½Ð°Ý§Ú¬O§_¥i¥H¥u¿é¤J"¶}©l¤Îµ²§ô¤é´Á"´N¦n,¦]¬°¤é´Á½d³ò¸û¤j
¦P®É¦³«D¤u§@¤é¤Ñ¼Æ°ÝÃD

hugh0620

¼Ó¥D~ «Øij§A~ ¦pªG¦³»Ý­n¤HÀ°§A¦A³B²z«áÄò°ÝÃD~
¥i¥H¥Î[¦^´_]ªº¤è¦¡~ ³o¼ËHsieh¤j¤j¤~·|ª¾¹D§AÁÙ¦³°ÝÃDÁÙ¨S¦³³B²z¦n~
¥L¦³®É¶¡·|¦AÀ°§A³B²z~

ten999

¸É¥R»¡©ú:¥i½Ð±Ð¦U¦ì¥ý¶i
¦p¦ó§Q¥Î"¤é´Á®É¶¡"µ¥excel¤½¦¡¦Û°Ê§ì¨ú«D¤u§@¤Ñ¤é´Á½d³ò¤Î¼Æ¶q!

ten999

ÁÂÁÂHsieh±Ð¾É,¨Ï§Ú¿é¤J¸ê®Æ¸û¤è«K.
¥t¥~¦A¦¸½Ð°Ý§Ú¥i¥u¿é¤J "¶}©l"¤é´Á ¤Î"µ²§ô"¤é´Á ´N¦n¶Ü?
¦A¦¸·PÁÂ!

Hsieh

¦^´_ 1# ten999

1. Sub testCr()
   
2. Dim selDate As String
   
3.     selDate = InputBox("¤é´Á(®æ¦¡¬°yyyy/mm/dd)" & "½Ð¿é¤J¤@­Ó¤é´Á")
   
4.     Do Until Not selDate Like "????/??/??"
   
5.     saveCSVfmURL CDate(selDate)
   
6.     selDate = InputBox("¤é´Á(®æ¦¡¬°yyyy/mm/dd)" & "½Ð¿é¤J¤@­Ó¤é´Á")
   
7.     Loop
   
8. End Sub

½Æ»s¥N½X