Sub liangjie()
MYTH = "d:\专卖店区域帐13年8月前\"
F = Dir(MYTH)
While F <> ""
k = k + 1
Cells(k, 1) = F
F = Dir
Wend
For I = 1 To Range("A65536").End(3).Row
If Cells(I, 1) <> "" Then ActiveSheet.Hyperlinks.Add Anchor:=Cells(I, 1), Address:=MYTH & Cells(I, 1)
Next
End Sub
Sub liangjie()
MYTH = "d:\专卖店区域帐13年8月前\"
F = Dir(MYTH)
While F <> ""
k = k + 1
Cells(k, 1) = F
F = Dir
Wend
For I = 1 To Range("A65536").End(3).Row
If Cells(I, 1) <> "" Then ActiveSheet.Hyperlinks.Add Anchor:=Cells(I, 1), Address:=MYTH & Cells(I, 1)
Next
End Sub