Cохранение файла

[segail]

Excel 2007 VBA

Помогите создать код сохранения.

Необходимо при клике по кнопке, которая находится на форме, происходило сохранение документа с совместимостью Excel 97-2003 без поддержки макросов.

1. При сохранение в папке Мои документы должна создаться папка с именем Док в которую должен сохраняется файл (и в дальнейшем будут сохраняться файлы) с именем значений ячейки A9
2. Желательно чтобы окна сообщений не выходили на экран. Такие как (предупреждение о изменение формата файла…..) и (файл с таким именем существует…..)
3. Необходимо чтобы данный код работал и на другом компьютере, так что путь создание папки и сохранение файла "C:\Documents and Settings\Пользователь\Мои документы\Док" не подойдет, так как предугадать пользователя не возможно. Необходим наверное какой то код?

P.S Книгу так и не скачал, страница не открывается

[EducatedFool]

Sub test()
    'Environ(28) = "USERPROFILE=C:\Documents and Settings\Игорь"
    путь = Replace(Environ(28), "USERPROFILE=", "") & "\Мои документы\"
    If Dir(путь, vbDirectory) = "" Then MkDir путь
    путь = путь & "Док\": If Dir(путь, vbDirectory) = "" Then MkDir путь
    ПолныйПутьКФайлу = путь & [a9]:    Debug.Print ПолныйПутьКФайлу
    Application.DisplayAlerts = False ' выключаем вывод предупреждений
    ThisWorkbook.SaveAs ПолныйПутьКФайлу, xlWorkbookNormal ' сохраняем файл
    Application.DisplayAlerts = True ' включаем обратно
End Sub

В данном коде не учитывается тот факт, что папка Мои документы может быть переименована и перемещена.

Ещё вариант:

Sub test2()
    ' так мы всегда корректно определим путь к папке с документами
    ' даже если она находится на другом диске и называется иначе
    путь = CreateObject("WScript.Shell").SpecialFolders("MyDocuments")
    
    путь = путь & "\Док\": If Dir(путь, vbDirectory) = "" Then MkDir путь
    ПолныйПутьКФайлу = путь & [a9]: Debug.Print ПолныйПутьКФайлу
    Application.DisplayAlerts = False    ' выключаем вывод предупреждений
    ThisWorkbook.SaveAs ПолныйПутьКФайлу, xlWorkbookNormal    ' сохраняем файл
    Application.DisplayAlerts = True    ' включаем обратно
End Sub

[segail]

Я тоже это не предусмотрел. А может тогда создать в общих документах ее просто так не удалишь.

[EducatedFool]

А может тогда создать в общих документах ее просто так не удалишь.

Ещё как удалишь...
К тому же, её точно также можно переместить и переименовать.

Я тоже это не предусмотрел

Зато я предусмотрел.
Читаем внимательно комментарий во втором макросе:

 ' так мы всегда корректно определим путь к папке с документами
    ' даже если она находится на другом диске и называется иначе
    путь = CreateObject("WScript.Shell").SpecialFolders("MyDocuments")

[segail]

Буду пробовать. Потм сообщу

[segail]

На листе есть элемент ActiveX и заливка при сохранение в формате 97-2003 выходит сообщение.
Нельзя ли его как то блокировать или согласится с ним в коде при выполнение сохранения.

[EducatedFool]

В коде есть строка, отвечающая за блокировку вывода предупреждений:
Application.DisplayAlerts = False ' выключаем вывод предупреждений

Если это сообщение не блокируется (проверить не могу - у меня Excel 2003), то тут ничего не поделать...
Возможно, режим проверки совместимости можно оключить, но как именно - не знаю.

Удали этот свой элемент ActiveX (больше чем уверен, что без него можно обойтись) и неподдерживаемое форматирование, и сообщение не будет выскакивать.

[segail]

А такой цвет в 97-2003 каой может быть, цифровой и буквенный

ThemeColor = xlThemeColorAccent1 < ---------------- заливка
ThemeColor = 5 < ----------------------------------- границы

[EducatedFool]

В Excel 2003 ни у одного объекта нет свойства ThemeColor.
Придется переделывать код (а проще удалить эти строки)

Вот таблицы цветов. Выбирай из первой таблицы:

[segail]

Для границ и для заливки, разницы нет?