1、你的物料编码要改成字符列;
2、这句
Filter = "[物料编码] = " & Sheet(n,0).Value
改成
Filter = "[物料编码] = '" & Sheet(n,0).Value & "'"