使用SSRS链接构建Excel报告 - 如何传递Excel表中输入的动态日期参数

Question

我使用SSRS Report Link的Excel报告 -

http：//serverlink/completerver？％2ffinance％2freportName＆amp; rs：command = render＆amp; frofdate = 01/31/2016＆amp; amp; todate = 03/13/2016＆amp; amp; rs＆amp; rs＆amp; rs：格式= excel。当我在宏中使用它在按钮上运行报告时，这可以正常工作，请单击命令

Private Sub ViewReport_Click()
Workbooks.Open Filename:= _
"http://Serverlink/ReportServer?%2fFinance%2fReportname&rs:Command=Render&FromDate=01/31/2016&ToDate=03/13/2016&rs:Format=Excel"
ActiveSheet.Range("A8:I2000").Select
Selection.Copy
Application.DisplayAlerts = False
ActiveWorkbook.Close SaveChanges:=False
Windows(ThisWorkbook.Name).Activate
Range("A8").Select
ActiveSheet.Paste
End Sub

，但是我需要将输入在Excel表中的动态日期传递到dtpicker中的URL链接。我该如何获得它？

ecxel宏观捕获

Answer 1

您可以简单地将电子表格中的日期读取到变量中并格式化。然后将这些变量与URL串联。

假设您的开始日期在单元格" A1"中，并且您的结束日期在单元格" A2"。

中

Dim fromDate As String
Dim toDate As String
fromDate = Format(Range("a1").Value, "dd/mm/yyyy")
toDate = Format(Range("a2").Value, "dd/mm/yyyy")

Workbooks.Open Filename:= _
"http://Serverlink/ReportServer?%2fFinance%2fReportname&rs:Command=Render&FromDate=" & fromDate & "&ToDate=" & toDate & "&rs:Format=Excel"