проблема в том, что при отмене сохранения ексель появляется вопрос о том , нужны ли сохранить изминение Таблицы 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
