Word«ç»ò¥Îvba¶}excel

color790

½Ð°ÝWord«ç»ò¥Îvba¶}excel??
¥Hword vba§âword ©Ò¦³¤º®ecopy¦ÜªÅ¥Õªºexcel¡AµM«á¦A¥Îexcel vba copy¦Ü«ü©wªºexcel¤º

color790

½Ð°Ý......¤U­±ªº¥¨¶°¬°¤°»ò­n¼g¦bÀɮ׸̪º¼Ò²Õ,¦Ó¤£¯à¼g¦bnormal¸Ìªº¼Ò²Õ???

Sub test()
    Dim xlWkApp As Object, xlWk As Object
    Set xlWkApp = CreateObject("excel.application")
    With xlWkApp
        .Visible = True
        Set xlWk = .Workbooks.Open("C:\book2.xls")
        xlWk.Sheets(1).Range("a1") = ThisDocument.Tables(2).Cell(2, 6)
    End With
End Sub

color790

^^, ¤Ó·PÁÂGBKEEª©¥D¤F~