|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
19.07.2010, 09:19 | #1 |
Пользователь
Регистрация: 20.01.2010
Сообщений: 53
|
Совместимость Excel 2003 и 2007
Здравствуйте, я работаю в Excel 2007, у меня есть макрос который ищет определённые файлы в указанной папке, производит с ними ряд преобразований а затем сохраняет в формате Excel 2003. Проблема в том, что при сохранении каждого файла появляется окошко проверки совместимости и нужно кликать "Продолжить". Подскажите пожалуйста строчку, которая бы помогла сделать это автоматически. Спасибо.
Последний раз редактировалось 1134; 19.07.2010 в 09:30. |
19.07.2010, 10:47 | #2 |
Форумчанин
Регистрация: 14.05.2009
Сообщений: 311
|
ActiveWorkbook.CheckCompatibility = False
|
19.07.2010, 11:41 | #3 |
Пользователь
Регистрация: 20.01.2010
Сообщений: 53
|
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 Что-то не помогает, всёравно окошко появляется... |
19.07.2010, 11:48 | #4 |
Форумчанин
Регистрация: 24.03.2010
Сообщений: 349
|
попробуй так:
Код:
Нет нерешаемых задач - есть недостаток времени и данных!
|
19.07.2010, 11:49 | #5 |
Форумчанин
Регистрация: 14.05.2009
Сообщений: 311
|
строчку ActiveWorkbook.CheckCompatibility = False
поставь перед SaveAs... |
19.07.2010, 12:33 | #6 |
Пользователь
Регистрация: 20.01.2010
Сообщений: 53
|
Не помогает ни то, ни другое... в чём же дело?
|
19.07.2010, 12:48 | #7 |
Форумчанин
Регистрация: 14.05.2009
Сообщений: 311
|
твой макрос GoMacro - он не меняет активную книгу?
или косяк (более вероятно) в расширении файлов dat |
19.07.2010, 13:49 | #8 |
Пользователь
Регистрация: 20.01.2010
Сообщений: 53
|
Нет, книгу активную не меняет, не думаю что дело в расширении, т.к. при других расширениях ситуация идентичная! Этого не происходит только если сохранять в формате Excel 2007.
|
19.07.2010, 13:57 | #9 |
Форумчанин
Регистрация: 14.05.2009
Сообщений: 311
|
попробуй это
Application.DisplayAlerts=False только в конце обяз-но на True верни сделай миниатюру своей задачи (сам макрос и пару файлов .dat) и прицепляй сюда |
19.07.2010, 14:08 | #10 |
Пользователь
Регистрация: 20.01.2010
Сообщений: 53
|
Application.DisplayAlerts=False Помогло! Спасибо!
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Совместимость 2003 и 2007 | chandrasecar | Microsoft Office Excel | 1 | 12.07.2010 23:01 |
Подстановка по столбцам. 2003 ---> 2007 excel | fernon | Microsoft Office Excel | 3 | 17.05.2010 18:35 |
Совместимость макросов из exel 2003 с 2007 | palleot | Microsoft Office Excel | 1 | 30.06.2009 15:38 |
Как запретить запуск программы на VBA Excel 2003 в Excel 2007 | kovalevskivf | Microsoft Office Excel | 2 | 15.05.2009 16:47 |
Не работаем надстройка xla в 2007 excel (созданная в 2003-м) | gysek | Microsoft Office Excel | 2 | 19.11.2008 12:06 |