VBA连接SqlServer,并运行SQL

在Excel这边，需要先在VBE中启动数据库连接支持。按下Alt+F11打开VBE，在菜单栏选择“工具”－“引用”，在弹出的引用窗口中，找到"Microsoft ActiveX Data Objects 6.1 Library"和"Microsoft ActiveX Data Objects Recordset 2.8 Library"，把前面的框勾选上，点击确定即可。 （如果不是这两个版本，则选择一个版本号最高的勾选即可，如果是需要分享给office2003版的用户，建议勾选版本最低的）
打开tool的参照

在按照上述步骤配置了环境支持后，就可以在VBA中使用代码连接SQL Server了。

首先需定义连接对象：

Dim conn as ADODB.Connection
Set conn = new ADODB.Connection
connStr = "Provider=SQLOLEDB;Server=192.168.1.1;Database=CreatData;Uid=xxx;Pwd=xxx"
  conn.Open connStr
  sqlStr = "SELECT TableNameJP,ColNameJP,Value FROM TabelList where TableNameJP = " & "'" & tableName & "'"
'  sqlStr = "SELECT tableName,keyColomn,keyValue FROM TabelList where TabelNameEN = 'ma_hinmoku'"
 
  'MsgBox sqlStr
  rs.Open sqlStr, conn, adOpenStatic, adLockBatchOptimistic
  ReDim mapping(3) As String
  Do While Not rs.EOF
  
    mapping(0) = rs.Fields(0).value
    mapping(1) = rs.Fields(1).value
    mapping(2) = rs.Fields(2).value

    rs.MoveNext
  Loop
  ConnectDB = mapping
  rs.Close
  Set rs = Nothing