使用ssrs链接生成excel报告-如何传递excel工作表中输入的动态日期参数

使用ssrs链接生成excel报告-如何传递excel工作表中输入的动态日期参数,excel,reportingservices-2005,vba,Excel,Reportingservices 2005,Vba,我有使用ssrs报告链接的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:Forma

我有使用ssrs报告链接的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工作表中输入的动态日期传递给url链接DTPicker。我怎样才能得到它


您只需将电子表格中的日期读入变量并格式化即可。然后将这些变量与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"