1. 当点击$B$3:$B$65536中的任一单元格时它将打开当前目录下名为"员工个人档案"的文件夹中的名为"JS0006_细小有力"的文件。

vba Sub OpenEmployeeFile Dim selectedCell As Range Set selectedCell = ActiveCell ' 获取当前选中的单元格

' 构建文件路径
Dim filePath As String
filePath = ThisWorkbook.Path & "\员工个人档案\JS0006_细小有力"
' 用Shell函数打开文件
Shell "explorer.exe /select," & filePath, vbNormalFocus

End Sub

在这段代码中，我们先说说用ActiveCell来获取当前选中的单元格。然后我们构建了一个指向"JS0006_细小有力"文件的完整路径。注意，我们用了ThisWorkbook.Path来获取当前干活簿的路径。

接着，我们用Shell函数来打开文件。在这里我们添加了/select参数，这样当Windows材料管理器打开时所选文件会高大亮kan得出来。

要使此宏在干活表上起作用，您需要在VBA编辑器中添加此代码，并将其分配给适当的按钮或事件。