vb中excel出力的问题

Question

1。vb中excel出力时，我想通过vb程序在表sheet1中填入数据，之后立即关闭，但是关闭前有个提示保存对话框，所以我加了句application.displayAlerts=false;结果呢  数据不能保存，这是因为这句话的默认选择是取消，所以数据不会被保存。代码如下：
Dim xlapp As Excel.Application
Dim xlbook As Excel.Workbook
Dim xlsheet As Excel.Worksheet
Set xlapp = CreateObject("Excel.application")
Set xlbook = xlapp.Workbooks.Open("D:\Document\自社積載率.xls")
xlbook.Sheets("データ").Range("F1") = "kingfxp"
MsgBox xlbook.Sheets("データ").Cells(1, 6).Value
‘xlapp.DisplayAlerts = False
xlapp.Quit怎么才能在不出现保存提示框的情况下就能保存数据呢？
 2。当表sheet1数据被更新时，标sheet2是个图标，它是sheet1的数据抽出绘制的，怎么才能让sheet1数据一被更新，sheet2就能立即表现出新的图像呢

Answer 1

Private Sub Command1_Click()
Dim S As String
Dim xlApp As New Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim xlQuery As Excel.QueryTable
Set xlApp = CreateObject("Excel.Application")Set xlBook = Nothing
Set xlSheet = Nothing
Set xlBook = xlApp.Workbooks().Add
Set xlSheet = xlBook.Worksheets("sheet1")xlSheet.Cells(1, 1) = "测试"If Dir(S + "e:\123.xls", vbDirectory) <> "" Then Kill S + "e:\123.xls"
xlSheet.SaveAs "e:\123.xls"
xlBook.Saved = True
xlApp.Quit
Set xlApp = Nothing
Set xlBook = Nothing
Set xlSheet = Nothing
End Sub