Question

我编写了此VBScript，并以Try.vbs的形式保存在桌面中这个想法是打开Bloomberg界面“ 2-BLOOMBERG”，然后编写IND 5，修改日期并下载一些文件。

我的问题是，它甚至没有在彭博搜索栏中写任何东西。在一开始它就在工作，但随后又一瞬间停了下来。

请在此处找到代码。

 Dim i,d

    Set WshShell  = WScript.CreateObject("WScript.Shell")
    Set objExcel = CreateObject("Excel.Application")


    d = Right("0" & Month(Date), 2) & "/" & Right("0" & Day(Date), 2) & "/" & Right(Year(Date), 2)

    WshShell.AppActivate "2-BLOOMBERG"
    WshShell.SendKeys "{ESC}" & "IND 5~", True

    For i = 1 To 1

    WshShell.SendKeys i & "~", True

    wscript.sleep(500)

    WshShell.SendKeys "98 ~", True

    wscript.sleep(500)

    WshShell.SendKeys "{TAB}" & "{TAB}" & "{TAB}" & "{TAB}" & "{TAB}" & d & "~", True
    WshShell.SendKeys "96 ~", True

    wscript.sleep(1000)

    Next

在彭博终端机中搜索的VBScript

0 个答案: