Как добавить метку времени в макрос из выбранных ячеек таблицы Excel - PullRequest
0 голосов
/ 14 апреля 2019

Мой код VBA извлекает данные за последние 11 часов из базы данных. Я хочу получить данные своего времени, например, «между (1/4/19 1:30 и 13/4/19 1:30)». Также хочу добавить данные на листе 1 в виде таблицы. Могу ли я узнать, как добавить это пользовательское время и сделать его таблицей, используя код макроса.

Option Explicit

Sub DbConnection()
' NA Query connection with DB
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim strConn As String
Dim mssql As String

strConn = "Driver={Redshift (x86)};Server=abc;Database=xyz;UID=abc;PWD=12345; Port=1234"
cn.Open strConn
cn.CommandTimeout = 60
mssql = "(using this line in SQL query here)"

where review_completed_timestamp_utc::TIMESTAMP > current_timestamp - interval'11 hour'

rs.Open mssql, cn
Sheets(1).Range("A2").CopyFromRecordset rs
End Sub

1 Ответ

0 голосов
/ 14 апреля 2019

Для части SQL, так как вы не указали имена, вы можете сделать это так:

SELECT column_name(s)
FROM table_name
WHERE column_name BETWEEN value1 AND value2;
...