Страницы: 1
RSS
Макрос сохранение Excel файла с относительным путем, Прошу помощи при попытке добавить в макрос относительный путь (%USERPROFILE%) появилась ошибка
 
Прошу помощи при попытке добавить в макрос относительный путь (%USERPROFILE%) появилась ошибка
ActiveWorkbook.SaveAs Range("e2") & Range("'карточка '!B4") & "\" & Range("m3") & "_" & Range("B3") & "_" & Range("G3") & ".xls"
В ячейках содержится путь + формируется имя файла.
Выходит ошибка Run-time error '10004'
Изменено: Skad - 11.07.2016 12:32:15
 
Вы хоть напишите каким кодом это пытаетесь сделать и что за ошибка. Экстрасенсов здесь нет и сидеть гадать никто не будет.
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
Добавляйте Environ("USERPROFILE")
 
По пробывал с  Environ("USERPROFILE")  выходит та же ошибка  пример файла выложил
Изменено: Skad - 11.07.2016 12:34:05
 
Где по Вашему должно быть определение папки пользователя? И какое отношение приведенный Вами код имеет отношение к выложенному файлу? Все ячейки в строке 3 пустые.
Цитата
Skad написал:
пробывал с  Environ("USERPROFILE")  выходит та же ошибка
Где и как?

Предположительно должно быть что-то вроде:
Код
ActiveWorkbook.SaveAs Environ("USERPROFILE") & "\" & Range("'карточка '!B4") & "\" & Range("m3") & "_" & Range("B3") & "_" & Range("G3") & ".xls"
 
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
Файл не смотрел - нужен файл с кодом, что там смотреть...
 
Глянул файл - для него подойдёт
Код
MsgBox Replace([e1], "%UserName%", Environ("USERNAME"))

Но так быстро всё меняется... :)
 
Цитата
Hugo написал:
Hugo
Большое спасибо у меня все получилось
сразу не увидел, что Environ("USERPROFILE") указывает значения только до профиля  
 
Просили %USERPROFILE% - получили Environ("USERPROFILE"). Ктож знал, что нужно другое :)
Но т.к. аналогично - можно было догадаться.
Изменено: Hugo - 11.07.2016 13:17:05
Страницы: 1
Читают тему
Наверх