Excel - ещё один удар по гордости программиста?

[Alex_2005]

привет все
проблема в том, что при отмене сохранения ексель появляется вопрос о том , нужны ли сохранить изминение Таблицы 1 к примеру. Как обойти этот вопрос?

кстати прошу прощение за непонятные имена в коде, это просто по немецки

Код: Выделить всё


Public Sub Speichern()
    Dim i As Integer
    Dim c As Integer
   
    On Error Resume Next
    Form1.Dialog2.ShowSave
   
    If Form1.Dialog2.FileName <> "" Then

        Set objExcel = New Excel.Application
        objExcel.Visible = False
        objExcel.Workbooks.Add

        For c = 0 To Form1.mshG.Cols - 1

            DoEvents
            Form1.mshG.Col = c

            For i = 0 To Form1.mshG.Rows - 1
                DoEvents
                Form1.mshG.Row = i
                objExcel.ActiveCell(i + 1, c + 1) = Form1.mshG.Text

            Next i

        Next c

        objExcel.ActiveWorkbook.SaveAs (Form1.Dialog2.FileName)
        objExcel.Workbooks.Close ' вот это всё и поганит...
        Set objExcel = Nothing

   End Sub


[/syntax]

[GSerg]

objExcel.displayalerts=false
objExcel.Workbooks.Close
objExcel.displayalerts=true
objExcel.quit

ЗЫ: Есть форум VBA

[ZlydenGL]

Или еще проще.
objExcel.Saved=true