Уважаемые форумчане, подскажите пожалуйста, как можно решить следующий вопрос, написан макрос, он на отдельный лист (отчет) вставляет ячейки путем открывания и закрывания файлов и копирования из них. Файлы, находятся в отдельной папке, но беда в том, что эти файлы сделаны в разных версиях екселя (2003,7,10), при копировании данных выходит такое сообщение: майкрософт ексель пересчитывает формулы пр открытии файлов, сохраненных в более ранних версиях ексель, сохранить изменения? (см. вложения)
и приходится нажимать не сохранять, а если файлов 100 и из них 90 сохранено не на екселе 2010, то придется нажимать 90 раз на Не сохранить, как можно решить данную проблему?

Заранее спасибо

ПЕНСИОНЕРКАmartinezo,

не сохранять при закрытии
нажимаем Не сохранять, так не 90 раз же нажимать

ПЕНСИОНЕРКАmartinezo,




это надо прописать в модуле


вот макрос подскажите что надо списать:
Sub ShowFolderList(folderspec)
Dim fs, f, f1, fc, s, sh
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(folderspec)
Set fc = f.Files
Regim = Worksheets("Serv").Cells(1, 5).Value
Worksheets("Report").Range("A5:AA300").Select
' Range("AA34").Activate
Selection.ClearContents
i = 4
For Each f1 In fc
s = ""
s = s & folderspec & "\"
s = s & f1.Name
Workbooks.Open Filename:=s, ReadOnly:=True, editable:=False
WName = ActiveWorkbook.Name

incl = Worksheets("Serv").Cells(1, 5).Value
If incl = Regim Then
i = i + 1
Sheets("Problem").Select
Range("A2:R2").Select
Selection.Copy
Windows("Claims_Report.xls").Activate
Field = "A" & i
Sheets(1).Range(Field).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Cells(i, 19).Value = s

End If
Workbooks(WName).Close

Next
End Sub

просьба подсказать что нужно добавить в макрос

Shocker.Pro


Огромное спасибо, все работает