Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Определить путь к папке, где лежат надстройки xla - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Определить путь к папке, где лежат надстройки xla (Макросы/Sub)
Определить путь к папке, где лежат надстройки xla
den45444 Дата: Суббота, 17.09.2016, 20:48 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 225
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Прошу помощи. Как можно определить путь к папке надстроек xla на любом ПК?
Например, полный путь : "C:\Users\Имя_учетной_записи\AppData\Roaming\Microsoft\AddIns"
Нельзя ли обойти имя учетной записи?
 
Ответить
СообщениеПрошу помощи. Как можно определить путь к папке надстроек xla на любом ПК?
Например, полный путь : "C:\Users\Имя_учетной_записи\AppData\Roaming\Microsoft\AddIns"
Нельзя ли обойти имя учетной записи?

Автор - den45444
Дата добавления - 17.09.2016 в 20:48
Nic70y Дата: Суббота, 17.09.2016, 21:08 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3477
Репутация: 722 ±
Замечаний: 0% ±

Excel 2013
[vba]
Код
[a1] = "C:\Users\" & Environ("USERNAME") & "\AppData\Roaming\Microsoft\AddIns"
[/vba]наверное


ЯД(poison) 41001841029809
+7 978 049 98 74 (мтс)
 
Ответить
Сообщение[vba]
Код
[a1] = "C:\Users\" & Environ("USERNAME") & "\AppData\Roaming\Microsoft\AddIns"
[/vba]наверное

Автор - Nic70y
Дата добавления - 17.09.2016 в 21:08
den45444 Дата: Суббота, 17.09.2016, 21:12 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 225
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Nic70y, благодарю за ответ.
я так понимаю USERS у всех ПК одинаковый, да?
 
Ответить
СообщениеNic70y, благодарю за ответ.
я так понимаю USERS у всех ПК одинаковый, да?

Автор - den45444
Дата добавления - 17.09.2016 в 21:12
Nic70y Дата: Суббота, 17.09.2016, 21:16 | Сообщение № 4
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3477
Репутация: 722 ±
Замечаний: 0% ±

Excel 2013
USERS у всех ПК одинаковый, да?
не знаю, тренируюсь на 7-ке


ЯД(poison) 41001841029809
+7 978 049 98 74 (мтс)
 
Ответить
Сообщение
USERS у всех ПК одинаковый, да?
не знаю, тренируюсь на 7-ке

Автор - Nic70y
Дата добавления - 17.09.2016 в 21:16
den45444 Дата: Суббота, 17.09.2016, 21:21 | Сообщение № 5
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 225
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
тренируюсь на 7-ке

получается?
у меня на 8-ке получается
 
Ответить
Сообщение
тренируюсь на 7-ке

получается?
у меня на 8-ке получается

Автор - den45444
Дата добавления - 17.09.2016 в 21:21
Nic70y Дата: Суббота, 17.09.2016, 21:25 | Сообщение № 6
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3477
Репутация: 722 ±
Замечаний: 0% ±

Excel 2013
получается,
хотя бывают случаи, что система не на C установлена.


ЯД(poison) 41001841029809
+7 978 049 98 74 (мтс)
 
Ответить
Сообщениеполучается,
хотя бывают случаи, что система не на C установлена.

Автор - Nic70y
Дата добавления - 17.09.2016 в 21:25
den45444 Дата: Суббота, 17.09.2016, 21:34 | Сообщение № 7
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 225
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
хотя бывают случаи, что система не на C установлена

Ну да, я хотел перекинуть надстройку и включить ее.
А как программно установить надстройку в другом месте? Например, пользователь получил новую надстройку и файл с макросом который будет устанавливать/обновлять надстройку. Оба файла нах-ся в одной папке. Ведь если я не ошибаюсь в ручную можно выбрать расположение файла надстройки в любом месте.
 
Ответить
Сообщение
хотя бывают случаи, что система не на C установлена

Ну да, я хотел перекинуть надстройку и включить ее.
А как программно установить надстройку в другом месте? Например, пользователь получил новую надстройку и файл с макросом который будет устанавливать/обновлять надстройку. Оба файла нах-ся в одной папке. Ведь если я не ошибаюсь в ручную можно выбрать расположение файла надстройки в любом месте.

Автор - den45444
Дата добавления - 17.09.2016 в 21:34
Nic70y Дата: Суббота, 17.09.2016, 21:37 | Сообщение № 8
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3477
Репутация: 722 ±
Замечаний: 0% ±

