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

½Ð±ÐExcel vb ¦p¦ó»s§@±±¨î"¤Þ¥Î¶µ¥Ø"ªºµ{¦¡½X

½Ð±ÐExcel vb ¦p¦ó»s§@±±¨î"¤Þ¥Î¶µ¥Ø"ªºµ{¦¡½X


³ÌªñÀ°§O¤H¼g¤FExcel VB¡A¥i¬O·í§ÚªºÀÉ®×±Hµ¹¹ï¤è®É¡A«o¥X²{µLªk¨Ï¥Î¡A®Ú¾Ú¥H«eªº¸gÅçÀ³¸Ó¬O"¤Þ¥Î¶µ¥Ø"ªº°ÝÃD¡AªGµM¡A¹q¸Ü§i¶D¹ï¤è¤Ä¿ï­þ´X­Ó"¤Þ¥Î¶µ¥Ø"«á´N¥¿±`¤F¡A

¬Û«H¬Ý¦b¦U¦ì¯«¤H²´¸Ì¡A¤@©w·|ı±o³o¤£¬O³Ì¦nªº¸Ñ¨M¿ìªk¡A¤]¹H¤ÏªºExcel VBªº¦Û°Ê¤Æºë¯«¡A¦]¦¹¡AµwµÛÀY¥Ö¨Ó½Ð±Ð¦U¦ì¯«¤H¡A

½Ð°ÝÀ³¸Ó¦p¦ó¥HVB¨Ó¼¶¼gµ{¦¡½X¡A¨Ï¨ä¦Û°Ê§P§O¬O§_»Ý­n¤Ä¿ï"¤Þ¥Î¶µ¥Ø"¡A¥H§Q«áÄòµ{¦¡½X¥¿±`°õ¦æ¡C
§Ú¬O´µ¦h

¦^´_ 1# reangame
·s¼W¤Þ¥Î¶µ¥Ø (ºK¦Ûºô¸ô)
  1. Sub myAddRef(strFname As String)
  2.     'strName: ¤Þ¥Î¶µ¥ØÀɮצWºÙ
  3.     'C:\windows\system32\ ¸ô®|¾A¥Î XP ¤Î VISTA
  4.     '2000 ½Ð§ï¥Î c:\winnt\system32\
  5.      On Error Resume Next
  6.     ThisWorkbook.VBProject.References.AddFromFile "C:\windows\system32\" & strFname
  7. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 2# GBKEE


    ¤j¤j¡A½Ð±Ð¤@¤U¡A¹³¤U¹Ïªº¤Þ¥Î¶µ¥Ø¦p¦ó§ä¨ì¹ïÀ³ªºÀÉ®×?
§Ú¬O´µ¦h

TOP

¦^´_ 2# GBKEE


    ¤£¦n·N«ä¡A¦A½Ð±Ð¤@­Ó°ÝÃD¡A½Ð°Ý±z¬O«ç¼Ë¥Î¦^´_ªº?  ¬°¤°»òµ{¦¡½X«e­±ÁÙ·|¦³¼Æ¦r? ³Ì¤U­±ÁÙ¦³½Æ»sµ{¦¡½Xªº¥\¯à?
§Ú¬O´µ¦h

TOP

¦^´_ 3# reangame °Ñ¦Ò³o¸Ì

¦^´_ 4# reangame

·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 5# GBKEE


    «D±`·PÁ¤j¤jªº«ü¾É¡A¨Ó¥h¦n¦n¿Ä·|³e³q¤@¤U¡A·P®¦³á~~  ^^
§Ú¬O´µ¦h

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