이 응답은 자동으로 번역되었습니다. 따라서 문법 오류 또는 이상한 표현이 있을 수 있습니다.
안녕하세요. link1_eh고객님
Microsoft 제품을 사용하고 커뮤니티에 게시해 주셔서 감사합니다.
이것은 다음과 같은 VBA 코드를 사용하여 더 쉽게 수행 할 수 있습니다.
Sub CheckAndRemoveInvalidHyperlinks()Dim ws As WorksheetDim hl As HyperlinkDim valid As BooleanFor Each ws In ThisWorkbook.WorksheetsFor Each hl In ws.Hyperlinksvalid = IsHyperlinkValid(hl)If Not valid Thenhl.DeleteEnd IfNext hlNext wsEnd SubFunction IsHyperlinkValid(hl As Hyperlink) As Boolean
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")On Error Resume NextIsHyperlinkValid = fso.FileExists(hl.Address) Or fso.FolderExists(hl.Address)On Error GoTo 0Set fso = NothingEnd Function
Excel을 열고 Alt+F11을 누른 상태에서 VBA 편집기를 연 다음 삽입 - 모듈 - 코드 복사를 선택하고 VBA 편집기를 닫은 다음 Alt+F8을 선택하여 매크로 실행 상자를 열고 CheckAndRemoveInvalidHyperlinks를 선택한 다음 실행을 클릭합니다.
이 코드 문자열은 모든 하이퍼링크가 로컬 파일 경로를 가리키고 있다고 가정합니다. 네트워크 경로 또는 URL을 가리키는 경우 코드를 변경해야 할 수 있습니다.
또한 만일을 대비하여 이 코드는 하이퍼링크를 제거하지만 원본 텍스트는 그대로 둡니다.
위의 정보가 도움이 되기를 바랍니다. 추가 도움이 필요한 경우 언제든지 메시지를 보내주세요.
행운을 빌며
에이든.C - MSFT |Microsoft 커뮤니티 지원 전문가