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

[µo°Ý] ¼Ò²Õ¬O§_¯à°÷¤£«]­­©ó³æ¤@excelÀÉ®×

[µo°Ý] ¼Ò²Õ¬O§_¯à°÷¤£«]­­©ó³æ¤@excelÀÉ®×

½Ð±Ð¦U¦ì¤j¤j
¦]¬°¥»¨­¤u§@¤Wªº»Ý¨D
¦³³]­p¤@¨Ç¼ÒèÊ¡A¤]·|®É±`§ó·s
¦ý¬OÀÉ®×±`±`·|³Q½Æ»s¨Ó½Æ»s¥h
¦Ó§Ú§ó·sªº¥¨¶°«o¨S¦³¸ò¨ì³o¨ÇÀÉ®×

¥Ø«e§Ú¥uª¾¹D¥Î¶×¤J¶×¥Xªº¤è¦¡
±N§Úªº¥¨¶°¸ü¤J¨ì§O¤HªºÀÉ®×

¤£ª¾¹D¬O§_¦³¨ä¥L¤è¦¡¯à°÷§ó²³æ¹F¦¨¦¹®ÄªG

¨Ò¦p¡G°õ¦æ¤@­Ó°õ¦æÀÉ«K¯à±N§Úreleaseµ¹¤j®aªº¥¨¶°¦Û°Ê¸ü¤J¨ì¤j®aªºexcelÀɮ׸Ì

§Úªº°ÝÃD¥Î¤å¦r±Ô­z¦ü¥G¤ñ¸ûÃøÅý¤H²z¸Ñ..
¤]§Æ±æ¤j¤j¯à°÷¸Ñµª
¦pªG¦³¤j¤j¤£À´±o§Úªº·N«ä~¤]½Ð¸ß°Ý
ÁÂÁÂ

TOP

¥»©«³Ì«á¥Ñ alumi ©ó 2012-6-1 00:51 ½s¿è

¦^´_ 1# a703130


    ¤W­±ªº¤j¤j,¥i¯à»~·|­ì PO ¤åªÌªº·N«ä.

    ´N¬O¦p¦óÅý VBA ªº¼Ò²Õ, Åܦ¨¬O¤½¥Îªº Library, ¦Ó¤£¬OÀHµÛ Excel ÀÉ®×, ¥|³Bº}¬y.

    §Úªº¤g¤èªk¬O ²§°Ê Personal.xls (¸Ì§t±z©Ò¼gªº VBA)

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2012-6-1 07:25 ½s¿è

¦^´_ 3# alumi
  1. '«Ø¥ß¤@¼Ò²Õ¦WºÙ¬°¥Dµ{¦¡¤ºªºµ{§Ç
  2. Option Explicit
  3. Private Sub Auto_Open()              'Àɮ׶}±Ò®É¦Û°Ê°õ¦æªºµ{¦¡
  4.     Dim xlvbe As Variant, xlArray(), xlPath As String
  5.     xlPath = "D:\¼Ò²Õ°Ï\"                                   '¼Ò²Õ¦s©ñ¸ô¶i
  6.     xlArray = Array("¼Ò²Õ1.bas", "¼Ò²Õ2.bas", "¼Ò²Õ3.bas")  '°}¦C:§ó·sªº¼Ò²Õ
  7.     With ThisWorkbook.VBProject
  8.         For Each xlvbe In .VBComponents
  9.             If xlvbe.Name <> "¥Dµ{¦¡" And xlvbe.Type = vbext_wt_Designer Then  'xlVba.Type = 1 ¼Ò²Õ
  10.                 .VBComponents.Remove xlvbe             '²¾°£©Ò¦³¼Ò²Õ ¤£¥]§t"¥Dµ{¦¡"
  11.             End If
  12.         Next
  13.         For Each xlvbe In xlArray
  14.             If Dir(xlPath & xlvbe) <> "" Then .VBComponents.Import xlPath & xlvbe
  15.             'Import ¶×¤J¼Ò²Õ
  16.         Next
  17.     End With
  18. End Sub
½Æ»s¥N½X

TOP

¦^´_ 1# a703130

³oÃþªº¤½¦@µ{¦¡°µ¦¨¼W¯q¶°
¨ì¶·­n¨Ï¥Î³o¨Çµ{¦¡ªº¹q¸£¦w¸Ë¼W¯q¶°§Y¥i
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 4# GBKEE

¦hÁ¤j¤j«ü¾É

©êºp³o»ò±ß¤~¦^ÂФ峹

TOP

        ÀR«ä¦Û¦b : ¬O«D·í±Ð¨|¡AÆg¬ü§@ĵ±§¡C
ªð¦^¦Cªí ¤W¤@¥DÃD