返回列表 上一主題 發帖

[發問] 超連結 vba

eg0802

帖子
81 
主題
26 
精華
0 
積分
106 
點名
0  
作業系統
WIN7 
軟體版本
32位元 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2012-3-3 
最後登錄
2019-6-26 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2017-11-26 20:18 | 顯示全部帖子

[發問] 超連結 vba

求救一下各位先進... 公司有個總表,上面有所有採購單號碼(如下圖 J1710 ), 所有訂單號碼都是前面固定五個字, 後面則是不固定. 能否一次性讓EXCEL去抓 某個資料夾裡面的所有採購單連結, 且中間還有一層資料夾 (ex.採購->品牌->採購單號碼) ?
小弟在爬文的時候找到一條vba的超連結,想說修改一下應該可以套用, 但一直不成功(圖片已附).  小弟才薄疏淺,還望各位先進幫幫忙. 在此謝過.
收藏 分享
Jason

eg0802

帖子
81 
主題
26 
精華
0 
積分
106 
點名
0  
作業系統
WIN7 
軟體版本
32位元 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2012-3-3 
最後登錄
2019-6-26 
2#
發表於 2017-11-27 19:39 | 顯示全部帖子
回復 2# adrian_9832

AD兄,感謝您撥冗回復.  小弟套用上去顯示執行錯誤'445'.物件不支援此動作.  

Sub test()
    With Application.FileSearch
    ref = Range("y18")
        .NewSearch
        .LookIn = "\\192.168.5.5\Public\共享檔案\2018 CS\"   '<---你的路徑
        .SearchSubFolders = True
        .Filename = "*.xls" '<---你要找的檔案類型
        .FileType = msoFileTypeExcelWorkbooks
        If .Execute() > 0 Then
        For I = 1 To .FoundFiles.Count
        On Error Resume Next
        Cells(I, 3) = .FoundFiles(I)
        Next I
        Else
        MsgBox "Folder " & sFolder & " contains no required files"
        End If
    End With
End Sub
Jason

TOP

        靜思自在 : 犯錯出懺悔心，才能清淨無煩惱。
返回列表 上一主題