菜鸟问题，哪位老师接答一下？

weast007

包材.rar (15.58 KB, 下载次数: 5)

2013-9-5 11:24 上传

点击文件名下载附件

附件中成品料号后面单元格更改，下面的料号等跟随更改。
但是文件保存重新打开后下面的料号信息不能自动更改是怎么回事？
代码：

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 2 And Target.Row = 3 Then

Rows("7:300").ClearContents

Set cnn = CreateObject("adodb.connection")

cnn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.FullName

Sql = "select * from [基础数据$] where 成品料号='" & Cells(3, 2).Value & "'"

    Set rst = CreateObject("adodb.Recordset")

    rst.Open Sql, cnn, 1, 1

    k = 5

    Do While Not rst.EOF

       Cells(k, 1).Value = k - 4

       Cells(k, 2).Value = rst("包材料号")

       Cells(k, 3).Value = rst("包材品名")

       Cells(k, 4).Value = rst("规格")

       Cells(k, 5).Value = rst("单耗")

       k = k + 1

    rst.movenext

    Loop

cnn.Close

Set cnn = Nothing

End If

End Sub

weast007

怎么都没人理，都去用膳了吗？

weast007

怎么还是都没人理？？？？

shuyee

文件格式不对。xlsx，是纯数据，不支持代码。应另存为xlsm

weast007

存为XLSM还是不行，要每次打开都要重新写吗？ 包材.rar (20.14 KB, 下载次数: 4)

2013-9-6 08:05 上传

点击文件名下载附件

shuyee

我试了,可以啊.
检查一下"宏安全性"的设置.

weast007

已经好了，谢谢了！