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

¦³Ãö¥t¦s·sÀÉ°ÝÃD..

¦³Ãö¥t¦s·sÀÉ°ÝÃD..

½Ð°Ý¦U¦ìª©¤j¦p½d¨Ò..
§Ú­n¥t¦s·sÀɦÓÀɦW·|¦Û°Ê¥ÎÀx¦s®æB1»PB3Àx¦s®æ¤º®e§@¬°ÀɦW
«ü©w¸ô®|¬°D¼Ñ 001.rar (6.48 KB)
¤£ª¾VBA­n¦p¦ó¼g½Ð¦U¦ìª©¤j«ü¾ÉÁÂÁÂ...

ActiveWorkbook.SaveAs Filename:="D:\" & range("B1").value & range("B3").value  & ".xls"

TOP

¦^´_ 2# victorl


    ÁÂÁ¤j¤j«ü¾É¦ý¬°¦ó°õ¦æ«á·|¦Û°Ê¶}±Ò·sÀɤå¥ó

TOP

ActiveWorkbook


§Ú¥ÎActiveWorkbook.Close¦ý·|Ãö±¼¤å¥ó
½Ð¤j¤j«ü¾É

TOP

EXCEL ¥t¦s·sÀɤº­q´N¬OÃö³¬ÂÂÀɶ}啓·sÀÉ
¥[¤J Workbooks.Open "D:\ ­ì¨ÓÀɦW.xls"

TOP

¦^´_ 5# ANGELA


    ÁÂÁ¤j¤j«ü¾É¦ýÁÙ¬O¤£¦æ£®

TOP

½Ð°Ý§A¬O·Q­n¥t¦s·sÀɦA¶}±Ò­ìÀɮ׶Ü?
½Ð°Ñ¦Ò
    Orig = ThisWorkbook.Path & "\" & ThisWorkbook.Name '¨ú±o­ìÀɮ׸ô®|¤Î¦WºÙ
    ActiveWorkbook.SaveAs Filename:="D:\" & Range("B1").Value & Range("B3").Value & ".xls" ' ¨Ì­n¨DB1&B3¤º®e¥t¦s·sÀÉ
    newfile = ActiveWorkbook.Name
    Workbooks.Open Filename:=Orig ' ¶}±Ò­ìÀÉ®×
    Workbooks(newfile).Close ' Ãö³¬¥t¦s¤§ÀÉ®×
µù. ¥t¦s·sÀɤ§«eªºÅܧ󤣷|¦s¦b©ó­ìÀɮ׳á

TOP

¦^´_ 7# victorl


    ÁÂÁ¤j¤j«ü¾É¤w¸g¥i¥H..¤p§Ì¨ü¯q­ê²L.
¦A½Ð°Ý¤@¤U¦pÀx¦s®æB3¨ìB33­n¦Û°Ê¨q¥X¤é´Áªí³æÅý§Ú¥i¥H¬D¿ï­n¦p¦ó¼g..
½Ð«ü¾ÉÁÂÁÂ

TOP

¦^´_ 8# gca78000


    ¦A½Ð°Ý¤j¤j¤@¤U.
¦p¥t¦s·sÀÉ«á­n§â¤ºªº vbaµ{¦¡½X¤]®ø°£­n¦p¦ó¼g
½Ð«ü¾ÉÁÂÁÂ...

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2010-6-7 16:30 ½s¿è

¦^´_ 7# victorl
ª½±µ±NÀɮ׽ƻs§Y¥i ¤£¥²¶}¶}ÃöÃö
  1. Sub Ex()
  2. Dim D
  3. Set D = CreateObject("Scripting.FileSystemObject")
  4. ActiveWorkbook.Save
  5. D.CopyFile ActiveWorkbook.FullName, "D:\" & Range("B1") & Range("B3") & ".xls"
  6. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¡i®É¶¡¦pÆp¥Û¡j®É¶¡¹ï¤@­Ó¦³´¼¼zªº¤H¦Ó¨¥¡A´N¦pÆp¥Û¯ë¬Ã¶Q¡F¦ý¹ï·M¤H¨Ó»¡¡A«o¹³¬O¤@§âªd¤g¡A¤@ÂI»ù­È¤]¨S¦³¡C
ªð¦^¦Cªí ¤W¤@¥DÃD