powered by simpleCommunicator - 2.0.31     © 2024 Programmizd 02
Форумы / SharePoint [игнор отключен] [закрыт для гостей] / загрузить данные из файла Excel посредством vba с идентификацией пользователя.
1 сообщений из 1, страница 1 из 1
загрузить данные из файла Excel посредством vba с идентификацией пользователя.
    #39751841
Aleksandr_Z
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
В нашей организации все пользователи имеют свою учетную запись Windows и учетную запись Office365 (такую же, как и имя пользователя/ пароль Windows). Я создал список Sharepoint с такими настройками, что только некоторые суперпользователи могут добавлять данные в список, другие пользователи могут только читать. Информация в список SP должна быть загружена из ExcelWorkbook.Sheet («Форма»).
Когда использую ниже приведенный код, суперпользователи могут загружать данные в список SP только со своих учетных записей. Но необходимо, чтобы суперпользователи могли загружать с любого аккаунта (т.е. и с аккаунтов обычных пользователей).
Если использую строку подключения cnt.Open ConnectionString: = strconn, UserID: = "Superuser@mycompany.com", Password: = "superuserpassword", то выкидывает ошибку '-2147217843 (80040e4d)': недопустимое имя учетной записи или пароль".
Если же использую cnt.Open ConnectionString:=strconn, UserID:="", Password:="" или UserID:=Admin, Password:="", то загрузить данные в список SP суперпользователь может только со своего компьютера или же загрузившись с другого компьютера под своим аккаунтом.
Используемый код:

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
Set cnt = New ADODB.Connection
Set rst = New ADODB.Recordset

strconn = "Provider=Microsoft.ACE.OLEDB.12.0;WSS;IMEX=0;RetrieveIds=Yes;DATABASE=https://mycompany.sharepoint.com/sites/Procesregister/;LIST={********-****-****-****-************};"
cnt.Open ConnectionString:=strconn
mySQL = "SELECT * FROM [Register];"
rst.Open mySQL, cnt, adOpenDynamic, adLockOptimistic 

rst.AddNew
    rst.Fields(1) = 0
    rst.Fields(3) = Range("cell1")
    rst.Fields(4) = Range("cell2")
    rst.Fields(5) = Range("cell3")
    rst.Fields(6) = Range("cell4")
    rst.Fields(7) = Range("cell5")
rst.Update

If CBool(rst.State And adStateOpen) = True Then rst.Close
Set rst = Nothing
If CBool(cnt.State And adStateOpen) = True Then cnt.Close
Set cnt = Nothing




Можно ли загрузить данные в список Sharepoint с правами суперпользователя (используя имя и пароль учетной записи суперпользователя) из любой учетной записи компании?
* UserID = "Superuser@mycompany.com" - такой же, как в excel> account> user information.
Windows> Панель управления> Диспетчер учетных записей: MicrosoftOffice15_Data: orgid: superuser@company.com[SRC VB][/SRC]
...
Рейтинг: 0 / 0
1 сообщений из 1, страница 1 из 1
Форумы / SharePoint [игнор отключен] [закрыт для гостей] / загрузить данные из файла Excel посредством vba с идентификацией пользователя.
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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