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

¨ÌExcelÀɦW¦Û°ÊÀx¦s¦b¬Û¦P¦WºÙ¥Ø¿ý

¦^´_ 1# yueh0720
  1. Sub nn()
  2. ar = Split(ThisWorkbook.Name, "_")
  3. fs = "C:\" & ar(0) & "\" & ar(1) & "\" & ThisWorkbook.Name
  4. ThisWorkbook.SaveAs fds
  5. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 3# yueh0720
¨S¦³³W«hªº°ÝÃD¡A¬OµLªk¦Û°Ê¤Æªº
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ¦a¤WºØ¤Fµæ¡A´N¤£©öªø¯ó¡F¤ß¤¤¦³µ½¡A´N¤£©ö¥Í´c¡C
ªð¦^¦Cªí ¤W¤@¥DÃD