如何在PowerPoint中关闭嵌入式Excel进程?

wxclj1h5  于 2022-11-26  发布在  其他
关注(0)|答案(1)|浏览(368)

我正在使用VBA在Excel中打开已打开的PowerPoint图表数据,并执行一系列操作,如隐藏/删除行和列。我正在使用chart.ChartData.Activate命令打开Excel。过去,我在使用Workbook.Close进行处理后试图立即关闭工作簿时遇到问题。(),所以我让Excel保持打开状态。这现在已经成为大型演示文稿的一个问题,它导致PowerPoint崩溃并以恢复模式重新打开。即使我恢复工作簿也是如此。关闭()命令,有时Excel的这些示例仍然保持打开状态,或者我在例程中失去了它们的作用域。
我正在逐个幻灯片地处理演示文稿,所以我正在寻找一种方法,在处理完每张幻灯片后,立即关闭这些打开的示例。
有人知道如何访问这些挂起的Excel进程吗?我提供了一张图片,以更好地帮助解释它们的位置。

omhiaaxx

omhiaaxx1#

我不确定你是如何构建你的代码的,但你只是在关闭工作簿。要得到想要的结果,你需要退出excel应用程序。
我想这样子的事情你就做的诀窍了:

Private Sub testSave()
    Dim xlsApp As Excel.Application
    Dim xlsWbk As Excel.Workbooks

    Set xlsApp = New Excel.Application

    xlsApp.Visible = True
    Set xlswkb = xlsApp.Workbooks.Add 'creating a new wokbook just to test

    'do your thing here

    xlswkb.Close SaveChanges:=False ' close workbook without saving in this 
    example
    xlsApp.Quit ' quitting the excel app

End Sub

相关问题