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

[µo°Ý] application.run µLªk©I¥s°õ¦æ¥¨¶°

¦^´_ 3# GBKEE
·s¼W¤@¬¡­¶Ã¯¡A ThisWorkbook ¤º®e¦p¤U¡G
  1. Sub Tx()
  2.     Application.Run ("'pay.xls'!ThisWorkbook.Ex")
  3.     MsgBox ("§¹¦¨¤F¡I")
  4. End Sub
½Æ»s¥N½X
°²³]¥h°õ¦æ "¦h±i¤u§@ªí¥t¦s¬¡­¶Ã¯¤Î§ì¦í¹w³]±K½X" ªº´£°ÝÀÉ
pay.xls ªº Sub Ex()¡C
¦]¬°¥»¤å·í¨Æ¤H¥¼¦^ÂСA©Ò¥H§Ú«K¥H¤µ¦­ªº°ÝÃD¨Ó§@µª¤F¡C

TOP

        ÀR«ä¦Û¦b : ºw¤ô¦¨ªe¡C²É¦Ì¦¨ÅÚ¡A¤Å»´¤vÆF¡A¤Å¥Hµ½¤p¦Ó¤£¬°¡C
ªð¦^¦Cªí ¤W¤@¥DÃD