如何将JQ网格内容导出到Powerpoint文件？

Question

嗨，我是MVC的新手，我的项目需要一个选项，当按下导出按钮时，可以将Jqgrid内容导出到电源点幻灯片。

我到处都找不到任何解决方案。请帮帮我。

这是显示网格的代码。

我只包含了视图部分：

                    <div class="col-md-8" style="text-align:right;padding-right:40px;">
                        <button class="btn btn-warning" id="btnExportppt"><i class="fa fa-download"></i>Export Powerpoint</button>
                    </div>

                </div>


            </div>

        </div>
    </div>
    <br />
    <div class="row">
        <div class="col-md-12" style="text-align:center;">
            <label id="lblMsg"></label>
        </div>
    </div>
    <div class="col-md-12" style="padding-right:3em;">
        @(Html.Grid("grdReports")

                     .AddColumn(new Column("DealID").SetLabel("DealID").AddClass("nowrap").SetWidth(83))
                     .AddColumn(new Column("ClientName").SetLabel("Client Name").AddClass("nowrap"))
                     .AddColumn(new Column("OppName").SetLabel("Opportunity Name").AddClass("nowrap").SetWidth(172))
                     .AddColumn(new Column("DealStatusID").SetLabel("Deal Status").AddClass("nowrap"))
                     .AddColumn(new Column("DealClosureQuarter").SetLabel("Deal Closure Quarter ").AddClass("nowrap").SetWidth(192))
                      .AddColumn(new Column("SolutionChampion").SetLabel("Soln. Champions / Account POC").AddClass("nowrap").SetWidth(158))
                      .AddColumn(new Column("RegionName").SetLabel("Region/City").AddClass("nowrap"))
                      .AddColumn(new Column("ScopeSummary").SetLabel("Opportunity Scope").AddClass("nowrap").SetWidth(208))//new
                      .AddColumn(new Column("CRMId").SetLabel("CRM Id").AddClass("nowrap"))
                      .AddColumn(new Column("TowersInPlayID").SetLabel("Towers").AddClass("nowrap"))
                      .AddColumn(new Column("Probability").SetLabel("Win Probability").AddClass("nowrap"))
                      .AddColumn(new Column("TCV").SetLabel("Total TCV($ million)").AddClass("nowrap").SetWidth(174))
                      .AddColumn(new Column("TotalScore").SetLabel("Qualification Score").AddClass("nowrap").SetWidth(174))//new
                      .AddColumn(new Column("Contractduration").SetLabel("Contract Length (Months/Years)").AddClass("nowrap"))
                      .AddColumn(new Column("DealClosureMonth").SetLabel("Month (Won/Lost)").AddClass("nowrap").SetWidth(194))//new
                      .AddColumn(new Column("VerticalID").SetLabel("Vertical").AddClass("nowrap"))
                      .AddColumn(new Column("GeographyID").SetLabel("Geography").AddClass("nowrap"))
                      .AddColumn(new Column("Executive").SetLabel("Executive Sponsor").AddClass("nowrap").SetWidth(178))
                      .AddColumn(new Column("AMCPName").SetLabel("CP / AM").AddClass("nowrap"))
                      .AddColumn(new Column("MSIFlag").SetLabel("MSI Pursue Flag (Y/N)").AddClass("nowrap").SetWidth(215))
                      .AddColumn(new Column("MSIScope").SetLabel("MSI Scope").AddClass("nowrap").SetWidth(178))//new
                      .AddColumn(new Column("NextSteps").SetLabel("Key Dates & Next steps").AddClass("nowrap").SetWidth(227))
                      .AddColumn(new Column("FTEEstimate").SetLabel("FTEs-Transition & Steady State").AddClass("nowrap").SetWidth(309))
                      .AddColumn(new Column("Downselectstatus").SetLabel("Downselected").AddClass("nowrap"))
                      .AddColumn(new Column("ThirdPartyID").SetLabel("Third Party Advisor").AddClass("nowrap").SetWidth(219))
                      .AddColumn(new Column("IncumbencyID").SetLabel("Are we Incumbent").AddClass("nowrap").SetWidth(190))
                      .AddColumn(new Column("Competitors").SetLabel("Competition").AddClass("nowrap"))

                .SetDataType(MvcJqGrid.Enums.DataType.Local)
                .SetDataType(MvcJqGrid.Enums.DataType.Local)
                .SetLoadOnce(true)
                .SetScroll(true)
                //.SetPager("pager")
                .SetScrollRows(true)
                .SetAutoWidth(true)
                .SetHeight(250)
                .SetHiddenGrid(true)
                 .SetRowNum(1000000000)
                .SetShrinkToFit(false)

        .OnSelectRow("onSelectGrid(rowid,status)")

        )
        <div id="pager"></div>

Answer 1

下面是如何在VBA中添加表并填充它；您需要提供自己的参数(行数/列数)并自己填充数据：

Sub AddTable()
' Adds a 3x4 table to slide 1 of the current presentation
' and populates it with data

    Dim oSh As Shape
    Dim oTbl As Table
    Dim lRow As Long
    Dim lCol As Long

    With ActivePresentation.Slides(1)
        ' add table, accept default top/left/height/width
        Set oTbl = .Shapes.AddTable(4, 3).Table

        With oTbl
            For lRow = 1 To .Rows.Count
                For lCol = 1 To .Columns.Count
                    .Cell(lRow, lCol).Shape.TextFrame.TextRange.Text = _
                    "Row " & CStr(lRow) & "/" & "Col " & CStr(lCol)
                Next
            Next
        End With

    End With

End Sub