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

word vbaªí®æ¶K¨ìexcel¦A¨ú¦^

¦bword©Mexcel³£­n¼g vba, word³¡¥÷¦p¤U:

Sub XLTest()

     Dim XL as Object

     Set XL = CreateObject("Excel.Application")

     XL.Workbooks.Open "C:\My Documents\ExcelFile.xls"


     '
     ' XL.Run "Module1.TestMacro"
     '
     '
     XL.Run "TestMacro"

End Sub

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¤Hªº§Ö¼Ö¡D¤£¬O¦]¬°¥L¾Ö¦³±o¦h¡A¦Ó¬O¦]¬°¥L­p¸û±o¤Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD