Определить путь к папке, где лежат надстройки xla

Дата: Суббота, 17.09.2016, 20:48 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 225

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

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

Дата: Суббота, 17.09.2016, 21:08 | Сообщение № 2

Группа: Друзья

Ранг: Экселист

Сообщений: 8999

Репутация: 2367 ±

Замечаний: 0% ±

Excel 2010

[vba]

Код

[a1] = "C:\Users\" & Environ("USERNAME") & "\AppData\Roaming\Microsoft\AddIns"

[/vba]наверное

ЮMoney 41001841029809

Дата: Суббота, 17.09.2016, 21:12 | Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 225

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

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

Дата: Суббота, 17.09.2016, 21:16 | Сообщение № 4

Группа: Друзья

Ранг: Экселист

Сообщений: 8999

Репутация: 2367 ±

Замечаний: 0% ±

Excel 2010

Цитата den45444, 17.09.2016 в 21:12, в сообщении № 3

USERS у всех ПК одинаковый, да?

не знаю, тренируюсь на 7-ке

ЮMoney 41001841029809

Дата: Суббота, 17.09.2016, 21:21 | Сообщение № 5

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 225

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Цитата Nic70y, 17.09.2016 в 21:16, в сообщении № 4

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

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

Дата: Суббота, 17.09.2016, 21:25 | Сообщение № 6

Группа: Друзья

Ранг: Экселист

Сообщений: 8999

Репутация: 2367 ±

Замечаний: 0% ±

Excel 2010

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

ЮMoney 41001841029809

Дата: Суббота, 17.09.2016, 21:34 | Сообщение № 7

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 225

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Цитата Nic70y, 17.09.2016 в 21:25, в сообщении № 6

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

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

Дата: Суббота, 17.09.2016, 21:37 | Сообщение № 8

Группа: Друзья

Ранг: Экселист

Сообщений: 8999

Репутация: 2367 ±

Замечаний: 0% ±

Excel 2010

[vba]

Код

[a1] = Environ("SystemDrive") & "\Users\" & Environ("USERNAME") & "\AppData\Roaming\Microsoft\AddIns"

[/vba]

ЮMoney 41001841029809

Дата: Суббота, 17.09.2016, 21:59 | Сообщение № 9

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 225

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Nic70y, благодарю, буду пробовать

krosav4ig

Дата: Воскресенье, 18.09.2016, 04:43 | Сообщение № 10

Группа: Друзья

Ранг: Старожил

Сообщений: 2347

Репутация: 997 ±

Замечаний: 0% ±

Excel 2007,2010,2013

[vba]

Код

[A1]=Application.UserLibraryPath

[/vba]

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Дата: Воскресенье, 18.09.2016, 06:57 | Сообщение № 11

Группа: Друзья

Ранг: Экселист

Сообщений: 8999

Репутация: 2367 ±

Замечаний: 0% ±

Excel 2010

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

ЮMoney 41001841029809

krosav4ig

Дата: Воскресенье, 18.09.2016, 08:09 | Сообщение № 12

Группа: Друзья

Ранг: Старожил

Сообщений: 2347

Репутация: 997 ±

Замечаний: 0% ±

Excel 2007,2010,2013

Цитата den45444, 17.09.2016 в 21:34, в сообщении № 7

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

в стандартном модуле в надстройке
[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 (14.2 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

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