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

Activate»POpenªº®t§O¸òWindowsªº©w¸q

½Ð°Ý¦U¦ì¤j¤j¡A¦³¨â­Ó°ÝÃD·Q½Ð±Ð¡A

°ÝÃD¤@

Windows.Activate »P Workbooks.Open ªº®t²§?

¾Ç¨ì¦Ñ¦º µoªí©ó 2016-3-27 12:27


­è­è§Ú¸Õ°µ«á,±o¥Xµ²½×¦p¤U: (¸Õ°µÀô¹Ò: Excel 2000ª©¥»)

­º¥ý

Windows("»s§@¼t°Ó©ú²Óªí.xls").Activate

­Y "»s§@¼t°Ó©ú²Óªí.xls" ¬¡­¶Ã¯©|¥¼Åª¤J°O¾ÐÅ餤®É,
·|¥X²{¿ù»~°T®§ :

  °}¦C¯Á¤Þ¶W¥X½d³ò

¦]¬°¦b¤w¶}±Òªº ¬¡­¶Ã¯ª«¥ó¸s²Õ ¤¤§ä¤£¨ì¦³¦¹¦WºÙªº¬¡­¶Ã¯. (¥i¦b§Y®É¹Bºâµøµ¡¥Î for each a in Workbooks:debug.Print a.name:next ¨ú±o°O¾ÐÅé²{¦³¬¡­¶Ã¯¦WºÙ¦Cªí)


µM¦Ó

Workbooks.Open "C:\Users\Andy\Desktop\VBAµ{¦¡½X¬ö¿ý¥»\»s§@¼t°Ó©ú²Óªí\Á`¤½¥q¸ê®Æ.xlsm"  

«h¬O¨ì «ü©wªº¥Ø¿ý(­Y°Ñ¼Æ¦³§t¸ô®|) ©Î¬O ¥Ø«eªº¥Ø¿ý(¥i¥Î Curdir ¨ú±o) §ä¨ì¸ÓÀÉ®×¶}±Ò¨Ã³]¬° °µ°Ê¤¤,

¦ý­Y¦¹Àɮפw¦s¦b°O¾ÐÅ餤«h·|¸ß°Ý¬O§_­nÃö³¬¦A­«¶}¸ÓÀÉ®×.


·N§Y Activate ¬O¦b "°O¾ÐÅ餤" §ä¨ìª«¥ó(¹ï¶H¤£­­¬¡­¶Ã¯)¨Ã³]¬° °µ°Ê¤¤,

¦Ó Workbooks.Open ¬O¦b "µwºÐ¤¤" §ä¨ìÀÉ®×(¥u¯à¬OExcelÀÉ®×)¨Ã³]¬° °µ°Ê¤¤,

©Ò¥H­YÀÉ®×¥¼¶}«hÀ³¥Î Open ¶}±Ò, §_«hÀ³¥Î Activate ³]¬° °µ°Ê¤¤.


¦p¦ó±qB¬¡­¶Ã¯½Æ»s¨ìA¬¡­¶Ã¯

1. ¥ý¶}±Ò¤@­Ó¬¡­¶Ã¯,¦A±q¸Ó¬¡­¶Ã¯¤¤¥Î Workbooks.Open ¶}±Ò¥t¤@­Ó¬¡­¶Ã¯.(­Y­Ó§O¤â°Ê¶}±Ò¦³¥i¯à¤¬¬Û¬Ý¤£¨ì)

2. °õ¦æ¤U¦C«ü¥O :

Workbooks("¨Ó·½ÀÉ®×.xls").Sheets("­n«þ¨©ªº¤u§@ªí").Copy Before:=Workbooks("¥ØªºÀÉ®×.xls").Sheets(Sheets.Count)

TOP

        ÀR«ä¦Û¦b : ¤Hªº²´·úªø¦b«e­±¡A¥u¬Ý¨ì§O¤Hªº¯ÊÂI¡Aµ·²@¬Ý¤£¨ì¦Û¤vªº¯ÊÂI¡C
ªð¦^¦Cªí ¤W¤@¥DÃD