Je dois créer une application Excel basée sur certaines tables.Comment charger le modèle de données powerpivot avec plusieurs tables?
J'ai exécuté le code dans VBA et cela a fonctionné. Dans "Visual Studio", cela ne fonctionne pas.
Mon code ici:
Dim xlApp As Excel.Application
xlApp = Globals.ThisAddIn.Application
xlApp.ActiveWorkbook.Connections.Add2("Target Connection Name", "", _
"OLEDB;Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=True;Data Source=SERVER\SQLEXPRESS;Use Procedure for Prepare=1;Auto Translate=True;Packet
Size=8192;Workstation ID=NAME;Use Encryption for Data=False;Tag with column collation when possible=False;Initial Catalog=MYSQLDATABASE;", _
"""TAB_CATEGORIA"",""TAB_MOVIMENTO""", Excel.XlCmdType.xlCmdTableCollection, vbTrue, vbTrue)
Lorsque j'exécute ce code, je reçois le message suivant:.
« Le répertoire de la cartouche n'a pu être trouvée Utilisez le Windows Installer pour réparer les application."
j'ai réalisé que lorsque nous générons une nouvelle instance, il fonctionne:
Dim xlApp As NEW Excel.Application
Mais, malheureusement, je besoin l'instance actuelle
xlApp = Globals.ThisAddIn.Application
Quand je l'utilise « Globals. ThisAddIn.Application "pour générer un objet WorkbookConnection, l'exception est levée.
Plus d'informations,
- Bureau 2013 mis à jour
- Visual Studio 2015 mis à jour
**** Vous pouvez voir juste en dessous de ma trace de la pile *****
System.Runtime.InteropServices.COMException was unhandled by user code
ErrorCode=-2146827284
HelpLink=xlmain11.chm
HResult=-2146827284
Message=Não pudemos obter dados do Modelo de Dados. Veja a mensagem de erro que recebemos:
The cartridge directory could not be found. Use the Windows Installer to repair the application.
Source=Microsoft Excel
StackTrace:
em System.RuntimeType.ForwardCallToInvokeMember(String memberName, BindingFlags flags, Object target, Int32[] aWrapperTypes, MessageData& msgData)
em Microsoft.Office.Interop.Excel.Connections.Add2(String Name, String Description, Object ConnectionString, Object CommandText, Object lCmdtype, Object CreateModelConnection, Object ImportRelationships)
em ExcelAddIn2.Conectar.Button1_Click(Object sender, RibbonControlEventArgs e) na D:\work\projetos\SPHERA\OmieDecisionMaker\OmieDecisionMaker\ExcelAddIn2\Ribbon1.vb:linha 37
em Microsoft.Office.Tools.Ribbon.RibbonPropertyStorage.ControlActionRaise(IRibbonControl control)
em Microsoft.Office.Tools.Ribbon.RibbonPropertyStorage.ButtonClickCallback(RibbonComponentImpl component, Object[] args)
em Microsoft.Office.Tools.Ribbon.RibbonManagerImpl.Invoke(RibbonComponentCallback callback, Object[] args)
em Microsoft.Office.Tools.Ribbon.RibbonManagerImpl.System.Reflection.IReflect.InvokeMember(String name, BindingFlags invokeAttr, Binder binder, Object target, Object[] args, ParameterModifier[] modifiers, CultureInfo culture, String[] namedParameters)
InnerException: