ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Найти путь к файлу на рабочем столе
6 сообщений из 6, страница 1 из 1
Найти путь к файлу на рабочем столе
    #37092507
skleppi
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
skleppi
Гость
Добрый день всем! =)
У меня возникла такая проблема:

Хочу задать путь к файлу на рабочем столе. И если задать его явно, то всё обрабатывается правильно.
Но если каким-то программным способом, то макрос не может найти этот файл.

Например,
если задать путь к файл явно:

Код: plaintext
1.
directory = "D:\Documents and Settings\MyName\Desktop\"

то потом, используя
Код: plaintext
 Workbooks.Open Filename:=directory & "report (" & date & ").xls"
, я могу открыть файл.

Но если задам путь к файлу так:

Код: plaintext
1.
2.
user_name = Application.UserName
directory = "D:\Documents and Settings\" & user_name & "\Desktop\"

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

Пробовала ещё такой способ:

Код: plaintext
1.
2.
3.
4.
Env_length = Len(Environ( 28 ))
EnvString = Len(Left(Environ( 28 ),  11 ))
delta = Env_length - EnvString
directory = Right(Environ( 28 ), delta) & "\Desktop\"

тоже не получилось!

Что странно, вчера второй способ срабатывал, а сегодня уже не может найти файл.

Кто-нибудь знает, что можно сделать? :)
...
Рейтинг: 0 / 0
02.02.2011, 11:15
| Ответить | Цитировать | Написать  
Найти путь к файлу на рабочем столе
    #37092582
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: skleppi
> Что странно, вчера второй способ срабатывал, а сегодня уже не может найти файл.

А сегодня файл удалили и его нет на рабочем столе или переименовали

> Кто-нибудь знает, что можно сделать? :)

вытащить из корзины или вернуть имя :)

P.S. Ы?

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
02.02.2011, 11:31
| Ответить | Цитировать | Написать  
Найти путь к файлу на рабочем столе
    #37092656
skleppi
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
skleppi
Гость
Игорь Горбонос,

очень умно))
файл на месте и никто его не рогал
...
Рейтинг: 0 / 0
02.02.2011, 11:53
| Ответить | Цитировать | Написать  
Найти путь к файлу на рабочем столе
    #37092669
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
The_Prist
Участник
skleppi,

Игорь верно Вам ссылку дал, а Вы почему-то отнекиваетесь...Или почитать по ссылке лень?

Код: plaintext
1.
directory = CreateObject("WScript.Shell").SpecialFolders("Desktop")
Workbooks.Open Filename:=directory & "\report (" & date & ").xls"
...
Рейтинг: 0 / 0
02.02.2011, 11:56
| Ответить | Цитировать | Написать  
Найти путь к файлу на рабочем столе
    #37092924
skleppi
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
skleppi
Гость
The_Prist,

я почитала)) а отнекивалась от фразы, что файл удален или переименован =)
...
Рейтинг: 0 / 0
02.02.2011, 13:07
| Ответить | Цитировать | Написать  
Найти путь к файлу на рабочем столе
    #37092963
skleppi
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
skleppi
Гость
The_Prist,

этим способом получилось =))
Спасибо большое!!!
...
Рейтинг: 0 / 0
02.02.2011, 13:20
| Ответить | Цитировать | Написать  
6 сообщений из 6, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Найти путь к файлу на рабочем столе
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=37092963&tid=2177213]:
 0ms
get settings:
 10ms
get forum list:
 17ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 159ms
get topic data:
 10ms
get forum data:
 3ms
get page messages:
 40ms
get tp. blocked users:
 1ms
others: 226ms
total:  474ms
созд. / загр.: 474ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]