使用VBA和python写一套简易的金仕达风控系统声音提示程序

金仕达风控系统没有声音提示功能，盯起来比较费眼睛，因此想到了自己写一个提示程序，不需要金仕达的接口，整体思路是：不断循环—每过一分钟自动下载一次数据然后对数据进行判断，如果达到自己设定的标准就发出声音提示，使用了python的pyautogui库来模拟鼠标下载数据的操作，然后用vba来进行判断（之所以没有全部使用python是因为金仕达导出来的数据python不能直接读取），代码如下：

Private Declare PtrSafe Function sndPlaySound32 Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long '用来调用wav文件

Sub alert_of_sound()
Dim date1 As String
Dim wb, wb1 As Workbook
Dim ws, ws1 As Worksheet
Dim fso As New FileSystemObject
i = 0
Set ws1 = ThisWorkbook.Sheets(1)
On Error GoTo alert
Shell "python " & "D:\风控柜台\初始化.pyw", vbHide
Do While True
    date1 = Range("b2")
    filepath = "D:\风控柜台\V8T风控终端\MonData\" & date1 & "\" & "风险监控数据" & date1 & ".xls"
    filepath1 = "D:\风控柜台