建設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"