PPT里面 使用VBA 用SET打开EXCEL后 如何关闭

寻求帮助！

在一张PPT上做了Commandbutton1和2,按下1，在文本框中调用E盘下EXCEL文件内容并显示（依次）。

现在想实现按下2，停止显示（保留最后显示内容）并关闭EXCEL（进程中总是有），应该如何写？

源代码如下：

Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim sheet As Excel.Worksheet
Dim Test

Private Sub CommandButton1_Click()

Set xlApp = New Excel.Application
Set xlBook = xlApp.Workbooks.Open("E:\namelist.xlsx")
Set sheet = xlBook.Worksheets(1)
Dim ss As String

For i = 1 To 36
ss = sheet.Cells(i, 2)
TextBox1.Text = ss

t = DateAdd("s", 3, Now)
Do Until Now > t
DoEvents
Loop

Next i

End Sub

Private Sub CommandButton2_Click()

End Sub

授人以鱼不如授人以渔。

打开 excel vba界面，按f1，在帮助里搜索application，查看application对象成员，你会发现application只有Quit，没有Close，所以 苦乐一辈子的调用是对的。

相关说明摘录如下：
Application 对象成员
代表整个 Microsoft Excel 应用程序。

方法

名称 说明

Quit 退出 Microsoft Excel。

如果没装VBA帮助，可以按F2，在对象浏览器中查找application的所有成员对象。

set是将a1单元格这个对象赋值给了对象变量rg 第二段是将a1单元格的值赋值给了variant变量rg 第一段里可以在with语句中用.value获取a1单元格的值,设置单元格格式,等等可以对单元格进行的操作. 而第二段的with语句啥都不能干.

加语句 xlApp.QUIT Set xlApp= Nothing

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息