建设Excel报表与SSRS链接 - 如何通过在Excel工作表

Question

进入动态数据参数我使用SSRS报告链接Excel报表 -

http://Serverlink/ReportServer?%2fFinance%2fReportname&rs:Command=Render&FromDate=01/31/2016&ToDate=03/13/2016&rs:Format=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 macro capture

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"