在excel中通过vba调用python程序时，有没有办法引用活动工作簿？

Sub CallPython()
    Dim pyScript As String
    Dim pyPath As String
    Dim wb As Workbook
    Dim ws As Worksheet
    
    ' 获取活动工作簿和工作表
    Set wb = ThisWorkbook
    Set ws = wb.ActiveSheet
    
    ' 设置Python脚本路径和脚本内容
    pyPath = "C:\path\to\python\script.py"
    pyScript = "import openpyxl" & vbCrLf & _
               "wb = openpyxl.load_workbook('" & wb.FullName & "')" & vbCrLf & _
               "ws = wb['" & ws.Name & "']" & vbCrLf & _
               "'在这里编写你的Python代码'"
    
    ' 创建一个Shell对象并执行Python脚本
    Dim shell As Object
    Set shell = VBA.CreateObject("WScript.Shell")
    shell.Run "python " & pyPath & " -c """ & pyScript & """", 1, True
    
    ' 清理对象
    Set shell = Nothing
    Set ws = Nothing
    Set wb = Nothing
End Sub