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

[µo°Ý] EXCEL¦YWord¸ê®Æ

[µo°Ý] EXCEL¦YWord¸ê®Æ

¦pÃDwordªº«ü©wÄæ¦ì¥i¥H¥H¡A½Æ»s¦bexcel¶K¤W³sµ²ªº¤è¦¡³s±µ¸ê®Æ

excel ·|Åã¥Ü=Word.Document.8|'H:\Book1.doc'!'!OLE_LINK1'

¦³¨S¦³¤°»ò§Ö³t¤@ÂIªº¤è¦¡¾ã²zEXCELªº¸ê®Æ..

§Ú¦³´X¦Ê­ÓÀÉ®×­n³s·|ºÆ±¼ =    =" ¥u­nword§ó·sexcel¤]·|¸òµÛ§ó·s´N¥i¥H¤F ~"~

¨D°ª¤â!!

¦^´_ 1# jhwish

§c¡A¤p§Ì¤]¬O·s¤â¡A¤£ª¾ª©¤jªº·N«ä¬O¤£¬O¶W³sµ²¥á¤J°j°éªº·N«ä¡A¥H¤U¬O¤p§Ìªº¬Y¤@­ÓÀÉ®×¥i¥H°µ°Ñ¦Ò
  1. Sub ¶W³sµ²()
  2.     Dim i As Long
  3.     With Worksheets("Sheet1") '§A­n¿ïªº¸ê®Æªí
  4.         For i = 2 To 152
  5.             On Error Resume Next
  6.             .Cells(i, 4).Hyperlinks.Delete
  7.             On Error GoTo 0
  8.             .Hyperlinks.Add Anchor:=.Cells(i, 4), _
  9.             Address:="LIST\Section" & Left(.Cells(i, 4).Text, 1) & "\" & .Cells(i, 4).Text, _
  10.             TextToDisplay:=.Cells(i, 4).Text  '¶W³sµ²ªº¸ê®Æ§¨¤Î¸ê®Æ¸ô®|, ¦ý§Úªº¬O¤å¦rÀɧΦ¡, word....À³¸Ó¥i¥H§a....
  11.         Next
  12.     End With
  13. End Sub
½Æ»s¥N½X
ªì·sªÌ~«ü±ÐÅo~

TOP

        ÀR«ä¦Û¦b : ¹D¼w¬O´£ª@¦Û§Úªº©ú¿O¡A¤£¸Ó¬O¨þ¥¸§O¤HªºÃ@¤l¡C
ªð¦^¦Cªí ¤W¤@¥DÃD