☰

Word VBA로 링크 경로 업데이트

tag-icon • tag-icon microsoft-excel microsoft-word microsoft-excel-2007 vba
Word VBA로 링크 경로 업데이트

Word 문서에 Excel에 대한 다음 링크가 있습니다.

http://i12.photobucket.com/albums/a212/hypersonik/links_zpsy9hghggl.png

문제는 참조된 Excel 시트와 단어 문서 모두에서 문서 버전이 변경되면 변경된다는 것입니다.

따라서 링크 경로를 업데이트해야 합니다.

VBA 매크로를 사용하여 이 작업을 수행하고 싶습니다. 지금까지 가지고 있는 내용은 다음과 같습니다.

Sub Replace_Link()
Dim iShp As InlineShape
Dim exWb As Excel.Workbook
For Each iShp In ActiveDocument.InlineShapes
With ActiveDocument
        Set exWb = objExcel.Workbooks.Open(.Path & "\" & Replace$(.Name, ".docm", ".xlsm"))
    End With
  With iShp
     If Not .OLEFormat Is Nothing Then
      If Split(.OLEFormat.ClassType)(0) = "Excel" Then
        .LinkFormat.SourcePath = exWb
  End If
End If
  End With
Next
End Sub

'Dim exWb As Excel.Workbook'에 대해 '사용자 정의 유형이 정의되지 않았습니다'라는 메시지가 나타납니다. 또한 'inlineShape' 명령으로 업데이트할 수 없는 '워크시트' 유형 링크를 포함하려면 더 많은 코드가 필요할 것이라고 확신합니다.

누구든지 도와줄 수 있는 일인가요? 티아

답변1

VBA 프로젝트의 참조를 "Microsoft Excel 14.0 개체 라이브러리"에 추가하셨나요? (주의: 14.0은 설치한 Excel 버전에 따라 다를 수 있습니다.)

VBA 창의 도구 메뉴에서 참조를 선택하여 참조 - 프로젝트 대화 상자를 불러옵니다. 그런 다음 목록을 아래로 스크롤하여 Microsoft Excel 라이브러리를 찾아 상자를 선택합니다(그러면 참조 목록 상단에 나타납니다).

관련 정보