ªð¦^¦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 : µÊ®ð¼L¤Ú¤£¦n¡A¤ß¦a¦A¦n¤]¤£¯àºâ¬O¦n¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD