±qa.xls¸Ì±¥h°õ¦æb.xlsªºcommandbutton1¡Fc.xlsªºcommandbutton1.....µ¥
- ©«¤l
- 44
- ¥DÃD
- 7
- ºëµØ
- 0
- ¿n¤À
- 51
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- XP
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2012-11-18
- ³Ì«áµn¿ý
- 2022-8-6
|
±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 |
|
|
|
|
|
|
¡@¼ÊºÙ: ÀH·ÄÆ¿ºªº¦Ð¤ò ¡@ÀY»Î: [±s¥Î]¼ç¤ô¸¥
°ª¤¤¥Í
- ©«¤l
- 852
- ¥DÃD
- 79
- ºëµØ
- 0
- ¿n¤À
- 918
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows 7 , XP
- ³nÅ骩¥»
- Office 2007, Office 2003,Office 2010,YoZo Office
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¦t©z
- µù¥U®É¶¡
- 2011-4-8
- ³Ì«áµn¿ý
- 2024-2-21
|
¦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
|
|
|
|
|
- ©«¤l
- 44
- ¥DÃD
- 7
- ºëµØ
- 0
- ¿n¤À
- 51
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- XP
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2012-11-18
- ³Ì«áµn¿ý
- 2022-8-6
|
¦^´_ 2# mark15jill
·PÁ«üÂI~ §Y¨è¥h¬Ý¤å!! |
|
|
|
|
|
|
- ©«¤l
- 44
- ¥DÃD
- 7
- ºëµØ
- 0
- ¿n¤À
- 51
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- XP
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2012-11-18
- ³Ì«áµn¿ý
- 2022-8-6
|
¦^´_ 2# mark15jill
¼Ó¤Wªº¥ý¶i¡G- Workbooks.Open ("C:\Documents and Settings\¸ê®Æ®w\004.xls")
- Workbooks("004.xls").Activate
- Application.Run ("004.xls!Sheet1.CommandButton1_Click")
- Workbooks.Open ("C:\Documents and Settings\¸ê®Æ®w\005.xls")
- Workbooks("005.xls").Activate
- Application.Run ("005.xls!Sheet1.CommandButton1_Click")
½Æ»s¥N½X ¤Wzµ{¦¡½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 |
|
|
|
|
|
|
¡@¼ÊºÙ: ÀH·ÄÆ¿ºªº¦Ð¤ò ¡@ÀY»Î: [±s¥Î]¼ç¤ô¸¥
°ª¤¤¥Í
- ©«¤l
- 852
- ¥DÃD
- 79
- ºëµØ
- 0
- ¿n¤À
- 918
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows 7 , XP
- ³nÅ骩¥»
- Office 2007, Office 2003,Office 2010,YoZo Office
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¦t©z
- µù¥U®É¶¡
- 2011-4-8
- ³Ì«áµn¿ý
- 2024-2-21
|
¦^´_ mark15jill
¼Ó¤Wªº¥ý¶i¡G¤Wzµ{¦¡½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
|
|
|
|
|
- ©«¤l
- 44
- ¥DÃD
- 7
- ºëµØ
- 0
- ¿n¤À
- 51
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- XP
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2012-11-18
- ³Ì«áµn¿ý
- 2022-8-6
|
¦^´_ 5# mark15jill
ü§r¡K ¬O§Ú¥¢Â§¤F!!
§Ú§âÀɮשñ¤W¨Ó¡A©Î³\¤ñ¸û²M·¡
¥Dn¬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)
|
|
|
|
|
|
|
- ©«¤l
- 44
- ¥DÃD
- 7
- ºëµØ
- 0
- ¿n¤À
- 51
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- XP
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2012-11-18
- ³Ì«áµn¿ý
- 2022-8-6
|
¦^´_ 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þ¨à»¡ |
|
|
|
|
|
|
- ©«¤l
- 44
- ¥DÃD
- 7
- ºëµØ
- 0
- ¿n¤À
- 51
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- XP
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2012-11-18
- ³Ì«áµn¿ý
- 2022-8-6
|
¦^´_ 7# GBKEE
ªO¤j¡A¯à§_¦A¦¸½Ð±Ð- 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 ¤Wzªºµ{¦¡½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~ |
|
|
|
|
|
|
- ©«¤l
- 44
- ¥DÃD
- 7
- ºëµØ
- 0
- ¿n¤À
- 51
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- XP
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2012-11-18
- ³Ì«áµn¿ý
- 2022-8-6
|
¦^´_ 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)
|
|
|
|
|
|
|