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

±qa.xls¸Ì­±¥h°õ¦æb.xlsªºcommandbutton1¡Fc.xlsªºcommandbutton1.....µ¥

±qa.xls¸Ì­±¥h°õ¦æb.xlsªºcommandbutton1¡Fc.xlsªºcommandbutton1.....µ¥

¦pÃD¡A
Private Sub CommandButton1_Click()
Call §ó·s
Workbooks.Open ("C:\Documents and Settings\b.xls")  '©I¥sb.xlsªº¼Ò²Õ
Application.Run ("b.xls!Sheet1.CommandButton1_Click")

Workbooks.Open ("C:\Documents and Settings\c.xls")
Application.Run ("c.xls!Sheet1.CommandButton1_Click")

Workbooks.Open ("C:\Documents and Settings\d.xls")
Application.Run ("d.xls!Sheet1.CommandButton1_Click")
end sub
---------------------------------------------------------------------------------------------------¥H¤W¬O§Úªºµ{¦¡½X
¥i¬O§Ú«öF8¤@¦æ¤@¦æ¥h°õ¦æ®É¤£ª¾¹D¬°¤°»ò³£°õ¦æ¨ìb.xls«á¡A´N¸õ¨ì¤F ²Ä1¦æªºµ{¦¡¥h¤F
½Ð°Ý¿ù¦b­þ¨à©O¡H

¦pÃD¡A
Private Sub CommandButton1_Click()
Call §ó·s
Workbooks.Open ("C:\Documents and Settings\b. ...
gkld µoªí©ó 2013-4-10 21:52


°Ñ¦Ò

¼Ò²Õ©I¥s

  ¦h°µ¦h·Q¦h¾Ç²ß¡A¤Ö¬Ý¤Ö¿ù¤Ö°g³~

  ¦h°µ=¦h¦h½m²ß¡A¦h¦h½s¼g¡C
  ¦h·Q=·Q·Q¬°¤°»ò¤H®aµ{¦¡­n¨º¼Ë¼g¡A¦pªG´«¦¨¦Û¤v¡A¤S·|«ç¼g¡C
  ¦h¾Ç²ß=¾Ç²ß¤H®aªºµo°Ý¨Ã¸Ñµª¡A¾Ç²ß¤H®aªº¼gªk

  ¤Ö¬Ý=¥u¬Ý¤£°µ¤]ªPµM

TOP

¦^´_ 2# mark15jill

·PÁ«üÂI~ §Y¨è¥h¬Ý¤å!!

TOP

¦^´_ 2# mark15jill

¼Ó¤Wªº¥ý¶i¡G
  1. Workbooks.Open ("C:\Documents and Settings\¸ê®Æ®w\004.xls")
  2. Workbooks("004.xls").Activate
  3. Application.Run ("004.xls!Sheet1.CommandButton1_Click")

  4. Workbooks.Open ("C:\Documents and Settings\¸ê®Æ®w\005.xls")
  5. Workbooks("005.xls").Activate
  6. Application.Run ("005.xls!Sheet1.CommandButton1_Click")
½Æ»s¥N½X
¤W­zµ{¦¡½X¬Oa.xls¸Ì­±ªº¤@­Ó¼Ò²Õ

§A¤À¦ëªº¤å³¹¡A¦P¼Ë³£¬O¨Ï¥Î¨ì application.run
©Ò¥H§Ú³o¼Ëªº¼gªkÀ³¸Ó¤]¬O¦P¼Ë·N«ä
¥u¬O§Ú¤£¤F¸Ñ¡K¬°¦ó§Ú°õ¦æ°_¨Ó¡A¨º­Ó004Àɮ׸̪ºcommandbutton1¬O¥i¥H³Q©I¥s¥X¨Óªº
¦ý¬O¤§«áµ{¦¡´Nµ²§ô¤F¡AµLªk°õ¦æ¨ì005.xlsªºcommandbutton1

TOP

¦^´_  mark15jill

¼Ó¤Wªº¥ý¶i¡G¤W­zµ{¦¡½X¬Oa.xls¸Ì­±ªº¤@­Ó¼Ò²Õ

§A¤À¦ëªº¤å³¹¡A¦P¼Ë³£¬O¨Ï¥Î¨ì app ...
gkld µoªí©ó 2013-4-11 20:41



    ¦Ñ¸Ü±`½Í... No Have ÀÉ®×   No Have Answer...

  ¦h°µ¦h·Q¦h¾Ç²ß¡A¤Ö¬Ý¤Ö¿ù¤Ö°g³~

  ¦h°µ=¦h¦h½m²ß¡A¦h¦h½s¼g¡C
  ¦h·Q=·Q·Q¬°¤°»ò¤H®aµ{¦¡­n¨º¼Ë¼g¡A¦pªG´«¦¨¦Û¤v¡A¤S·|«ç¼g¡C
  ¦h¾Ç²ß=¾Ç²ß¤H®aªºµo°Ý¨Ã¸Ñµª¡A¾Ç²ß¤H®aªº¼gªk

  ¤Ö¬Ý=¥u¬Ý¤£°µ¤]ªPµM

TOP

¦^´_ 5# mark15jill

­ü§r¡K ¬O§Ú¥¢Â§¤F!!

§Ú§âÀɮשñ¤W¨Ó¡A©Î³\¤ñ¸û²M·¡

¥D­n¬O§Ú­n°õ¦æ001.xlsªº¡u§ó·s¸ê®Æ¡v«ö§á¡A·Q³z¹L³o­Ó°Ê§@¥h©I¥s004.xls¸ÌªºCommandButton1¡B005xlsªºCommandButton1

015.xls¸ÌªºCommandButton1¡Kµ¥§ó¦hxls¸ÌªºCommandButton1¡A¦ý¬O³£¬O¥u¶]¨ì004.xls¸ÌªºCommandButton1«á¡A´N°±¤F

¦A½Ð¦U¦ì°ª¤âÄÀºÃ¡C

·s¸ê®Æ§¨.rar (260.4 KB)

TOP

¦^´_ 6# gkld
¬O³o¼Ëªº
  1. Sub §ó·s() '001.xlsªº¡u§ó·s¸ê®Æ¡v
  2.     Dim m As Date, n As Date
  3.     Dim XPath As String
  4.     XPath = ThisWorkbook.Path
  5.     '§Aªº©Ò¦³Àɮ׳£¦b¦P¤@¸ê®Æ§¨:  C:\Documents and Settings\gkld\My Documents\
  6.     'ÀÉ®×¥¼¶}±Ò:    ÀɮצWºÙ»Ý¬O§¹¾ãÀɮצWºÙ «e«á ¥[ ' ->   'ÀɮצWºÙ'!¼Ò²Õ¦WºÙ.µ{§Ç¦WºÙ
  7.     Run "'" & ThisWorkbook.Path & "\004.xls'!¸ê®Æ§ó·s.§ó·s"

  8.     'Àɮפw±Ò®É    ¥u»Ý: ¬¡­¶Ã¯¦WºÙ!¼Ò²Õ¦WºÙ.µ{§Ç¦WºÙ
  9.     Run "004.xls!¸ê®Æ§ó·s.§ó·s"
  10.     Run "005.xls!¸ê®Æ§ó·s.§ó·s" '...
  11.     Run "006.xls!¸ê®Æ§ó·s.§ó·s" '...
  12.     Run "007.xls!¸ê®Æ§ó·s.§ó·s" '...
  13. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 7# GBKEE
®@¡K­ì¨ÓÁÙ¥i¥H³o¼Ë§r!¡H «Ý·|¦A¥h¶]¶]¬Ý

¥i¬OªO¤j¡K§ÚÁÙ¬O«Ü¦n©_¡K­ì¥»ªº¼gªk ¬O¿ù¦b­þ¨à¡H

§Ú°õ¦æ®É¡A¨S¦³¥X²{¿ù»~¡A¦ý«o¥u¬O¶]¨ì§ó·s§¹ 004.xlsªºÀÉ®×´N¸õ¥X¨Ó¤F¡Aµ²§ô¤F

¤£¾å±o­ì¦]¥X¦b­þ¨à»¡

TOP

¦^´_ 7# GBKEE
ªO¤j¡A¯à§_¦A¦¸½Ð±Ð
  1.    1. Workbooks.Open ("C:\Documents and Settings\¸ê®Æ®w\004.xls")
  2.    2. Workbooks("004.xls").Activate
  3.    3. Application.Run ("004.xls!Sheet1.CommandButton1_Click")
  4.    4.

  5.    5. Workbooks.Open ("C:\Documents and Settings\¸ê®Æ®w\005.xls")
  6.    6. Workbooks("005.xls").Activate
  7.    7. Application.Run ("005.xls!Sheet1.CommandButton1_Click")
½Æ»s¥N½X
¤W­zªºµ{¦¡½X¡A»P§A©Ò«ü¾Éªº ¡u¡BÀɮפw±Ò®É    ¥u»Ý: ¬¡­¶Ã¯¦WºÙ!¼Ò²Õ¦WºÙ.µ{§Ç¦WºÙ¡v
¬O§_¤@­P¡H¡H
¤p§Ì¤£¬O«Ü¤F¸Ñ¡A¬°¦ó§Ú©Ò¼gªºµ{¦¡½X¡A³o¼Ë¥u¯à°õ¦æ¨ì004.xls!Sheet1.CommandButton1_Click§¹«á¡A´N¨S¤F
«á­±ªº005.xls!Sheet1.CommandButton1_Click´N¨S¦³°õ¦æ¤F
¦Ó¥BÁÙ¬O¦b¨S¦³¥X²{°»¿ùªº±¡ªp¤U~

TOP

¦^´_ 7# GBKEE
ªO¤j¡A§Ú¨Ì§Aªº«ü¾É­×¥¿¤F001.xlsªºµ{¦¡½X«á¡A
¤]¬O­±Á{¤F¦P¼Ëªº°ÝÃD»¡¡A³£¬O°õ¨ì¤F004.xlsªºRun "'" & XPath & "\004.xls'!¸ê®Æ§ó·s.§ó·s"«á¡A´N¸õ¥X¨Ó¤F
§Úªþ¤W¬ÛÃöÀÉ®×
¦A½ÐÄÀºÃ §ó·s.rar (324.14 KB)

TOP

        ÀR«ä¦Û¦b : ¤f»¡¤@¥y¦n¸Ü¡A¦p¤f¥X½¬ªá¡F¤f»¡¤@¥yÃa¸Ü¦p¤f¦R¬r³D¡C
ªð¦^¦Cªí ¤W¤@¥DÃD