小编Din*_*eer的帖子

当我正在尝试打开excel文件时,一个消息框提示"我们发现文件名中有一些内容存在问题.您是否希望我们尝试尽可能多地恢复？如果您信任此工作簿的来源,单击是. " 实际做的是我有一个excel模板设计并将文件复制到另一个文件并创建临时文件我正在使用OPEN XML将数据插入临时文件并且数据来自数据库.

我已经尝试过网络中提供的解决方案,但这些解决方案并没有解决我的问题.我的擅长是2010年

提供任何解决方案非常感谢.

我们正在研究Kendo MVC UI,我们将数据从一个视图发送到另一个视图,所有数据(testbox,下拉列表)都被传递到除附件(pdf,xlsx)之外的下一个视图.

下面是我们编写的控制器中从代码中捕获并保存数据并将相同数据传递给另一个视图并将数据绑定到kendo控件的代码(也可以上传控件)

 public ActionResult SaveData(System.Web.Mvc.FormCollection form, IEnumerable<HttpPostedFileBase> files) // insert operation
    {
        //*************************//
        if (form != null)
        {
            string ddluserexceptioncategory = Convert.ToString(form["txtexceptioncategory"], CultureInfo.InvariantCulture);

            if (!string.IsNullOrEmpty(ddluserexceptioncategory))
            {
                ddluserexceptioncategory = ddluserexceptioncategory.Trim();
            }
            if (ddluserexceptioncategory == "User Management")
            {
                //Bind the data to the class object(_clsObj)


                if (files != null)
                {
                    TempData["FileName"] = files;
                    _clsObj.Files = files;
                }
                TempData["SecondViewData"] = _clsObj;


                return RedirectToAction("ExceptionType", "Home", new { id = 0, regionId = _clsObj.RegionId, status1 = "New,In Progress", keyword1 = string.Empty });
            } …

我的问题是我已将我的图表粘贴到powerpoint中,我正在尝试通过Excel-VBA更新嵌入式链接.

我已经尝试过以下代码并且失败了:

代码1

    AppPPT.Presentations.Open "D:\Demo.pptx", Untitled:=msoTrue
    AppPPT.ActivePresentation.UpdateLinks
    AppPPT.ActivePresentation.SaveAs "D:\Demo.pptx"

代码2

    For i = 1 To AppPPT.ActivePresentation.Slides.Count
    For s = 1 To AppPPT.ActivePresentation.Slides(i).Shapes.Count
        If AppPPT.ActivePresentation.Slides(i).Shapes(s).Type = msoLinkedOLEObject Then
            AppPPT.ActivePresentation.Slides(i).Shapes(s).LinkFormat.Update
        End If
    Next s
Next i

代码3

    Set PPTTemplate = AppPPT.Presentations.Open("D:\Demo.pptx")

    ' update chart
    Dim osld As Slide
    Dim oshp As PowerPoint.Shape

    For Each osld In PPTTemplate.Slides
    For Each oshp In osld.Shapes
    With oshp
    If .HasChart Then
    .Chart.ChartData.Activate
    .Chart.ChartData.Workbook.Close
    .Chart.Refresh
    End If
    End With
    Next oshp
    Next osld

    AppPPT.Activate