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

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

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

½Ð°Ý§Ú¦³¤@­Ówordªí®æ»ÝŪ¨ú¨ìexcel¸Ì­±¡A
ªí®æ¦p¤U¡G


¥H¤U¬°µ{¦¡½X¡G
  1. With WDapp.Documents(file1).Tables(1)
  2.     For r = 2 To .Rows.Count
  3.         For c = 1 To .Columns.Count
  4.             Cells(r, c) = .Cell(r, c)
  5.         Next c
  6.     Next r
  7. End With
½Æ»s¥N½X
§ì¨ì¼ÐÃD 111 222 333 ¥H«á´N·|¥X°ÝÃD¡A½Ð°Ý¦X¨ÖÀx¦s®æªº°ÝÃD­n¦p¦ó³B²z?

¦^´_ 3# warhead
Wordªºªí®æ¶¶§Ç¬O¹³©³¤U³o¼Ëªº :

±q¤W¨ì¤U,
±q¥ª¨ì¥k,
¥H®æ¤lªº¥ª¤W¨¤¬°°ò·ÇÂI,
¥ý¨ì¥ý½s,
©Ò¥H«ÜÃø³v®æ¨ú­È¨ìExcel.

¥t¤@­Ó¥i¯à¥i¦æªº¤èªk´N¬Oª½±µ Copy ¾ã­Óªí®æ¶K¨ìExcel¸Ì,
±µµÛ­n«ç»ò½Õ¾ã´N³æ¯Â¬OExcelªº¨Æ¤F.

TOP

¦^´_ 2# n7822123


    ·PÁ¡Aµ{¦¡¥i¥Î¡A®æ¤l³¡¤À§Ú¦b·Q¿ìªk..

TOP

¦^´_ 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 : µêªÅ¦³ºÉ¡D§ÚÄ@µL½a¡AµoÄ@®e©ö¦æÄ@Ãø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD