Book1©I¥lBook2ªº¥¨¶°¤§«á¡ABook1¥¨¶°¤£¯àÄ~Äò
- ©«¤l
- 34
- ¥DÃD
- 14
- ºëµØ
- 0
- ¿n¤À
- 61
- ÂI¦W
- 0
- §@·~¨t²Î
- Winxp
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2014-1-25
- ³Ì«áµn¿ý
- 2019-3-4
|
Book1©I¥lBook2ªº¥¨¶°¤§«á¡ABook1¥¨¶°¤£¯àÄ~Äò
¦pÃD¡A½Ð«ü±Ð¡IÁÂÁ¡I
¨S¥[¤J¥H¤UÂŦâµ{¦¡½X«e
Output(¥¿±`):
AAA
BBB
CCC
¦ý¥[¤J¥H¤UÂŦâµ{¦¡½X«á
Output:
AAA
BBB
[D:\temp\Test\Book1.xlsm]
Sub Macro1()
MsgBox ("AAA")
Application.Run "'D:\temp\Test\Book2.xlsm'!Macro1"
MsgBox ("CCC")
End Sub
[D:\temp\Test\Book2.xlsm]
Sub Macro1()
MsgBox ("BBB")
ThisWorkbook.Close False '¥[¤J³o«ü¥O«á¡A¤£¯àÄ~Äò Book1.xlsm!Macro1 ¾l¤Uµ{§Ç(¬õ¦r³¡¥÷)
End Sub |
|
|
|
|
|
|