
先要知道dll文件中的函数名以及参数个数,类型等等,然后
Declare Function 函数名 lib "dll文件名" (byval 参数1 as 类型,byval 参数2 as 类型,....) as 函数返回值类型
dll文件要与程序文件在同一路径下,哪磨或放在system32下
放在模快中,或窗体通用部分,前提是DLL文件有标准的导李举斗出函数,且明确知道参数的个数,类型,返回值。
那是因为你没有正常联上SAP,所以后面就不能用CreateObject("SAP.FUNCTIONS").你需要在VBA中先引用SAP Remote control的控件(也就是WDTFUNCS.OCX),这个文件可以在SAP的按让袜装目录下找下,大约是在control的那个子目录下.然后在VBA的菜单->工具->引用坦源激中引用这个控件,就可以正常联接到SAP了.顺便讲一句,如果你不想将自己的用户信息暴露给别裂耐人(比如密码之类),前面的oConnection.一大堆信息都不用写的,只要写result = oConnection.Logon(0, false)就行了,系统自会让你在执行时输入用户名密码等信息你不能引用一个没打开的excel工作薄中的数据,你要引用枝拍模该工作薄的数据必须猛缓打开贺族这个工作薄才可以引用.Sub aa()
Filename = Application.GetOpenFilename("Excel Files(*.xls) ,*.xls")
If Filename <>False Then
Workbooks.Open Filename
ub = UBound(Split(Filename, "\"))
Name = Split(Filename, "\")(ub)
Range("A10") = Workbooks(Name).Sheets(1).Range("A1")
Workbooks(Name).Close savechanges:=False
End If
End Sub
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)