|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
把代码改为以下试试
Private Sub Worksheet_Change(ByVal Target As Range)
Dim iSql As String
Dim iStep As Integer
With Target
If .Address = "$B$3" Or .Address = "$B$15" Then
If iConn.State = ADODB.adStateClosed Then
iConn.Open "Provider=Microsoft.Jet.oledb.4.0;Extended Properties='Excel 8.0;Imex=1;Hdr=Yes;';Data Source=" & ThisWorkbook.PATH & "\罗马柱.xls"
End If
Range(.Offset(1, 0), .Offset(7, 0)).ClearContents
'[B4:B10].ClearContents
iSql = "Select [门头款式],[数量(个)],[门宽],[门高],[主门高度],[门头高度] From [Sheet1$] Where 编号=" & .Value
iRec.Open iSql, iConn, 3, 3
If iRec.RecordCount Then
' For iStep = 4 To 8
' Cells(iStep, 2) = iRec.Fields(iStep - 4)
' Next
For iStep = 1 To 4
.Offset(iStep, 0) = iRec.Fields(iStep - 1)
Next
'[B10] = iRec.Fields(5)
.Offset(7, 0) = iRec.Fields(5)
End If
iRec.Close
End If
End With
End Sub
[ 本帖最后由 SaxophoneGd 于 2009-7-4 11:32 编辑 ] |
|