vb读写完excel后保存、关闭语句

vb调用excel之后，读取和写入都成功了，代码如下：
Private Sub Command1_Click()
Dim ExApp As New Excel.Application
Dim Exb As Excel.Workbook
Dim Exsh As Excel.Worksheet

Dim R1 As Excel.Range
ExApp.Workbooks.Open "D\my ducuments\book1.xls"
Set Exb = ExApp.Workbooks(1)
Set Exsh = Exb.Worksheets("Sheet1")
Text1.Text = Exsh.Range("D4")
'我想在此处加上一个保存所调用的excel的语句，可是不知道是什么，如果没有这个语句,在command1_click 时间之后，其他都很正常，但是弹出一个是否保存excel更改的对话框。希望得到大侠的帮助。谢谢啦

ExApp.Workbooks.Close
ExApp.Quit
Set ExApp = Nothing
End Sub

如何用VB读写EXCEL中数据 VB中如何保存和读写多个text文件 excel 保存后找不到文档 VB文件读写问题 vb dat读写 VB读写文本文件问题 vb读写随机文件 vba 问题 关于用vb编程保存Excel的问题 VB保存后不能看怎么办 vb 设置文件属性修改后的保存