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

Word«ç»ò¥Îvba¶}excel

Word«ç»ò¥Îvba¶}excel

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

½Ð°Ý......¤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
ªì¾ÇªÌcolor

TOP

^^, ¤Ó·PÁÂGBKEEª©¥D¤F~
ªì¾ÇªÌcolor

TOP

        ÀR«ä¦Û¦b : ª¾ÃÑ­n¥Î¤ßÅé·|¡A¤~¯àÅܦ¨¦Û¤vªº´¼¼z¡C
ªð¦^¦Cªí ¤W¤@¥DÃD