用excel宏，连接sql数据库导出表字段数据到指定列，且加上条件判断后填充单元格？

发布网友发布时间：2022-04-23 02:54

共1个回答

热心网友时间：2023-11-03 12:19

Sub Macro2()
Dim i As Integer
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim strCn, strSQL As String
strCn = "Provider=sqloledb;Server=XX;Database=XX;Uid=sa;Pwd=XX;"
strSQL = "SELECT item_no FROM t_bd_item_info where item_clsno = 'LB'"
cn.Open strCn
rs.Open strSQL, cn

Worksheets("sheet1").Unprotect
Do While Not rs.EOF

for i=1 to [a65536].end(3).row
if range("a" & i)<>"" and range("b" & i)="" and range("c" & i)="" then
range("c" & i) = rs("item_no")
goto abc
else
end if
next
abc:
rs.MoveNext
Loop
rs.Close
cn.Close
End Sub

试下

追问可以了，谢谢，但是还想问一下，
如果 F例的任意一个单元格改变时，就自动启动这个宏，该怎么写代码
之前我找了，是指定一个单元格改变就启动宏，现在想范围大一些指定一列怎么办？