程序这样:先从数据库中读取数据到调出的excel模板,而后进行打印,结束后,关闭excel,不让它弹出是否保存的窗口.
谢谢!

解决方案 »

  1.   

    xapp.AutoCorrect.Application.Quit False
      

  2.   

    到底怎么用能否具体一点,我是先要把数据显示出来后,再关闭掉excel后,不让它显示
    是否提示框?楼上的写法用不起来。
      

  3.   

    你在贴书数据之前,先要保存一下。给个例子吧
    If ExcelApp Is Nothing Then
            Set ExcelApp = CreateObject("Excel.Application")
    End If With ExcelApp
            .Visible = False
            Set ExcelWK = .Workbooks.Open(FileName:=App.Path & "\model.xls")
            ExcelWK.Activate
            ExcelWK.SaveAs FileName:=App.Path & "\" & xlsName & ".xls" _
                , FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
                ReadOnlyRecommended:=False, CreateBackup:=False
            
           ....      '数据处理
           ExcelWk.save
           .visible=true
    end with