我能用excel写一个python函数来自动化数据下载过程吗？

Function DownloadData(url As String, savePath As String) As String
    Dim pythonPath As String
    Dim scriptPath As String
    Dim cmd As String
    
    pythonPath = "C:\Python\python.exe"  ' 替换为您的Python安装路径
    scriptPath = "C:\Scripts\download_data.py"  ' 替换为您的Python脚本路径
    
    cmd = pythonPath & " " & scriptPath & " " & url & " " & savePath
    
    Dim wsh As Object
    Set wsh = VBA.CreateObject("WScript.Shell")
    Dim waitOnReturn As Boolean: waitOnReturn = True
    Dim windowStyle As Integer: windowStyle = 1
    Dim errorCode As Integer
    
    errorCode = wsh.Run(cmd, windowStyle, waitOnReturn)
    
    If errorCode = 0 Then
        DownloadData = "下载成功"
    Else
        DownloadData = "下载失败"
    End If
End Function

=DownloadData("http://example.com/data.csv", "C:\Downloads\data.csv")