- 帖子
- 3
- 主題
- 1
- 精華
- 0
- 積分
- 4
- 點名
- 0
- 作業系統
- WIN10
- 軟體版本
- 64
- 閱讀權限
- 10
- 註冊時間
- 2016-2-2
- 最後登錄
- 2023-1-17
|
[發問] 在Excel2007/2010運行Excel 2003錄製的巨集，卻發生執行錯誤'445'
如提，不好意思小弟第一次使用巨集，
想請教，在Excel2007/2010運行Excel 2003錄製的巨集，卻發生執行錯誤'445'
以下是Excel 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
Set fs = Application.FileSearch、
If .Execute(SortBy:=msoSortByFileName) > 0 Then 停滯 |
|
發表於 2016-2-3 15:56
| 
