Я думаю, это может быть то, что вы ищете. Но получение типов данных (поле в таблице и значение в ячейке) будет важной частью.
вам нужно определить рабочую книгу и рабочий лист, в которых находятся ячейки A1 и A2.
Поскольку у меня нет подключения к вашей базе данных, я не могу изменить ваш sql-код.
Вам потребуется добавить соединение и базу данных, таблицы и т. Д., Чтобы получить результат и куда вы его поместите.
Sub open_close()
Sub query_table()
Dim wb As Workbook
Dim wsh As Worksheet
Dim acc_open, acc_close As String
Set wb = ActiveWorkbook ' i dislike this, but don't know the name of your workbook
Set wsh = wb.Sheets(1) 'if your cells are on your first sheet in this workbook
acc_open = wsh.Range("A1").Value
acc_close = wsh.Range("A2").Value
Select login, Acc_open_time, Acc_Close_time from accounts
Where Acc_open_time = acc_open And Acc_Close_time = acc_close
End Sub