标题: 怎样实现任意选择工作薄进行汇总 [打印本页] 作者: cnfish 时间: 2009-2-19 16:11 标题: 怎样实现任意选择工作薄进行汇总 各位老大
请教一下：用VBA能实现这样的功能吗：
通过“打开”窗口，任意选择多个工作薄进行汇总，并将汇总结果生成一个新的工作薄
如果能，应该怎样写代码
谢谢作者: pureshadow 时间: 2009-2-20 09:06
Sub text()
Dim mysht As Long
Dim mynum As Long
For mysht = 1 To Sheets.Count
mynum = Sheets(mysht).Range("a1") + mynum
Next
Sheets.Add
ActiveSheet.Range("a1") = mynum
End Sub