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

color790

½Ð°Ý....§Ú¦³­Ó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)

¤U¸ü¦¸¼Æ: 11

2010-10-25 22:38

color790

¥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

color790

¦^´_ 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 ....

et5323

¦bsub yy¤¤将Workbooks(2)¥Î¥N码¥´开,将 Workbooks(2).Activate §ï为: Workbooks.open Workbooks(2)ªº¥þ¸ô径¤å¥ó¦W

还¦³,为¤°¤\¤£§âSub yyªº¥N码³£²¾´Ó¨ìWord¨½©O?

color790

¦^´_ 4# et5323

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

et5323

1. ¦bWord¨½¥´开ªºbook2.xls ©M§A¥Î¤â¤u¥´开ªºWorkbooks(2)¦}¤£¦b¦P¤@个Application进µ{¨½(¥Îctrl+alt+del调¥X"¥ô务ºÞ²z¾¹",§A会发现¦³两个EXcel进µ{),Workbooks(2).Activate会¥X错.

2. ¬O For i = 0 To 11 还¬O For i = 0 To 1?
ary2 = Array(.[e74], .[e75]), ary2¥u¦³2维,ary2(11)¤]会¥X错.

color790

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

oobird

"copy¦Ü¥t¤@­Ó¯S©wªºexcel(¦ýÀɦW³£¤£©T©w), "
§A¨S¦³¶}±Ò³o­Ó¯S©w¬¡­¶Ã¯ªº«ü¥O¡C