Переименовать папку и файл - Microsoft Office Excel - Страница 4

valerij · 11.11.2008, 12:05

Цитата:

Сообщение от SAS888

У Вас, скорее всего, нет этой dll-ки.

Она есть, но я ее заменил из W-XP и вот как выглядит

valerij · 11.11.2008, 12:58

Переименование работает, ярлык создается, НО:
Теперь не работает ввод данных(столбец С)

Нашел, было
If ActiveWorkbook.Name = Имя & ".xls" Then Exit Sub
Поменял
If ActiveWorkbook.Name = Имя & ".xls" Then GoTo 1
.......................
objShortCut.Save
MsgBox "Название обновлено"
1:

valerij · 13.11.2008, 02:47

Цитата:

Сообщение от SAS888

У Вас, скорее всего, нет этой dll-ки

SAS
Разобрался, нужно № менять, а еще, большой выбор иконок при использовании shell32.dll
objShortCut.IconLocation = "shell32.dll, 35"

11.11.2008, 12:58	#32
valerij Старожил Регистрация: 12.05.2007 Сообщений: 2,339	Переименование работает, ярлык создается, НО: Теперь не работает ввод данных(столбец С) Нашел, было If ActiveWorkbook.Name = Имя & ".xls" Then Exit Sub Поменял If ActiveWorkbook.Name = Имя & ".xls" Then GoTo 1 ....................... objShortCut.Save MsgBox "Название обновлено" 1: Последний раз редактировалось valerij; 11.11.2008 в 13:15.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Переименовать файл из директории	Алексей_C	Общие вопросы Delphi	4	30.10.2008 10:48
Можно ли программно переименовать папку	Rusl92	Общие вопросы Delphi	3	13.09.2008 12:52
Как сохранить файл заранее указывая папку?	highklass	Общие вопросы Delphi	2	09.06.2008 10:58
Под скажите как переименовать файл?	snaem	Общие вопросы .NET	4	23.04.2008 23:15
как переименовать	samosval	Общие вопросы .NET	1	19.12.2007 21:40