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

[µo°Ý] excel­Y·Q¶W³sµ²¸ê®Æ§¨¡A¥i¥H¶Ü¡H

[µo°Ý] excel­Y·Q¶W³sµ²¸ê®Æ§¨¡A¥i¥H¶Ü¡H

·Q½Ð±Ð¦U¦ì°ª¤â¤j¤j­Ì
­Y¬O¦bexcel¤¤¡A·Q¶W³sµ²¾ã­Ó¸ê®Æ§¨Àɮתº¸Ü¡A¥i¥H¶Ü¡H

=HYPERLINK("¤å¥ó§¨¦a§}","Åã¥Üªº¦WºÙ")

TOP

1.¦Û°Ê¦C¥X¸ê®Æ§¨¤¤©Ò¦³Àɮשó¦sÀx¦s®æ¤¤+¦Û°Ê«Ø¥ß¶W³sµ²¦p¤U
1.1 "C:\AAA\" ¦Û¦æÅܧ󬰻ݨD¸ê®Æ§¨address

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
ù

TOP

        ÀR«ä¦Û¦b : ¦a¤WºØ¤Fµæ¡A´N¤£©öªø¯ó¡F¤ß¤¤¦³µ½¡A´N¤£©ö¥Í´c¡C
ªð¦^¦Cªí ¤W¤@¥DÃD