你遇到的Run-time error '438' 是因为代码里的一个小拼写失误——VBA中引用工作簿的工作表集合必须用复数形式的Sheets，而非单数的Sheet。Workbook对象并不支持Sheet这个属性，所以才会抛出“对象不支持该属性或方法”的错误。

修正后的完整代码 #

Sub Listcustomer()
    Dim y As Workbook
    Dim x As Workbook
    Dim i As Integer ' 显式声明循环变量类型，避免隐式类型转换问题
    
    Set y = ActiveWorkbook
    ' 注意：请确认网络路径和文件名准确，且你有该共享文件夹的访问权限
    Set x = Workbooks.Open("\\myNetworkSharePath\myFileName.xlsx")
    
    For i = 1 To x.Sheets.Count
        ' 核心修复：将x.Sheet(i)改为x.Sheets(i)
        y.ActiveSheet.Range("d" & i + 3).Value = x.Sheets(i).Range("b3").Value
    Next i
    
    ' 可选：如果不需要保留源工作簿打开，可添加关闭语句
    ' x.Close SaveChanges:=False
End Sub

额外优化建议 #

• 强制变量声明：在模块开头添加Option Explicit，可以强制所有变量必须声明，避免因变量名拼写错误导致的隐性bug。
• 避免依赖ActiveSheet：如果可能，直接指定目标工作表的名称（比如y.Sheets("客户列表")），防止因操作中激活的工作表变化引发错误。
• 边界检查：如果源工作簿的工作表数量较多，要确保目标工作表的D列从第4行开始有足够的空白行，必要时可以提前扩展工作表行数。

内容的提问来源于stack exchange，提问作者M.AlAbsi