在SQL for VBA中的单个单元格下写入多个实例

Dim conn As Object
Dim rs As Object
Dim strSQL As String
Dim instances As String

' 连接数据库
Set conn = CreateObject("ADODB.Connection")
conn.Open "Provider=SQLOLEDB;Data Source=服务器地址;Initial Catalog=数据库名;User ID=用户名;Password=密码"

' 构建SQL查询语句
strSQL = "SELECT instance_name FROM table_name"

' 执行SQL查询
Set rs = conn.Execute(strSQL)

' 遍历查询结果，将实例名连接为一个字符串
Do While Not rs.EOF
    instances = instances & rs("instance_name") & ", "
    rs.MoveNext
Loop

' 去除字符串末尾的逗号和空格
instances = Left(instances, Len(instances) - 2)

' 将实例字符串写入目标单元格
Range("A1").Value = instances

' 关闭连接和释放资源
rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing