我们的目标是，我有两个（Excel和PowerPoint）同时打开。因此，当我运行我的Excel宏时，PowerPoint应该被更新并保存在同一个文件中-没有重新打开，然后出现某种X1 M0 N1 X...
我知道/假设我的问题的解决方案在于Set oPresentation = appPPT.Presentations.Open(sPPTfile, msoFalse)-Presentations.Open-方法。但我不知道如何克服这个问题。我没发现什么合适的。
所以这里我的代码和许多感谢您的提示和意见提前。

Sub openPPT()
   
    Dim appPPT As PowerPoint.Application
    Dim slide As PowerPoint.Slide
    Dim oPresentation As PowerPoint.Presentation
    Dim txtFeld(12) As PowerPoint.Shape
    Dim sPPTfile As String
    Dim wkb As Workbook
    Dim wks As Worksheet
    
    On Error GoTo err
    
    Set wkb = ThisWorkbook
    Set wks = wkb.Worksheets(1) 
    Set appPPT = New PowerPoint.Application 

    sPPTfile = "C:\Users\xxx\TestPowerPoint.pptx" 
    appPPT.Visible = True
    ' here is the Presentations.Open method which causes probably my issue
    Set oPresentation = appPPT.Presentations.Open(sPPTfile, msoFalse)
    Set slide = appPPT.ActivePresentation.Slides(3)
    slide.Shapes("Rectangle 32").TextFrame.TextRange.Text = Tabelle1.Range("E10")
    ' in the following two lines of code an error message arises in Excel
    oPresentation.Save 
    ' appPPT.ActivePresentation.Save  ' ed2 suggested this line of code
   

    err:
    If err.Number <> 0 Then
        MsgBox err.Number & vbCrLf & err.Description
    End If

    Set slide = Nothing: Set appPPT = Nothing: Set oPresentation = Nothing

End Sub

Edit_1：错误消息
当使用oPresentation.Save或appPPT.ActivePresentation.Save（ed 2建议）时，会出现以下错误消息。
在此forum上，用户也质疑此“错误编号= -2147467259”，但此错误消息不存在于推荐列表中...也许这也是一种暗示？！

Edit_2：当使用FunThomas的建议代码时，也会出现错误消息。这次不是在Excel中，而是在Excel VBA中（见屏幕截图），它是由oPresentation.Save引起的。

Edit_3及解决方案：FunThomas代码也失败的问题是由文件命名引起的。

第If oPresentation.FullName = sPPTfile Then行的代码从来不是True，因为

• oPresentation.FullName是https：//xxx/TestPowerPoint.pptx和
• sPPTfile是C：\Users\xxx\TestPowerPoint.pptx

所以当你

• 从资源管理器中复制您的文件路径，您将获得 *C：\Users\xxx\TestPowerPoint.pptx *
• 右键单击文件（在资源管理器中）并选择 * 复制链接 * 你会得到一些疯狂的https：//xxx/...材料
• 运行代码并从oPresentation.FullName中提取正确的名称。这需要一些额外的准备。。但这是值得的- ）