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

[µo°Ý] ¦Û°Ê¦C¥X¸ê®Æ§¨¤¤©Ò¦³Àɮשó¦sÀx¦s®æ¤¤+¦Û°Ê«Ø¥ß¶W³sµ²

[µo°Ý] ¦Û°Ê¦C¥X¸ê®Æ§¨¤¤©Ò¦³Àɮשó¦sÀx¦s®æ¤¤+¦Û°Ê«Ø¥ß¶W³sµ²

dear all ¤j¤j
1.¦p¹Ï¤@¥\¯à¬° "¦Û°Ê¦C¥X¸ê®Æ§¨¤¤©Ò¦³ÀɮצWºÙ©ó¦sÀx¦s®æ¤¤+¦Û°Ê«Ø¥ß¶W³sµ²"
2.¦ý¤p§Ì¸ê®Æ©ó C:\AAA\¤UÁÙ¦³¤@°ï¤l¸ê®Æ§¨(¨Ò:C:\AAA\111 C:\AAA\222 C:\AAA\333......).¨ä¤º¦U¦³excelÀÉ®×.
3.¦p¦ó­×§ï¹Ï¤@ Åý¨ä°£§ì¨ú¨ì  C:\AAA\ ¤U¤§EXCEL   ÁÙ¥i¦Û°Ê§ì¨ì¨ä¥L   ¤l¸ê®Æ§¨¤º¤§ EXCEL °õ¦æ"©Ò¦³ÀɮצWºÙ©ó¦sÀx¦s®æ¤¤+¦Û°Ê«Ø¥ß¶W³sµ²"
4.·Ð¤£§[½ç±Ð.  THANKS*10000

¹Ï¤@
Sub yy()
Dim s$, mpath$, mypath$, myname$, i%
s = "*.xls"
mpath = "C:\AAA\"
mypath = mpath & s
myname = Dir(mypath, vbNormal)
i = 1
Do While myname <> ""
Cells(i, 1) = myname
ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 1), Address:= _
mpath & myname, TextToDisplay:=Cells(i, 1).Text
  i = i + 1
myname = Dir
Loop
End Sub
ù

        ÀR«ä¦Û¦b : ¦³®É·í«äµL®É­W¡A¦n¤Ñ­n¿n«B¨Ó³¡C
ªð¦^¦Cªí ¤W¤@¥DÃD