Excel 2013
[vba]
Код
[a1] = Environ("SystemDrive") & "\Users\" & Environ("USERNAME") & "\AppData\Roaming\Microsoft\AddIns"
[/vba]


ЯД(poison) 41001841029809
+7 978 049 98 74 (мтс)
 
Ответить
Сообщение[vba]
Код
[a1] = Environ("SystemDrive") & "\Users\" & Environ("USERNAME") & "\AppData\Roaming\Microsoft\AddIns"
[/vba]

Автор - Nic70y
Дата добавления - 17.09.2016 в 21:37
den45444 Дата: Суббота, 17.09.2016, 21:59 | Сообщение № 9
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 225
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Nic70y, благодарю, буду пробовать
 
Ответить
СообщениеNic70y, благодарю, буду пробовать

Автор - den45444
Дата добавления - 17.09.2016 в 21:59
krosav4ig Дата: Воскресенье, 18.09.2016, 04:43 | Сообщение № 10
Группа: Друзья
Ранг: Старожил
Сообщений: 1345
Репутация: 547 ±
Замечаний: 0% ±

Excel 2007, 2013
[vba]
Код
[A1]=Application.UserLibraryPath
[/vba]


(_)Õvõ(_)
 
Ответить
Сообщение[vba]
Код
[A1]=Application.UserLibraryPath
[/vba]

Автор - krosav4ig
Дата добавления - 18.09.2016 в 04:43
Nic70y Дата: Воскресенье, 18.09.2016, 06:57 | Сообщение № 11
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3477
Репутация: 722 ±
Замечаний: 0% ±

Excel 2013
krosav4ig, не знал, стырю


ЯД(poison) 41001841029809
+7 978 049 98 74 (мтс)
 
Ответить
Сообщениеkrosav4ig, не знал, стырю

Автор - Nic70y
Дата добавления - 18.09.2016 в 06:57
krosav4ig Дата: Воскресенье, 18.09.2016, 08:09 | Сообщение № 12
Группа: Друзья
Ранг: Старожил
Сообщений: 1345
Репутация: 547 ±
Замечаний: 0% ±

Excel 2007, 2013
перекинуть надстройку и включить ее

в стандартном модуле в надстройке
[vba]
Код
Sub Auto_Open()
    Dim strName$: strName = Replace(ThisWorkbook.Name, "_New", "")
    If InStr(ThisWorkbook.FullName, Application.UserLibraryPath) < 1 Then
        On Error Resume Next
        Application.Workbooks(strName).Close 0
        On Error GoTo 0
        With CreateObject("Scripting.FileSystemObject")
            .CopyFile ThisWorkbook.FullName, Application.UserLibraryPath & strName, 1
            Do
                DoEvents
            Loop Until .fileexists(Application.UserLibraryPath & strName)
        End With
    End If
    Application.AddIns(Left(strName, InStrRev(strName, ".") - 1)).Installed = True
    If Workbooks.Count = 0 Then Workbooks.Add
End Sub
[/vba]
или в ЭтаКнига, тогда вместо [vba]
Код
Sub Auto_Open
[/vba] [vba]
Код
Private Sub Workbook_Open()
[/vba]
К сообщению приложен файл: test_New.xlam(14Kb)


(_)Õvõ(_)

Сообщение отредактировал krosav4ig - Воскресенье, 18.09.2016, 08:13
 
Ответить
Сообщение
перекинуть надстройку и включить ее

в стандартном модуле в надстройке
[vba]
Код
Sub Auto_Open()
    Dim strName$: strName = Replace(ThisWorkbook.Name, "_New", "")
    If InStr(ThisWorkbook.FullName, Application.UserLibraryPath) < 1 Then
        On Error Resume Next
        Application.Workbooks(strName).Close 0
        On Error GoTo 0
        With CreateObject("Scripting.FileSystemObject")
            .CopyFile ThisWorkbook.FullName, Application.UserLibraryPath & strName, 1
            Do
                DoEvents
            Loop Until .fileexists(Application.UserLibraryPath & strName)
        End With
    End If
    Application.AddIns(Left(strName, InStrRev(strName, ".") - 1)).Installed = True
    If Workbooks.Count = 0 Then Workbooks.Add
End Sub
[/vba]
или в ЭтаКнига, тогда вместо [vba]
Код
Sub Auto_Open
[/vba] [vba]
Код
Private Sub Workbook_Open()
[/vba]

Автор - krosav4ig
Дата добавления - 18.09.2016 в 08:09
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Определить путь к папке, где лежат надстройки xla (Макросы/Sub)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2016 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!