[英]How to load powerpivot data model with multiple tables?
我需要基于一些表创建一个Excel应用程序。
我在VBA中运行了代码,它起作用了。 在“ Visual Studio”中不起作用。
我的代码在这里:
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)
执行此代码时,收到以下消息:
“找不到盒带目录。使用Windows Installer修复应用程序。”
我意识到,当我们生成一个新实例时,它可以工作:
Dim xlApp As NEW Excel.Application
但是,不幸的是,我需要当前实例
xlApp = Globals.ThisAddIn.Application
当我使用“ Globals.ThisAddIn.Application”生成WorkbookConnection对象时,将引发异常。
更多信息,
- Office 2013更新
- Visual Studio 2015更新
****您可以在我的堆栈跟踪下面看到*****
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:
看起来不兼容,将Office 2016视为单线程应用程序。 它使Add2命令从Excel UI中被阻止
您可以在此处看到完整的答案: https : //social.msdn.microsoft.com/Forums/en-US/ddf2ab36-14a5-431c-b465-114aee6eb5d6/how-to-load-powerpivot-data-model-with-多表,VSTO-Excel的应用程序?论坛= VSTO
谢谢!
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.