关于excel问题

Question

我用VB控制excel生成数据打印后想退出excel，有什么方法可以忽略保存与不保存对话框而直接不保存退出。请各位指教了

Answer 1

PathName = "D:\WorkBook.xls"      strcnn = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=false;Data Source=" & PathName & ";Extended Properties='Excel 8.0;HDR=Yes'"
      Set cnn = New ADODB.Connection
      cnn.Open strcnn
      strsql_db = "select * from [6月$]"
      cnn.Execute strsql_db
      Set Rs_db = New ADODB.Recordset
      Rs_db.Open strsql_db, cnn, adOpenStatic, adLockOptimistic
set rs_db = nothing

Answer 2

    xlApp.DisplayAlerts = False
    xlBook.Close False  '不保存
    xlApp.Quit  '关闭Exel
    Set xlBook = Nothing
    Set xlApp = Nothing

Answer 3

Private Sub Command1_Click()
    Dim xlApp As New Excel.Application '定义并创建EXCEL对象    Dim xlBook As Excel.Workbook '创建工作簿    xlApp.Visible = True '让Excel可见
    Set xlBook = xlApp.Workbooks.Open(App.Path & "\Test.xls") '打开Excel文件
    With xlBook.ActiveSheet
        .Cells(1, 1) = 1231 '设置第一行第一列的值
        '......
    End With
'    xlBook.PrintPreview  '打印预览    xlApp.DisplayAlerts = False
    xlBook.Close False  '保存
    xlApp.Quit  '关闭Exel
    Set xlBook = Nothing
    Set xlApp = Nothing
End Sub

Answer 4

为什么执行这两条语句会有问题
Dim xlApp As New Excel.Application '定义并创建EXCEL对象    Dim xlBook As Excel.Workbook '创建工作簿用户定义类型未定义