В Visio после того, как пользователь импортировал данные из Excel, я хочу получить доступ к другим данным в этом файле Excel.Поэтому я извлекаю ConnectionString первого источника данных и добавляю DataRecordset с той же ConnectionString, но с другой CommandString.Однако я получаю сообщение об ошибке VBA:
Ошибка времени выполнения '-2032465067 (86db0b55)': невозможно подключиться к данным
В моей среде Office365 это работает нормально.Однако в другой среде, Office2016, я получаю вышеупомянутую ошибку.
Даже если я беру также CommandString первых импортированных данных, я получаю ошибку VBA.
Это ConnectionString:
Provider = Microsoft.ACE.OLEDB.12.0; ID пользователя = Admin; Источник данных = <... путь к файлу + имя файла ...>; Режим = Чтение; Расширенные свойства = "HDR = YES; IMEX= 1; MaxScanRows = 0; Excel 12.0; "; Jet OLEDB: системная база данных =" "; Jet OLEDB: путь в реестре =" "; Jet OLEDB: тип ядра = 37; Jet OLEDB: режим блокировки базы данных = 0; Jet OLEDB:Global Partial Bulk Ops = 2; Jet OLEDB: глобальные массовые транзакции = 1; Jet OLEDB: новый пароль базы данных = ""; Jet OLEDB: создать системную базу данных = False; Jet OLEDB: зашифровать базу данных = False; Jet OLEDB: не копироватьЛокаль на Компакт = Ложь; Jet OLEDB: Сжатие без восстановления реплик = Ложь; Jet OLEDB: SFP = Ложь; Jet OLEDB: Поддержка сложных данных = Ложь; Jet OLEDB: Обход проверки пользовательской информации = Ложь; Jet OLEDB: Ограниченное кэширование БД = Ложь;Jet OLEDB: обойти проверку ChoiceField = False
strConnection = ActiveDocument.DataRecordsets.ItemFromID(lngLinkedDataRecordsetID).DataConnection.ConnectionString
strCommand = "select * from `" & strTableSupplyChainPhases & "`"
Set drsSupplyChainPhases = ActiveDocument.DataRecordsets.Add(strConnection, strCommand, 0, "Supplychain fasen")