VBA excel代码创build超链接到列C的单元格中提到的folderpath

我有一个excel工作表，其中列C的单元格中提到的文件夹path，我需要创build超链接到列C中的每个单元格，所以，如果我点击它，然后它会直接指向该文件夹的path提到在牢房里

Sub folderpathyperlink () Dim sfolder As String Dim sh As Worksheet Set sh = ThisWorkbook.Sheets("Sheet2") bottomA = sh.Range("I" & Rows.Count).End(xlUp).Row sfolder = Cells(2, bottomA).Value For Each cell In sfolder ThisWorkbook.Sheets("Sheet2").Hyperlinks.Add anchor:=Selection, Address:=sfolder Next cell End Sub 

Answer 1

尝试这样的事情…

 Sub folderpathyperlink() Dim sh As Worksheet Dim lr As Long Dim Rng As Range, Cell As Range Set sh = ThisWorkbook.Sheets("Sheet2") lr = sh.Range("C" & sh.Rows.Count).End(xlUp).Row Set Rng = sh.Range("C2:C" & lr) For Each Cell In Rng sh.Hyperlinks.Add Anchor:=Cell, Address:= _ Cell.Value, TextToDisplay:=Cell.Value Next Cell End Sub 

要检查C列中的单元格是否包含有效的文件夹path，并且该文件夹是否存在，请插入超链接，否则跳过该代码，尝试下面的代码…

 Sub folderpathyperlink() Dim sh As Worksheet Dim lr As Long Dim Rng As Range, Cell As Range Set sh = ThisWorkbook.Sheets("Sheet2") lr = sh.Range("C" & Rows.Count).End(xlUp).Row Set Rng = sh.Range("C2:C" & lr) For Each Cell In Rng If Not Dir(Cell.Value, vbDirectory) = "" Then sh.Hyperlinks.Add Anchor:=Cell, Address:= _ Cell.Value, TextToDisplay:=Cell.Value End If Next Cell End Sub