Excel 파일의 모든 링크를 업데이트하십시오.

Question

큰 정보 목록이 포함 된 파일을 가지고 있고 한 열에는 내 하드 디스크에있는 파일 URL 링크가 있습니다. 그러나 하드 디스크 이름이 F에서 G로 변경되고 모든 링크가 손상됩니다. 이 작업을 완료 한 새 응용 프로그램을 프로그래밍 할 필요없이 쉬운 방법으로 링크를 업데이트 할 수 있습니까? 이 VBA 같은

Answer 1

뭔가 일할 수 :

Sub HyperLinkChange() 
    Dim oldtext As String 
    Dim newtext As String 
    Dim h As Hyperlink 

    oldtext = "F:\" 
    newtext = "G:\" 
     For Each h In ActiveSheet.Hyperlinks 
     x = InStr(1, h.Address, oldtext) 
     If x > 0 Then 
      h.Address = Application.WorksheetFunction. _ 
      Substitute(h.Address, oldtext, newtext) 
     End If 
     Next 
End Sub