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

[µo°Ý] ¦p¦ó±NVBAªº¸ô®|§ï«ü©w¨ìEXCEL¤W¡A¦n¤è«KÅý¨Ï¥ÎªÌ§ó§ï¡C

¦^´_ 1# RCRG
¥H§A¥Ø«eµ{¦¡½X¬O¶}±ÒÀɮ׫á¦A¤£Àx¦s­×§ïÃö³¬ÀɮסA¨Ã¥BÃö³¬EXCEL
¨º»ò¶}Àɮɶ¡¤@ÂIÃö«Y¤]¨S¦³°Ú
­nÅý¨Ï¥ÎªÌ§ó§ï¶}±ÒÀɮ׸ô®|¤èªk¤£¥u¤@­Ó
³Ì²³æªº¥Î¶}±ÒÂÂÀɹï¸Ü¤è¶ô
  1. Sub ex()
  2. fs = Application.GetOpenFilename
  3. With Workbooks.Open(fs)
  4. '¦b¦¹°Ï¬q¼g¤J§A·Q¹ï³Q¶}±ÒÀÉ®×°õ¦æªº°Ê§@
  5. .Close 1 'Àx¦sÅܧó«áÃö³¬ÀÉ®×
  6. End With
  7. Application.Quit 'Â÷¶}EXCEL
  8. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¤Hªº§Ö¼Ö¡D¤£¬O¦]¬°¥L¾Ö¦³±o¦h¡A¦Ó¬O¦]¬°¥L­p¸û±o¤Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD