Совместимость Excel 2003 и 2007

[1134]

Здравствуйте, я работаю в Excel 2007, у меня есть макрос который ищет определённые файлы в указанной папке, производит с ними ряд преобразований а затем сохраняет в формате Excel 2003. Проблема в том, что при сохранении каждого файла появляется окошко проверки совместимости и нужно кликать "Продолжить". Подскажите пожалуйста строчку, которая бы помогла сделать это автоматически. Спасибо.

[аналитика]

ActiveWorkbook.CheckCompatibility = False

[1134]

Sub Auto_Write_In_Books()
Dim sFolder As String, sFiles As String, li As Long
With Application.FileDialog(msoFileDialo gFolderPicker)
If .Show = False Then Exit Sub
sFolder = .SelectedItems(1)
End With
Application.ScreenUpdating = False
sFiles = Dir(sFolder & Application.PathSeparator & "*.dat")
On Error Resume Next
Do While sFiles <> ""
If ThisWorkbook.Name <> sFiles Then
Workbooks.Open sFiles

Go_Macro

ActiveWorkbook.SaveAs FileFormat:= _
xlExcel8, CreateBackup:=False
ActiveWorkbook.Close SaveChanges:=True
ActiveWorkbook.CheckCompatibility = False
End If
sFiles = Dir
Loop
Application.ScreenUpdating = True
End Sub

Что-то не помогает, всёравно окошко появляется...

[Skif-F]

попробуй так:

with ActiveWorkbook
   .CheckCompatibility = False
   .SaveAs FileFormat:=xlExcel8, CreateBackup:=False
   .Close SaveChanges:=True
end with

[аналитика]

строчку ActiveWorkbook.CheckCompatibility = False
поставь перед SaveAs...

[1134]

Не помогает ни то, ни другое... в чём же дело?

[аналитика]

твой макрос GoMacro - он не меняет активную книгу?
или косяк (более вероятно) в расширении файлов dat

[1134]

Нет, книгу активную не меняет, не думаю что дело в расширении, т.к. при других расширениях ситуация идентичная! Этого не происходит только если сохранять в формате Excel 2007.

[аналитика]

попробуй это
Application.DisplayAlerts=False
только в конце обяз-но на True верни

сделай миниатюру своей задачи (сам макрос и пару файлов .dat) и прицепляй сюда

[1134]

Application.DisplayAlerts=False Помогло! Спасибо!