通用Excel常用VBA接口函数：填写指定报表（可以实现模板之间的数据传递）
在填报时，为了方便填报者操作，可以在模版上放置一个便捷按钮，利用通用Excel常用VBA接口函数，从而达到填写指定报表的效果，还可以实现模板之间的数据传递，极大的增加了模版的人性化体验。
VBA接口函数之：填写指定报表（可以实现模板之间的数据传递）
Sub 填写指定报表()
'定义接口变量
Dim obj As Object
'获取通用Excel 的编程接口
Set obj = AddIns.Item("prjAddin.Office_Addin").Object
'通过接口调用通用Excel系统公式
obj.NewReportData2 "出库单", "单号=" + Sheet1.Cells(1, 1).Text
'释放编程接口
Set obj = Nothing
如果我们要传输多个数据项目，接口代码如下：
Sub 填写指定报表()
'定义接口变量
Dim obj As Object
'获取通用Excel 的编程接口
Set obj = AddIns.Item("prjAddin.Office_Addin").Object
'通过接口调用通用Excel系统公式
obj.NewReportData2 "出库单", "单号=" + Sheet1.Cells(1, 1).Text + ";" + "客户=" + Sheet1.Cells(2, 2).Text
'释放编程接口
Set obj = Nothing
以上由原创，转载请注明来源。
[]&[ 发布： 10:20:56 ]&[ 浏览：2457 ]&[ 字体： |
]上一篇：下一篇：VBA封装为DLL及调用
过程名称为Test：Sub Test()On Error ResumeNextDimVBt,YB'定义变量VBtSetVBt= GetObject(, "Excel.Application")'使VBt表示为EXCEL对象SetYB=VBt.ActiveSheet'使YB表示为EXCEL的当前工作表
再引用DLL。excel2013数据分析。1、注册DLL（使之放在可引用的列表上）：
三、 修改ActiveX DLL的工程名称和类模块名称四、编写代码：在代码窗口输入代码，要分两步走：看看excel2013官方。先注册DLL，只需要将上面的代码ThisWorkBook.path& "\VBADLL.dll" 换成一个固定位置即可。
一、在VBE中调用DLL文件调用DLL文件，你看调用。这样，dll。学会VBA封装为DLL及调用用户无需下载任何软件　则需要将DLL文件放置到一个固定文件夹，但这些XLS文档又不可能都与DLL文件放在同一个文件夹，如果你有多个XLS文档需要使用到同一个DLL文件，excel2013官方。检查是否存在错误；3、生成DLL文件：制作DLL文件。
②DLL文件放在固定文件夹内，可以省略】)：看看excel2013 回归分析。六、保存工程、测试、生成DLL文件：你看excel2013 激活。1、保存工程：封装。保存本工程以作为将来修改代码和升级程序的需要；2、测试工程：执行快捷工具栏上的“启动”按钮，可以对工程属性加以描述【非必要设置，vba。感觉封装DLL的主要步骤是：
②编辑代码（要在对象前面加上定义的EXCEL变量）；
案例：相比看excel2013软件下载。在工作表的C1单元格得出A1单元格+B1单元格的值。设计的VBA代码：Sub Test()On Error ResumeNextRange("C1") = Cells(1,1) + Cells(1, 2)End Sub
五、设置工程属性 (为使开发的程序更规范，来完成原来在VBA中的功能，excel2013官方下载。即为DLL文件中的类模块VBAtestABC.Test'调用DLL中提供的过程，excel2013数据分析。输入调用DLL文件程序的过程：Sub DLLtest()Dim ABC As New VBAtest'定义ABC为新类，就不必再去那个引用列表里打个勾了）①DLL文件放在与EXCEL文件同一个文件夹内在ThisWorkbook中添加如下代码：装为。Private Sub Workbook_Open()'打开文件时加载要引用的DLL文件shell "Regsvr32 /s " & Chr(34) & ThisWorkBook.path& "\VBADLL.dll"& Chr(34)End SubPrivate Sub Workbook_BeforeClose(Cancel As Boolean)'关闭文件之前卸载引用的DLL文件shell "Regsvr32 /s /u " & Chr(34) & ThisWorkBook.path& "\VBADLL.dll"& Chr(34)End Sub'/s参数是防止出现确认窗口；/u参数为取消引用。
综上所述，起到隐藏代码的效果Set ABC = Nothing'释放类资源End Sub
④在VBE的代码中调用DLL中的过程。excel2013教程。
二、新建一个模块，因为后面引用DLL文件的代码也应该是指向这个位置的。）先打开EXCEL，建议一般使用手工来注册。我不知道excel2013 条件格式。（这里应该先设计好DLL文件放在硬盘的位置，听说excel2013官方下载。也存在很多问题，但那样比较复杂，即ExcelXP（Microsoft Office 11.0）（Microsoft Office 12.0）（Microsoft Office 14.0）（Microsoft Office15.0）
2、引用DLL（这样每次打开打开文件时，学习excel2013下载。再打开“Visual Basic 编辑器”
'注意要在对象前加上YB变量以表示是EXCEL当前工作表的对象YB.Range("C1")=YB.Cells(1, 1).Value +YB.Cells(1, 2).ValueEnd Sub
注册DLL也可以使用代码来做，新建一个ActiveX DLL工程：excel2013 条件格式。二、 引用：在VB中对Excel的引用不同版本的EXCEL在“引用”窗口里显示的版本号也不同：EXCEL2000（Microsoft Office 9.0）EXCEL2002（Microsoft Office 10.0），你看excel2013视频教程。保证注册的DLL文件的位置正确即可。
①在VB中引用EXCEL；
一、 启动VB6.0，重新注册一次，VBA封装为DLL及调用。最好不要再去修改这个DLL文件。excel2013免费下载。如果出现问题，在正确注册及引用以后，相比看VBA封装为DLL及调用。所以，即使再重新再改回来也可能会出现这些问题，可能是引用后改变了文件的位置或改变了文件的名称，如提示“变量类型未定义”等，
第一部分、使用VB6.0制作DLL文件
第二部分、调用DLL文件
三、在工作表中运行DLLtest宏即可实现调用：
VBA封装为DLL及调用2:36:00|分类：|标签：|字号大中小
使用程序：1、Microsoft Office Excel、Microsoft Visual Basic 6.0
③在VBE中引用该DLL文件；
注意：有时间可能出现某些错误，
(责任编辑：admin)
------分隔线----------------------------
下一篇：没有了
如何用电子表格自动计算持股期间?: [数据手册下载] - NGTB40N60IHLWG 收费订阅2013《...
科目余额表、资产负债表、损益表 用EXCEL来完成 用（07据分析版）EXCE 输入:e-m-d exc...
若何下载excel处事表:答:如题 我显露的可能监视剪贴板的唯有迅雷:把迅雷的禁用后:用ex...
如何处分从excel2013表格中复制数据后anothernd粘贴至excel2007 excel2013教程不兼ano...
用Excel听听公司做数据分析――直方图,2013国考报名的第三天,京佳公务员考试网统计显...
安徽2013从业考试《会计电算化》第七章知识点:Excel简介,近日,微软在听听安徽自己的Of...温馨提示！由于新浪微博认证机制调整，您的新浪微博帐号绑定已过期，请重新绑定！&&|&&
直率.果断.喜欢思考.
LOFTER精选
网易考拉推荐
用微信&&“扫一扫”
将文章分享到朋友圈。
用易信&&“扫一扫”
将文章分享到朋友圈。
开发环境:VS2005 + OFFICE2003
一 用C#编写DLL程序
1)编写DLL程序
Codeusing&Susing&System.IO;using&System.Xusing&System.Tusing&System.Runtime.InteropSusing&System.Cnamespace&Common{&&&&[Guid("694C-F-FD858B95C880")]&&&&/**////&&summary&&&&&///&XML生成&&&&///&&/summary&&&&&public&interface&XmlEvent_Interface&&&&{&&&&&&&&[DispId(1)]&&&&&&&&int&DataWrite(String&filePath,&String&serviceID,&ref&String[]&tag);&&&&&&&&[DispId(2)]&&&&&&&&String[]&DataRead(String&filePath);&&&&}&&&&//&Events&interface&Database_COMObjectEvents&&&&&[Guid("47C976E0-C208-4740-AC42-F0"),&&&&InterfaceType(ComInterfaceType.InterfaceIsIDispatch)]&&&&public&interface&XmlEvent_Events&&&&{&&&&}&&&&[Guid("9E5E5FB2-219D-4ee7-AB27-E4DBED8E123E"),&&&&ClassInterface(ClassInterfaceType.None),&&&&ComSourceInterfaces(typeof(XmlEvent_Events))]&&&&/**////&&summary&&&&&///&XML生成&&&&///&&/summary&&&&&public&class&XmlEvent&:&XmlEvent_Interface&&&&{&&&&&&&&public&XmlEvent()&&&&&&&&{&&&&&&&&}&&&&&&&&public&int&DataWrite(String&filePath,&String&serviceID,&ref&String[]&tag)&&&&&&&&{&&&&&&&&&&&&&//Do&S&&&&&&&&}&&&&&&&&public&String[]&DataRead(String&filePath)&&&&&&&&{&&&&&&&&&&&&//Do&S&&&&&&&&}&&&&}}
2)项目属性配置
打开Project属性窗口，在Build选项中，将Register&for&COM&interop设置为True。
注:有了这个设定,在EXCEL中才能看到DLL中的方法
3)使用签名打开Project属性窗口,在签名选项中,新建一个后缀名为.snk的签名文件既可,3& 在工程中的 AssemblyInfo.cs 文件中修改[assembly: ComVisible(true)]//原来默认为false
注:没有签名的话,使用上没有问题,只是在注册DLL的时候会出现警告.
4)编译既可生成Common.dll和Common.tlb的文件.
二 在VBA中调用DLL
1)引用设定
打开VBA的编辑窗口（快捷键为ALT+F11），在菜单栏中，Tools-&References，弹出References窗口，
点击Browse，找到Common.tlb这个文件，选择它，然后点OK。此时已经成功引用到Common.dll。
在VBA的Object&Browser中可以看到Library中有Common.如果看到以上信息，那么，就可以在VBA中调用了。
CodeDim&obj&As&New&Common.XmlEventobj.DataWrite(strXml,&strServiceID,&strdata)
到此,已经成功的从VBA中调用了C#DLL中的方法.
三 要注意的问题1)DLL注册问题
直接编译程序,会自动注册你所编写的DLL的
但是如果你已经发布到客户端了,客户端没有IDE怎么办呢?
这时候就需要用到命令行来注册这个DLL.
写个Bat文件.比如RegCommon.bat,具体命令如下:
path&%path%;C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\;regasm&Common.dll&/codebas
这里主要就是用了regasm这个命令,为了执行方便,所以在第一行对Path做了修正.
把这个bat文件放到和dll文件在一个目录下执行一下,就OK了.
&2)补丁问题
如果你按我上边说的,从VBA调用DLL时,出错的话,尝试一下打下面的补丁
vs2005-kb908002-enu-x86.exe&
参照及下载地址:/kb/908002/
阅读(1439)|
用微信&&“扫一扫”
将文章分享到朋友圈。
用易信&&“扫一扫”
将文章分享到朋友圈。
历史上的今天
在LOFTER的更多文章
loftPermalink:'',
id:'fks_086071',
blogTitle:'VBA中调用C#生成的DLL 转',
blogAbstract:'
{if x.moveFrom=='wap'}
{elseif x.moveFrom=='iphone'}
{elseif x.moveFrom=='android'}
{elseif x.moveFrom=='mobile'}
${a.selfIntro|escape}{if great260}${suplement}{/if}
{list a as x}
推荐过这篇日志的人：
{list a as x}
{if !!b&&b.length>0}
他们还推荐了：
{list b as y}
转载记录：
{list d as x}
{list a as x}
{list a as x}
{list a as x}
{list a as x}
{if x_index>4}{break}{/if}
${fn2(x.publishTime,'yyyy-MM-dd HH:mm:ss')}
{list a as x}
{if !!(blogDetail.preBlogPermalink)}
{if !!(blogDetail.nextBlogPermalink)}
{list a as x}
{if defined('newslist')&&newslist.length>0}
{list newslist as x}
{if x_index>7}{break}{/if}
{list a as x}
{var first_option =}
{list x.voteDetailList as voteToOption}
{if voteToOption==1}
{if first_option==false},{/if}&&“${b[voteToOption_index]}”&&
{if (x.role!="-1") },“我是${c[x.role]}”&&{/if}
&&&&&&&&${fn1(x.voteTime)}
{if x.userName==''}{/if}
网易公司版权所有&&
{list x.l as y}
{if defined('wl')}
{list wl as x}{/list}VBA封装为DLL及调用
我的图书馆
VBA封装为DLL及调用
使用程序：1、Microsoft Office Excel 20032、Microsoft Visual Basic 6.0案例：在工作表的C1单元格得出A1单元格+B1单元格的值。设计的VBA代码：Sub Test()& & On Error Resume Next& & Range("C1") = Cells(1, 1) + Cells(1, 2)End Sub第一部分、使用VB6.0制作DLL文件一、 启动VB6.0，新建一个ActiveX DLL工程：&&二、 引用：在VB中对Excel的引用&&不同版本的EXCEL在“引用”窗口里显示的版本号也不同：EXCEL2000（Microsoft Office 9.0）EXCEL2002（Microsoft Office 10.0），即ExcelXPEXCEL2003（Microsoft Office 11.0）EXCEL2007（Microsoft Office 12.0）EXCEL2010（Microsoft Office 14.0）EXCEL2013（Microsoft Office 15.0）三、 修改ActiveX DLL的工程名称和类模块名称&&四、编写代码：在代码窗口输入代码，过程名称为Test：Sub Test()& & On Error Resume Next& & Dim VBt, YB & & '定义变量VBt& & Set VBt = GetObject(, "Excel.Application") & &'使VBt表示为EXCEL对象& & Set YB = VBt.ActiveSheet & & '使YB表示为EXCEL的当前工作表& & '注意要在对象前加上YB变量以表示是EXCEL当前工作表的对象& & YB. Range("C1")&&= YB.Cells(1, 1).Value + YB.Cells(1, 2).ValueEnd Sub五、设置工程属性 (为使开发的程序更规范，可以对工程属性加以描述【非必要设置，可以省略】)：&&六、保存工程、测试、生成DLL文件：1、保存工程：保存本工程以作为将来修改代码和升级程序的需要；2、测试工程：执行快捷工具栏上的“启动”按钮，检查是否存在错误；3、生成DLL文件：制作DLL文件。&第二部分、调用DLL文件一、在VBE中调用DLL文件调用DLL文件，要分两步走：先注册DLL，再引用DLL。1、 注册DLL（使之放在可引用的列表上）： 注册DLL也可以使用代码来做，但那样比较复杂，也存在很多问题，建议一般使用手工来注册。（这里应该先设计好DLL文件放在硬盘的位置，因为后面引用DLL文件的代码也应该是指向这个位置的。）　　 先打开EXCEL，再打开“Visual Basic 编辑器”&2、引用DLL（这样每次打开打开文件时，就不必再去那个引用列表里打个勾了）①DLL文件放在与EXCEL文件同一个文件夹内在ThisWorkbook中添加如下代码：Private Sub Workbook_Open()&'打开文件时加载要引用的DLL文件shell "Regsvr32 /s " & Chr(34) & ThisWorkBook.path & "\VBADLL.dll"& Chr(34)End SubPrivate Sub Workbook_BeforeClose(Cancel As Boolean) '关闭文件之前卸载引用的DLL文件shell "Regsvr32 /s /u " & Chr(34) & ThisWorkBook.path & "\VBADLL.dll"& Chr(34)End Sub'/s参数是防止出现确认窗口；/u参数为取消引用。②DLL文件放在固定文件夹内，如果你有多个XLS文档需要使用到同一个DLL文件，但这些XLS文档又不可能都与DLL文件放在同一个文件夹，则需要将DLL文件放置到一个固定文件夹，这样，只需要将上面的代码&ThisWorkBook.path & "\VBADLL.dll" 换成一个固定位置即可。注意：有时间可能出现某些错误，如提示“变量类型未定义”等，可能是引用后改变了文件的位置或改变了文件的名称，即使再重新再改回来也可能会出现这些问题，所以，在正确注册及引用以后，最好不要再去修改这个DLL文件。如果出现问题，重新注册一次，保证注册的DLL文件的位置正确即可。二、新建一个模块，输入调用DLL文件程序的过程：Sub DLLtest()& & Dim ABC As New VBAtest & & &'定义ABC为新类，即为DLL文件中的类模块VBAtest& & ABC.Test & &'调用DLL中提供的过程，来完成原来在VBA中的功能，起到隐藏代码的效果& & Set ABC = Nothing & '释放类资源End Sub&三、在工作表中运行DLLtest宏即可实现调用：&综上所述，感觉封装DLL的主要步骤是：①在VB中引用EXCEL；②编辑代码（要在对象前面加上定义的EXCEL变量）；③在VBE中引用该DLL文件；④在VBE的代码中调用DLL中的过程。参考：.
TA的最新馆藏[转]&[转]&[转]&