如何从选定的 Excel 工作表单元格中在宏中添加时间戳

Posted 2023-03-24

【中文标题】如何从选定的 Excel 工作表单元格中在宏中添加时间戳

【英文标题】：How to add time stamp in macro from selected excel sheet cells

【发布时间】：2019-04-14 13:04:12

【问题描述】：

我的 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】：

对于 SQL 部分，由于您没有提供名称，您可以执行以下操作：

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