Vba編程是個好東西,對于非編程出生的人員excel超鏈接路徑改變,學好編程很難,但是入門,我感覺還是比較容易的。我們能看懂vba編程并去整合修改代碼,為我所用excel超鏈接路徑改變,我覺得是足夠了。今天要介紹的代碼,也不是我的。說實話,這段代碼,對于非編程人員太難了,我只是整合了下為自己所用罷了。 該excel運行下的vba編程的效果就是把同一文件夾下的批量文件生成一個個能在excel工作表里生成超級鏈接。方便以后,不沿著路徑去打開,也能實現對文件的調用等操作。 以下為完全代碼,下面的源文件里也有。具體操作是啟用宏,點快捷鍵alt+F11進入VBE編輯器,復制下段代碼進去,點擊運行。關于宏和編程的入門使用,請看這篇 尚西博客中的視頻介紹 Vba代碼如下:
Sub ()
On Error GoTo Dim fd As
Set fd = .(icker)
Dim As With fd
If .Show = -1
Then i = 0
For Each In .
i = i + 1 dname = Next
If i >= 2 Then ("不能夠選擇多個文件夾,請重新選擇")
Exit Sub
End If
End If
End With
Set fd =
= (dname & "\")
= Dir()
J = 0 n = 2
Do While ""
(1).Cells(n, 1) = ’(1)代表結果反映在第一個表里,改成2就是第二個表了。下同 (1)..Add :=(1).Cells(n, 1), := &
n = n + 1 J = J + 1
= Dir
Loop :
Exit Sub
End Sub 為方便使用,使用控件生成按鈕,具體界面類似如此。
附上效果
附上源文件批量把文件夾中的excel文件超級鏈接到excel表里今天就為大家介紹到這里。有疑問可以留言板或此處留言交流。