±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

mark15jill

¦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

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

mark15jill

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

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

GBKEE

¦^´_ 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. 
   
9.     'Àɮפw±Ò®É    ¥u»Ý: ¬¡­¶Ã¯¦WºÙ!¼Ò²Õ¦WºÙ.µ{§Ç¦WºÙ
   
10.     Run "004.xls!¸ê®Æ§ó·s.§ó·s"
    
11.     Run "005.xls!¸ê®Æ§ó·s.§ó·s" '...
    
12.     Run "006.xls!¸ê®Æ§ó·s.§ó·s" '...
    
13.     Run "007.xls!¸ê®Æ§ó·s.§ó·s" '...
    
14. End Sub

½Æ»s¥N½X

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