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

gkld

¦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

gkld

¦^´_ 2# mark15jill

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

gkld

¦^´_ 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. 
   
5. Workbooks.Open ("C:\Documents and Settings\¸ê®Æ®w\005.xls")
   
6. Workbooks("005.xls").Activate
   
7. 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

gkld

¦^´_ 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)

¤U¸ü¦¸¼Æ: 5

2013-4-12 18:45

gkld

¦^´_ 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­þ¨à»¡

gkld

¦^´_ 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. 
   
6.    5. Workbooks.Open ("C:\Documents and Settings\¸ê®Æ®w\005.xls")
   
7.    6. Workbooks("005.xls").Activate
   
8.    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~

gkld

¦^´_ 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)

¤U¸ü¦¸¼Æ: 4

2013-4-13 22:42

gkld

¦^´_ 11# GBKEE


«x¡H§Ú¥»¨Ó¤]¦³·Q¹L¬O¤£¬O¡y'Workbooks("004.xls").Close ¡z³y¦¨ªº
¦ý¬O«á¨Ó§Ú·Q
§Ú¥D­n¤£¬O¦b°õ¦æ001.xls sheet1ªºµ{§Ç¶Ü¡H
§ÚÃö³¬ªº¬O¨ä¥¦«D001.xlsªº¬¡­¶Ã¯¡AÃø¹D³o¼Ë¤]·|°±¤î¤F001.xls sheet1 VBAªº¹B§@¶Ü¡H
§Ú¯uªº¨S¦³³o¤è­±ªºÆ[©À~