Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Найти путь к файлу на рабочем столе / 6 сообщений из 6, страница 1 из 1
02.02.2011, 11:15
    #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:31
    #37092582
Игорь Горбонос
Игорь Горбонос
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Найти путь к файлу на рабочем столе
> Автор: skleppi
> Что странно, вчера второй способ срабатывал, а сегодня уже не может найти файл.

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

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

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

P.S. Ы?

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

очень умно))
файл на месте и никто его не рогал
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.02.2011, 11:56
    #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, 13:07
    #37092924
skleppi
skleppi
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Найти путь к файлу на рабочем столе
The_Prist,

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

этим способом получилось =))
Спасибо большое!!!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Найти путь к файлу на рабочем столе / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 503ms
Закрыть
start [/forum/topic.php?fid=61&tablet=1&tid=2177213]:
 0ms
get settings:
 9ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 182ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 42ms
get tp. blocked users:
 1ms
others: 239ms
total:  503ms
x
x
Закрыть


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