Excel 如何使用vba对主控图纸中另一个单元格中的动态图纸中的同一单元格求和？

我有一个工作簿，其中包含一个主控表（称为数据总计），然后是多个其他表，其中包含数据日期命名为的数据（例如“05.23.19”）。我每天都会得到新的数据，所以我每天都会添加一张新的工作表。我想总结一下，从工作簿的每一页F3单元格到A1单元格

我是vba新手，所以我在努力学习。我尝试了一个For-Each循环，但每次都会收到错误消息，比如说“找不到对象”。我知道下面的代码是错误的，但我想od会按照以下思路做一些事情：

Sub SumSheets()

Dim ws As Worksheet

For Each ws In ThisActiveWorkbook

'select cell F3 in every sheet (exept the master sheet "Data Total" and sum them in cell A1'

---

这将对工作簿中每个工作表的F3单元格中的总计（数据总计除外），然后在A1单元格中的数据总计工作表中设置总计

Sub SumSheets()

Dim ws As Worksheet
Dim sumTotal As Double

For Each ws In ThisWorkbook.Worksheets

    If ws.Name <> "Data Total" Then
        sumTotal = sumTotal + ws.Range("F3").Value
    End If

Next

Sheets("Data Total").Range("A1").Value = sumTotal

End Sub

子汇总表（）
将ws设置为工作表
总金额为双倍
对于此工作簿中的每个ws。工作表
如果ws.Name为“数据总计”，则
sumTotal=sumTotal+ws.范围（“F3”）.值
如果结束
下一个
表（“数据总计”）。范围（“A1”）。值=总计
端接头

这将对工作簿中每个工作表的F3单元格中的总计进行求和（数据总计除外），然后在A1单元格中的数据总计工作表中设置总计

Sub SumSheets()

Dim ws As Worksheet
Dim sumTotal As Double

For Each ws In ThisWorkbook.Worksheets

    If ws.Name <> "Data Total" Then
        sumTotal = sumTotal + ws.Range("F3").Value
    End If

Next

Sheets("Data Total").Range("A1").Value = sumTotal

End Sub

子汇总表（）
将ws设置为工作表
总金额为双倍
对于此工作簿中的每个ws。工作表
如果ws.Name为“数据总计”，则
sumTotal=sumTotal+ws.范围（“F3”）.值
如果结束
下一个
表（“数据总计”）。范围（“A1”）。值=总计
端接头

将

此活动工作簿

更改为

此工作簿

，然后在遇到问题时尝试编写代码，返回并询问有关您收到的错误以及错误所在行的问题。@Jules Henri Revault请将下面的答案标记为正确，以便关闭线程。将

ThisActiveWorkbook

更改为

ThisWorkbook

，然后在遇到问题时尝试编写代码，返回并询问有关您收到的错误以及错误所在行的问题。@Jules Henri Revault请将下面的答案标记为正确，以便关闭线程。