7,712
社区成员
发帖
与我相关
我的任务
分享
Dim rs1 As ADODB.Recordset
Set rs1 = New ADODB.Recordset
sSQL = "SELECT * from Export_Date;"
rs1.Open sSQL, cn1, adOpenStatic, adLockOptimistic
rs1.MoveFirst
FromDate = rs1("FromDate")
ToDate = rs1("ToDate")
Workbooks(index).Sheets("Monthly Report").Range("A" & 1) = "Export Date: " & FromDate & " - " & ToDate