请教用VBA打开工作表的问题

weide_yang

B列中有N个类似B4单元格的表示文件夹路径的数据
C列中有N个该文件夹中的工作簿的名称
D列中是该簿中工作表的名称
E列中是该工作表中的单元格的名称

想用VBA实现的效果：
打开B列当前单元格所在的行中的工作簿，并定格于相关工作表的相关单元格。
例如，当前单元格选定在B4，
则打开“我的文件夹”中名叫“源工作簿”的工作簿，并且选定在Sheet2工作表的B10单元格。
请参附件，谢谢！
备查工作簿.zip (12.46 KB, 下载次数: 2)

2023-12-29 16:56 上传

点击文件名下载附件

titi012

参与一下啊....

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     Dim C&, R&, xName$
   
3.     Dim xWk As Workbook, xSh As Worksheet
   
4.     R = Target.Row
   
5.     C = Target.Column
   
6.     If R > 2 And R <= Cells(Rows.Count, 4).End(xlUp).Row And C <= 5 And C > 0 Then
   
7.         xName = Cells(R, 2) & "" & Cells(R, 3)
   
8.         If Dir(xName) <> "" Then
   
9.             Set xWk = Workbooks.Open(xName)
   
10.             xWk.Sheets(Cells(R, 4)).Select
    
11.             Range(Cells(R, 5)).Select
    
12.         Else
    
13.             MsgBox "没有找到文件."
    
14.         End If
    
15.     Else
    
16.         Exit Sub
    
17.     End If
    
18. End Sub

复制代码

weide_yang

再发附件如下：
我的文件夹.zip (23.41 KB, 下载次数: 1)

2023-12-29 17:40 上传

点击文件名下载附件

weide_yang

titi012老师：请指导：代码中出现以下提示怎么解决，谢谢：

weide_yang

titi012老师：恳请看看这句代码未能通过，谢谢！

xWk.Sheets(Cells(R, 4)).Select