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

Excel Ū¨ú Word ªí®æ°ÝÃD

¦^´_ 1# warhead


¦pªG¥u­nªí®æ¤ºªº­È¡A¥i¥H³o¼Ë¼g

°ò¥»¤W¸ê®Æ³£Åª±o¥X¨Ó¡A¦ý¬O¦ì¸m´N.........

¹ï©óWord¡A§Ú¥u¯àÀ°¨ì³o¤F


With WDapp.Documents(file1).Tables(1)
    xText = .Range.Text
    xText = Replace(xText, Chr(13) & Chr(7), ",")
    RowArr = Split(xText, ",,")
    For R = 0 To UBound(RowArr)
        ColArr = Split(RowArr(R), ",")
        For C = 0 To UBound(ColArr)
            Cells(R + 1, C + 1) = ColArr(C)
        Next C
    Next R
End With  
µ{¦¡¬O¨Ì»Ý¨D¼gªº¡A»Ý¨Dªí¹F¤£²M·¡
©ÎªÌ¨S¦³¤W¶Çªþ¥ó¡A·R²ö¯à§U

TOP

        ÀR«ä¦Û¦b : ¥Í®ð¡A´N¬O®³§O¤Hªº¹L¿ù¨ÓÃg»@¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD