2022-11-01 13:31来源:m.sf1369.com作者:宇宇
1、把图片放在某个文件夹内。
2、用VBA程序读取这个文件夹的文件。
3、把图片在相应的控件显示。
那得看你本身COM组建引用了那里的dll,然后把dll放到那里注册好就行
Public改成Private就可以调用了,另外VBA的boolean与Delphi类型格式不一样,传递无意义,必须用整形、浮点或字符串。改成long对integer后完美运行
代码如下:
Sub s()
On Error Resume Next
Dim pth$, fn$, wb As Workbook
pth = d:\test\ '在这里输入要打开的工作簿的完整路径
fn = a.xlsx '在这里输入要打开的工作簿的文件名,包括扩展名
Set wb = Application.Workbooks.Open(pth & fn)
If wb Is Nothing Then MsgBox (文件打开失败,请检查 & pth & fn & 是否存在!): Exit Sub
'在此添加操作代码
wb.Close True '如果无需保存,本参数用false
End Sub
把带VBA的文件做成加载宏文件,文件扩展名为.xla,保存到加载宏的文件夹中,打开EXCEL文件后,通过工具菜单加载宏命令,选择加载宏就可以使用代码了。
在模块里定义:
function aa(a)
aa=a
end function
窗体里调用:
x=aa(1)
msgbox x