ªð¦^¦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 : ¬Ý§O¤H¤£¶¶²´¡A¬O¦Û¤v­×¾i¤£°÷¡C
ªð¦^¦Cªí ¤W¤@¥DÃD