1、首先在office电脑上安装db2驱动。
3、鼠标在左侧框中，点击右键，选择插入模块。
5、图中标注的部分，需要根据自己的信息来填写。代码的具体内容我就不再一一解释。下面看如何连接数据库。双击s茑霁酌绡heet1，在右边把以下代码复制进去。Sub connect() Dim MsgText As String txtSQL = "select name from table_test " Set mrc = executeSql(txtSQL, MsgText) While Not mrc.EOF branchList = Trim(mrc.Fields(0)) & "," & branchList mrc.MoveNext Wend mrc.CloseEnd Sub
7、执行到Set mrc = executeSql(txtSQL, MsgText)烂瘀佐栾这个语句时，会调用刚才的模块。语句块中的变量，会显示当前的值。如图，我的操作结果是：
10、点确定后就可以了。