¨ÌExcelÀɦW¦Û°ÊÀx¦s¦b¬Û¦P¦WºÙ¥Ø¿ý
- ©«¤l
- 45
- ¥DÃD
- 19
- ºëµØ
- 0
- ¿n¤À
- 84
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows XP
- ³nÅ骩¥»
- Office 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- Taiwan
- µù¥U®É¶¡
- 2010-8-9
- ³Ì«áµn¿ý
- 2015-4-14
|
¨ÌExcelÀɦW¦Û°ÊÀx¦s¦b¬Û¦P¦WºÙ¥Ø¿ý
¥i¥H¨ÌExcelÀɦWA¦WºÙ¦Û°ÊÀx¦s¦b¬Û¦P¦WºÙA¥Ø¿ýªºB¤l¥Ø¿ý¸Ì¡A¸Ó¦p¦ó³B¸Ì?
¨Ò¦p¡GA-B-C.EXCEL
¦sÀɥؿý¡GC:\[A]\[B](¤l¥Ø¿ý) |
|
|
|
|
|
|
- ©«¤l
- 135
- ¥DÃD
- 19
- ºëµØ
- 0
- ¿n¤À
- 165
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- »´ä
- µù¥U®É¶¡
- 2010-12-9
- ³Ì«áµn¿ý
- 2012-8-27
|
¥»©«³Ì«á¥Ñ FAlonso ©ó 2010-12-15 22:31 ½s¿è
¦^´_ Hsieh
ÀɮצWºÙ A-B-C.EXCEL
¤w¦bc:\«Ø¥ß¥Ø¿ý¬°[A]
[A]¥Ø¿ý«Ø¥ß¤l¥Ø¿ý[D]
±N ...
yueh0720 µoªí©ó 2010-12-15 15:55
§Aªº°ÝÃD¬O,windows¨t²Î¤¤¨S¦³excel file¦WºÙ©Òn¨D¤å¥ó§¨,©Ò¥H¾ÉP¿ù»~?- Sub save_in_particular_folder()
- Dim myarray
- Dim target_folder As String, target_file
- Dim FSOobject As Object
- myarray = Split(ThisWorkbook.Name, ".xls", -1)
- myarray = Split(myarray(0), "-", -1)
- target_folder = "D:\Tony\Excel VBA\" & myarray(0) & "\" & myarray(1)
- target_file = target_folder & "\" & ThisWorkbook.Name
- If Len(Dir(target_folder, vbDirectory)) = 0 Then
- Set FSOobject = CreateObject("scripting.filesystemobject")
- FSOobject.createfolder (target_folder)
- ThisWorkbook.SaveAs target_file
- Set FSOobject = Nothing
- Else
- ThisWorkbook.SaveAs target_file
- End If
- End Sub
½Æ»s¥N½X ³o¬O¤£¬O¨Ò¦p¹³³oÓ? |
|
80 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X
|
|
|
|
|
- ©«¤l
- 45
- ¥DÃD
- 19
- ºëµØ
- 0
- ¿n¤À
- 84
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows XP
- ³nÅ骩¥»
- Office 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- Taiwan
- µù¥U®É¶¡
- 2010-8-9
- ³Ì«áµn¿ý
- 2015-4-14
|
¦^´_ 2# Hsieh
ÀɮצWºÙ A-B-C.EXCEL
¤w¦bc:\«Ø¥ß¥Ø¿ý¬°[A]
[A]¥Ø¿ý«Ø¥ß¤l¥Ø¿ý[D]
±Nµ{¦¡½X¶K©óA-B-C.EXCLE¡A°õ¦æ«á«o¥X²{¶W¥X°}¦C½d³ò
»Ýnקï¦ó¦a¤è¤~¯à°÷¨ÌEXCELÀɦWÀx¦s¨ìA¥Ø¿ýªºD¤l¥Ø¿ý¤¤ |
|
|
|
|
|
|