请问excel表中可以用VBA实现根据单元格选择的数据在右侧自动打开对应文档吗

论坛的各位大佬好，请教一下，我想在这个excel表中实现根据单元格显示的数据在右侧自动打开对应的word文档是可以实现的吗？如图中，

代码有点小问题，做了些修改，点击openword过程，按f5后可以打开word文档了

'来源：https://zhidao.baidu.com/question/22140033.html
'首先要在vba中引用Microsoft Word 11.0 Object Library
Private Sub openword()

Set Wdapp = New Word.Application

Wdapp.Documents.Open ("D:\word文件路径\xxx.docx")

Wdapp.Visible = True

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  cellvalue = Target.Value
  isdoc = InStr(cellvalue, ".doc") <> 0
  If isdoc Or (Target.Column = 1 And Target.row = 5) Then
    
    If isdoc = False Then cellvalue = "C:\Users\showbo\Desktop\编程题1.docx"

  
    Set Wdapp = New Word.Application

    Wdapp.Documents.Open (cellvalue)

    Wdapp.Visible = True
  End If
  
  
  
End Sub

你也可以下载此文件测试，修改Excel文件里的word物理路径

http://www.w3dev.cn/vba/打开word/test.xlsm

您好，我是有问必答小助手，您的问题已经有小伙伴解答了，您看下是否解决，可以追评进行沟通哦~

如果有您比较满意的答案 / 帮您提供解决思路的答案，可以点击【采纳】按钮，给回答的小伙伴一些鼓励哦～～

ps:问答VIP仅需29元，即可享受5次/月 有问必答服务，了解详情>>>https://vip.csdn.net/askvip?utm_source=1146287632