- ©«¤l
- 3
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 4
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN10
- ³nÅ骩¥»
- 64
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2016-2-2
- ³Ì«áµn¿ý
- 2023-1-17
|
[µo°Ý] ¦bExcel2007/2010¹B¦æExcel 2003¿ý»sªº¥¨¶°¡A«oµo¥Í°õ¦æ¿ù»~'445'
¦p´£¡A¤£¦n·N«ä¤p§Ì²Ä¤@¦¸¨Ï¥Î¥¨¶°¡A
·Q½Ð±Ð¡A¦bExcel2007/2010¹B¦æExcel 2003¿ý»sªº¥¨¶°¡A«oµo¥Í°õ¦æ¿ù»~'445'
¥H¤U¬OExcel 2003µ{¦¡- Sub myLink()
- Dim myString, myFileName As String
- Dim myRangeNumber As Integer
- Set fs = Application.FileSearch
- myRangeNumber = Selection.Count
- If myRangeNumber > 1 Then
- myString = Selection(1).Text
- Else
- myString = Selection.Text
- End If
- Do Until myString = ""
- With fs
- .LookIn = "D:\DOG"
- .SearchSubFolders = False
- .Filename = myString & "*.*"
- If .Execute(SortBy:=msoSortByFileName) > 0 Then
- myFileName = .FoundFiles(1)
- ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
- myFileName
- End If
- End With
- Selection.Offset(1, 0).Activate
- myRangeNumber = Selection.Count
- If myRangeNumber > 1 Then
- myString = Selection(1).Text
- Else
- myString = Selection.Text
- End If
- Loop
- End Sub
½Æ»s¥N½X ¦ü¥G·|¦b
Set fs = Application.FileSearch¡B
If .Execute(SortBy:=msoSortByFileName) > 0 Then °±º¢ |
|