excel利用VBA统计一个文件夹中所有工作簿的工作表3的B4单元格数值相加？

Answer 1

还没有人帮忙吗？那我就来试试吧。
不知道楼主想要怎么样的结果，我这里就纯粹以自己的臆想来做啊
在这里，我假设有两个excel文件是在同一个文件夹里的，一个为1.xlsx，另一个为2.xlsx
（这里有必要说明一下，我用的是excel2007版的）
那么假设1.xlsx里的sheet1中的A1和C2单元格是我们所要赋值的源单元格，我们想要将它们分别赋值给2.xlsx中的B1，B2单元格，那么可以在1.xlsx用vba代码，具体做法如下：
（1）将1.xlsx打开，然后同时按下Alt+F11，打开visual
basic
编辑器
（2）选择菜单上的“插入”下的“模块”，出现一个空白窗口后，粘贴以下代码：
Sub
test()Dim
r1
As
Range
Dim
r2
As
Range
Dim
w
As
Workbook
ThisWorkbook.Activate
Set
r1
=
ThisWorkbook.Sheets(1).[a1]
Set
r2
=
ThisWorkbook.Sheets(1).[c2]
Set
w
=
Workbooks.Open(ThisWorkbook.Path
&
"\2.xlsx")w.Sheets(1).[b1]
=
r1
w.Sheets(1).[b2]
=
r2
SendKeys
"~"
w.Save
w.Close
End
Sub
（3）回到excel窗口，按下Alt+F8，选中“test”，然后点执行就可以了。
以下是补充说明的几点：
（1）这只是一个例子，可能与楼主的要求符
（2）我用的是excel2007版的，代码可能有些不兼容
（3）在运行代码的过程中，2.xlsx这个文件的打开及关闭过程是看不到的，楼主可以在运行代码前和运行代码后对比一下差别。
好了，就想到说这些，希望对你有帮助