使用命令行从SQL Server 2017 Reporting Services导出到EXCEL

rs.exe -i ExportReport.rss -s http://localhost/ReportServer -v ReportPath="/SampleReports/Report1", ExportFormat="EXCELOPENXML", FileName="C:\ExportedReports\Report1.xlsx"

Public Sub Main()
    Dim format As String = "EXCELOPENXML"
    Dim fileName As String = Globals!ReportName.Value + "." + format
    Dim path As String = Globals!ReportFolder.Value + "\" + fileName

    Dim definition As New [Byte]()
    Dim warnings As Warning() = Nothing

    Dim rs As New ReportExecutionService()
    rs.Credentials = System.Net.CredentialCache.DefaultCredentials

    rs.LoadReport(Globals!ReportPath.Value, Nothing)

    definition = rs.Render(format, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing)

    Dim stream As New FileStream(path, FileMode.Create)
    stream.Write(definition, 0, definition.Length)
    stream.Close()

    Console.WriteLine("Report exported successfully.")
End Sub