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

½Ð°Ý....word±±¨îexcel vba?

½Ð°Ý....word±±¨îexcel vba?

½Ð°Ý....§Ú¦³­ÓwordÀɥΥ¨¶°Âনexcel, µM«áª½±µrun excel¤ºªº¥¨¶°copy¦Ü¥t¤@­Ó¯S©wªºexcel(¦ýÀɦW³£¤£©T©w), ¦ý¦b¬O¦A³Ì«á°õ¦æexcelªº¥¨¶°«á¦³°ÝÃD?¥i¥HÀ°§Ú¸Ñ¤@¤U¶Ü?ÁÂÁÂ~


123.rar (17.88 KB)
ªì¾ÇªÌcolor

¯S©wªº¬¡­¶Ã¯·|¥ý¶},¥Ñ©ó¬O¥Î2010ª©,©Ò¥H¶}±Ò®É³£·|¦h¤@­Ópersonal ¬¡­¶Ã¯, ©Ò¥H¯S©wªº¬¡­¶Ã¯·|±Æ¦b²Ä2­Ó
ªì¾ÇªÌcolor

TOP

¦^´_ 4# et5323

ÁÂÁ¦^µª~~~
1.©Ò¥H....À³¸Ó¬OµLªk¥Hword°õ¦æexcelªºvba? ÁÙ¬O¦³¨ä¥L§ó¦nªº¤èªk
2.µ§»~.....¤£¦n·N«ä~ ^^"
ªì¾ÇªÌcolor

TOP

¥»©«³Ì«á¥Ñ color790 ©ó 2010-10-26 22:11 ½s¿è

¦^´_ 6# et5323

¥Ñ©ó¯S©wªºexcelÀÉ,¬O¥Ñ¤½¥q¨t²Î§ìªº,©Ò¥HµLªk±oª¾¸ô®|.....
word»Pexcel vba­ì¨Ó¦³³q¥Î.....§Ú¥H¬°¬OwordÂkword, excelÂkexcel =.=||| §Ú¦A¨Ó¸Õ¸Õ¦n¤F

¥\¤O¤£°÷,COPY¶iword ¦æ¤£³q ....
ªì¾ÇªÌcolor

TOP

¥t¥~½Ð°Ý¤@¤U,¥H¤U¬°wordªºvba, ­n«ç»ò§ïÂà¨ìexcel«áªº¦r«¬¤Î®æ¦¡(®æ½u,¸m¤¤µ¥....)
Sub test()
    Dim xlWkApp As Object, xlWk As Object
    Set xlWkApp = CreateObject("excel.application")
    With xlWkApp
        .Visible = True
        Set xlWk = .Workbooks.Add
        xlWk.Sheets(1).Range("a1") = ThisDocument.Tables(2).Cell(2, 6)
        xlWk.Sheets(1).Range("a2") = ThisDocument.Tables(2).Cell(5, 6)
        End With
End Sub
ªì¾ÇªÌcolor

TOP

        ÀR«ä¦Û¦b : ¤Ó¶§¥ú¤j¡B¤÷¥À®¦¤j¡B§g¤l¶q¤j¡A¤p¤H®ð¤j¡C
ªð¦^¦Cªí ¤W¤@¥DÃD