那请问这个如何编写
Range("C4").Select
ActiveSheet.Hyperlinks.Add anchor:=Selection, Address:="../001/*.xls", _
TextToDisplay:="*"
Range("C5").Select
ActiveSheet.Hyperlinks.Add anchor:=Selection, Address:="../002/*.xls", _
TextToDisplay:="*"
Range("C6").Select
ActiveSheet.Hyperlinks.Add anchor:=Selection, Address:="../003/*.xls", _
TextToDisplay:="*"
Range("C7").Select
ActiveSheet.Hyperlinks.Add anchor:=Selection, Address:="../004/*.xls", _
TextToDisplay:="*"
Range("C8").Select
ActiveSheet.Hyperlinks.Add anchor:=Selection, Address:="../005/*.xls", _
TextToDisplay:="*"
Range("C9").Select
ActiveSheet.Hyperlinks.Add anchor:=Selection, Address:="../006/*.xls", _
TextToDisplay:="*"
Range("C10").Select
for i=4 to 10
ActiveSheet.Hyperlinks.Add anchor:=Range("C" & i), Address:="../" & Format(i - 3, "000")
next
这样写 只能联接到文件夹不能链接到文件夹里面的文件
|