使用For循环调用多个工作表中的同名函数

错误原因 #

Runtime Error 438的本质是对象不支持你调用的属性或方法。你的Read_Data_Click是定义在单个工作表模块里的自定义子过程，并非Worksheet类的内置方法，所以不能直接通过ThisWorkbook.Sheets(ws.Name).Read_Data_Click这种方式调用工作表对象的“方法”。

解决方案 #

方法1：直接通过工作表模块名称调用（适合固定少量工作表） #

如果你的工作表模块名称是固定的（比如VBA工程里的Sheet1、Sheet2），可以直接逐个调用：

Public Sub Read_All_Data_Click()
    Sheet1.Read_Data_Click
    Sheet2.Read_Data_Click
    ' 按需求添加其他工作表模块的调用
End Sub

方法2：用Application.Run动态遍历调用（推荐批量场景） #

利用Application.Run可以通过字符串指定要执行的宏，结合工作表的CodeName（VBA工程里的模块名，不受工作表标签重命名影响）来动态调用：

Public Sub Read_All_Data_Click()
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        ' 格式：工作表模块名.过程名
        Application.Run ws.CodeName & ".Read_Data_Click"
    Next ws
End Sub

注意：确保每个工作表模块中确实存在Read_Data_Click子过程。

方法3：重构为通用参数化过程（最优雅的长期方案） #

把工作表模块里的Read_Data_Click逻辑迁移到标准模块中，改成接收Worksheet对象的参数化过程，避免重复代码：

1. 在标准模块中新建通用过程：

Public Sub Read_Data(ws As Worksheet)
    ' 将原Read_Data_Click中的代码移到此处，所有单元格操作都基于传入的ws对象
    ' 示例：原Range("A1").Value = "测试" 改为 ws.Range("A1").Value = "测试"
End Sub

2. 批量调用代码：

Public Sub Read_All_Data_Click()
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        Read_Data ws
    Next ws
End Sub

内容的提问来源于stack exchange，提问作者Adam Kujawinski