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

Word vba ¶}excel

¦^´_ 1# color790

WORD ªº VBA ¶}±ÒExcle »yªk
   Set MyXls = CreateObject("EXCEL.APPLICATION")
   MyXls..Visible = True
    http://forum.twbts.com/thread-1472-1-1.html

TOP

¦^´_ 4# color790
µ{§Çµ²§ô«á ·íµMExcel´Nµ²§ô¤F
°õ¦æet5323ªºµ{§Ç®É
¬O¦bword¸Ì°õ¦æ¶Ü?
word¸Ì¦³ªí®æ¶Ü?
¦³¤@­Ó¥H¦sÀɦbword¸ê®Æ§¨ªºbook1.xls¶Ü?

TOP

¦^´_ 6# color790
[·|¥X²{¤@¤U¤l,µM«áexcel´N¤£¨£¤F]  §Úµ¹ªº¥u¬O³¡¤Àªºµ{¦¡½X, ½Ðµ¹¬Ý¬Ý§Aªºµ{§Ç¦p¦ó¼g?

Set xlWk = .workbooks.Open(ThisDocument.Path & "\book1.xls")
¶}±Ò ¥Ø¿ý(ThisDocument.Path)¤Uªº book1.xlsÀÉ  
ThisDocument.Path->©Ò¶}±ÒªºdocÀÉ©Ò¦s©ñªº¥Ø¿ý,§A¦³¹w¥ý¦s©ñ¤@­Óbook1.xlsÀɶÜ?

TOP

        ÀR«ä¦Û¦b : ¨Ã«D¦³¿ú¾{¬O§Ö¼Ö¡A°Ý¤ßµL·\¤ß³Ì¦w¡C
ªð¦^¦Cªí ¤W¤@¥DÃD