Получение месяца от сегодняшней даты в качестве ввода в текстовое поле

Question

Я записал скрипт, который запускает транзакцию в SAP.

При создании выборок для транзакции есть поле, в котором я должен указать число на месяц. (Например, 02 на февраль, 03 на март…)

Во время записи я устанавливаю значение поля «02»:

session.findById("wnd[0]/usr/txtKKA0100-BIS_ABGR_M").text = "02"

Я хочу, чтобы это число менялось каждый месяц. Что я создал:

Dim today = Date.Today
Dim month As String = today.Month
session.findById("wnd[0]").maximize
session.findById("wnd[0]/tbar[0]/okcd").text = "kkaq"
session.findById("wnd[0]/tbar[0]/btn[0]").press
session.findById("wnd[0]/usr/chkKKA0100-WIP0A").selected = true
session.findById("wnd[0]/usr/txtKKA0100-BIS_ABGR_M").text = month
session.findById("wnd[0]/usr/txtKKA0100-BIS_ABGR_J").text = "2020"
session.findById("wnd[0]/usr/ctxtKKA0100-VERSN").text = "0"
session.findById("wnd[0]/usr/chkKKA0100-WIP0A").setFocus
session.findById("wnd[0]/tbar[0]/btn[0]").press
session.findById("wnd[0]/tbar[1]/btn[8]").press
session.findById("wnd[0]/mbar/menu[0]/menu[3]/menu[2]").select
session.findById("wnd[1]/tbar[0]/btn[0]").press
session.findById("wnd[1]/usr/ctxtDY_PATH").text = "J:\80_Applications\SAPGuiScripting\01_TXT_Files\01_TXT_Files\"
session.findById("wnd[1]/usr/ctxtDY_FILENAME").text = "TEST.txt"
session.findById("wnd[1]/tbar[0]/btn[11]").press
session.findById("wnd[0]/tbar[0]/btn[15]").press
session.findById("wnd[1]/usr/btnSPOP-OPTION1").press

Этот код возвращает ошибку.

Answer 1

Попробуйте, пожалуйста:

Sub testMonthOfDate()
  Dim today As Date, mnth As String
  today = Date
  mnth = CStr(Format(month(today), "00"))
  Debug.Print mnth
End Sub

Затем используйте его по мере необходимости. Рекомендуется избегать использования 'month' в качестве переменной (это зарезервировано VBA). Это работает, но это может создать путаницу.

Answer 2

Вы можете решить это так:

...
session.findById("wnd[0]/usr/txtKKA0100-BIS_ABGR_M").text = right("0" & month(Date) - 1, 2)
...

С уважением, ScriptMan