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

Answer 2

With - Block会抛出错误，因为xlWorkBook不是xlApp的参数。

这适用于我的测试：

' ...
'does stuff here
'NoWith Block!
xlWorkBook.Save
xlWorkBook.Close
xlApp.Quit

Answer 3

实施例

Option Explicit
Public Sub Example()
    Dim xlApp As Object
    Dim xlWorkBook As Object
    Dim Sht As Object
    Dim xlStarted As Boolean
    Dim Path As String
    Dim FileName As String

    Path = "C:\Temp\"
    FileName = "Book1.xlsx"

    Set xlApp = CreateObject("Excel.Application")
        xlStarted = True
        xlApp.Visible = True

    Set xlWorkBook = xlApp.Workbooks.Open(Path & FileName)
    Set Sht = xlWorkBook.Sheets("Sheet1")

    'does stuff here

    '// Close & SaveChanges
    xlWorkBook.Close SaveChanges:=True

    If xlStarted Then
        xlApp.Quit
    End If

End Sub

从Powerpoint关闭Excel

3 个答案: