Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
нужен макрос для сохранения книги на рабочий стол
 
#1
29.11.2010 14:13:04
Добрый день  
Мне нужен макрос для сохранения книги на рабочий стол. Сейчас сохраняет на мой рабочий стол, а нужно чтобы на любой рабочий стол, т.е. вставил флешку в любой комп и при выполнении макроса книга сохранялась на рабочий стол именного того компа, на котором был запущен файл
 
 
 
#2
29.11.2010 14:58:07
Sub Макрос()  
   ПутьКРабочемуСтолу = CreateObject("WScript.Shell").SpecialFolders("Desktop")  
   ActiveWorkbook.SaveAs ПутьКРабочемуСтолу & "\ИмяФайла.xls"  
End Sub
Надстройки для Excel  Парсинг сайтов  Мониторинг цен конкурентов
 
 
 
#3
29.11.2010 16:16:51
с этим макросом кидает в папку C:\Users\Олег  
(Windows 7)
 
 
 
#4
29.11.2010 16:31:11
Записано макрорекордером:  
 
Sub Макрос1()  
   ChDir "C:\ляляля\Рабочий стол"  
   ActiveWorkbook.SaveAs Filename:= _  
       "C:\ляляля\Рабочий стол\111.xlsm", FileFormat:= _  
       xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False  
End Sub
Редко но метко ...
 
 
 
#5
29.11.2010 16:33:09
Видимо, в Windows7 путь к рабочему столу надо получать как-то иначе...  
(я тестирован данный код только под WindowsXP)  
 
Для проверки запустите такой макрос, и скажите, какой путь появляется в сообщении (если вообще будет выведен какой-то текст):  
 
Sub test()  
   MsgBox CreateObject("WScript.Shell").SpecialFolders("Desktop")  
End Sub  
 
 
PS: Если у кого установлена Win7 - пожалуйста, проверьте макрос, и сообщите о результате.
Надстройки для Excel  Парсинг сайтов  Мониторинг цен конкурентов
 
 
 
#6
29.11.2010 16:38:43
{quote}{login=kovax}{date=29.11.2010 04:16}{thema=}{post}с этим макросом кидает в папку C:\Users\Олег  
(Windows 7){/post}{/quote}  
Правильно, т.к. нужны права администратора. В Windows7 даже рабочий стол защищён правами администратора. Нужно Ваш файлик Excel с макросом запускать от имени администратора, тогда его и сохраните на рабочем столе.
 
 
 
#7
29.11.2010 17:19:26
сейчас попробую  
я же писал, что у меня в данный момент прописан в макросе адрес моего рабочего стола и всё прекрасно сохраняет без прав администратора, мне же нужно, чтобы я открыв свой файл с флешки любого другого компьютера, нужный мне лист сохранялся на рабочем столе этого компьютера
 
 
 
#8
29.11.2010 17:23:05
при выполнении вышенаписаноого макроса выскакивает сообщение с таким адресом C:\Users\Олег\Desktop
 
 
 
#9
29.11.2010 17:32:55
Согласно требованиям темы, Вам предоставили код сохранения книги на рабочий стол, теперь Вы говорите о нужном листе. Что потом еще нужно будет?
<FONT COLOR="CadetBlue">
 
 
 
#10
29.11.2010 17:37:34
{quote}{login=kovax}{date=29.11.2010 05:23}{thema=}{post}при выполнении вышенаписаноого макроса выскакивает сообщение с таким адресом C:\Users\Олег\Desktop{/post}{/quote}  
 
Значит, предложенный мной код должен работать как надо.  
 
Надеюсь, в этой строке:  
ActiveWorkbook.SaveAs ПутьКРабочемуСтолу & "\ИмяФайла.xls"  
 
вы не убрали слеш перед именем файла?
Надстройки для Excel  Парсинг сайтов  Мониторинг цен конкурентов
 
 
 
#11
29.11.2010 21:15:21
неправильно выразился, нужно сохранить книгу.
 
 
 
#12
30.11.2010 10:20:27
EducatedFool, спасибо, ваш макрос работает
 
 
 
#13
30.11.2010 10:24:06
я скорее всего действительно первый раз когда пробовал удалил слеш
 
 
 
Страницы: 1
Читают тему
Наверх