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

Ãö©óªí³æ

Ãö©óªí³æ

¥»©«³Ì«á¥Ñ EGBT ©ó 2016-7-5 23:37 ½s¿è

¦p¼ÐÃD¡GÃö©óªí³æ

456.xlsm¡A¥´¶}«á¸õ¥Xªí³æ¡AµM«áª½±µ°õ¦æ¥H¤U¡A
  1. Workbooks.Add
  2. ActiveWorkbook.SaveAs Filename:="C:\Desktop\123\" & 123 & ".xlsx"

  3. Workbooks("456").Activate

  4. ½Æ»s¤F¤@­ÓÀx¦s®æ

  5. Workbooks("123").Activate

  6. ¶K¤W­è­èªºÀx¦s®æ½Æ»sªº¸ê®Æ
½Æ»s¥N½X
¦bWindows 7¤UªºOffice 2010¥i¥¿±`¡A¦ý¨ìWindows 8¤UªºOffice 2016«o·|¥X²{°}¦C¯Á¤Þªº¿ù»~~

ÁöµM§Ú¤£ª¾¹D¬O¤£¬O§@·~¨t²Îªº°ÝÃD©Î¬OOfficeª©¥»ªº°ÝÃD~

·Q³Â·Ð¦U¦ì¤j¤j~

¦^´_ 1# EGBT


    ®Ú¾Ú±zªºµ{¦¡½X
­Y¬O®à­±ªº¦ì¸m¿ù»~,¥L·|§i¶D±z§ä¤£¨ì

©Ò¥H°}¦C¯Á¤Þ¿ù»~¤@©w¬O¦]¬°
¤U­±³o¨â¬qµ{¦¡½X¨ä¤¤¤@­Ó¿ù»~
Workbooks("456").Activate(¨S¦³¶}±ÒªºÀɮצWºÙ¥s°µ456)
Workbooks("123").Activate(¨S¦³¶}±ÒªºÀɮצWºÙ¥s°µ123)
·í¿ù»~ªº®É­Ô«ö¤@¤U°»¿ù
¬Ý¶À¦âªºÄæ¦ì°±¦b­þ¤@¦æµ{¦¡½X,§Y¥i±oª¾¿ù»~ªº¨Ó·½®@!
PKKO

TOP

¦^´_ 2# PKKO


    ·PÁ¤j¤jªº¦^ÂСA¸ô®|¬O¨S¦³°ÝÃDªº¡C

°ÝÃD¥X¦b¡AWorkbooks("123").Activate

´N¦¹½g°ÝÃD¡A¦bWindows 7¤UªºOffice 2010¥i¥¿±`¡A¦ý¨ìWindows 8¤UªºOffice 2016«o·|¥X²{°}¦C¯Á¤Þªº¿ù»~~

¦bWindows 8¤UWorkbooks("123").Activate¸õ¥X¨Ó¦n¹³¬O¦³°ÝÃDªº?

TOP

¦^´_ 3# EGBT


    Windows("123").Activate
§ï³o¸Õ¸Õ

TOP

¦^´_ 4# starry1314


    ¦nªºÁÂÁ¤j¤jªº¦^ÂСA¦³ªÅ¸Õ¸Õ¦A¤W¨Ó¦^ÂФj¤j¡A·P®¦

TOP

        ÀR«ä¦Û¦b : ¤£­nÀH¤ß©Ò±ý¡A­nÀH¤ß±Ð¨|¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD