excel - 从 Powerpoint 关闭 Excel

Question

我有以下代码，它打开一个 Excel 表格，执行我们的一些程序，然后关闭表格。

我无法关闭床单!

 Dim xlApp As Object
 Dim xlWorkBook As Object
 Dim path As String
 Dim osh As Shape
 Dim filename As String
 Set xlApp = CreateObject("Excel.Application")


 path = "path"
 filename = "Name.xlsx"
 xlApp.Visible = True
 Set xlWorkBook = xlApp.Workbooks.Open(path & filename)
 Set positionsheet = xlWorkBook.Sheets("Sheet1")
 Set PPApp = GetObject(, "Powerpoint.Application")
 Set PPPres = PPApp.ActivePresentation

 'does stuff here

 ActiveWindow.Visible = False

  With xlApp          ' I think the error is here!!!
    .xlWorkBook.Save
    .xlWorkBook.Close
 End With

由于某种原因，工作表没有关闭!有任何想法吗？？

Answer 1

尝试使用这个:

xlworkbook.close