一、前期工作
需要在工作簿中引用 "Microsoft ActiveX Data Objects 6.1 Library"和"Microsoft ActiveX Data Objects Recordset 2.8 Library"
需要先在VBE中启动数据库连接支持。按下Alt+F11打开VBE,在菜单栏选择“工具”-“引用”,在弹出的引用窗口中,找到"Microsoft ActiveX Data Objects 6.1 Library"和"Microsoft ActiveX Data Objects Recordset 2.8 Library",把前面的框勾选上,点击确定即可。
二、点击插入图片输入员工工号
三、插入图片实现代码
'点击按钮弹框输入员工工号
Sub getPic()
Load UserForm1
UserForm1.Show
End Sub
'输入工号后点击确定按钮,将工号匹配的图片插入到页脚
Private Sub CommandButton1_Click()
Dim StaffCode As String
StaffCode = TextBox1.Value
Dim yes As Integer
If StaffCode <> ""