VBA 读取SQLServer中二进制图片并插入到当前工作表中

一、前期工作

需要在工作簿中引用 "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 <> ""