Cells(dic(s_v), 11)不对。dic(s_v)返回的只是空值，造成cells引用错误。
请把你的语句： Sheets("database").Select 修改为：
从抛出异常来看Sheet没有正常被定义到，请确认你的sheet名是否正确，断点打到sheet名获取哪
将Wb.Sheets(G).UsedRange.Copy .Cells(.Range("B
.Range("a2").Resize(m, 5)这个是重新定义区域用的，不能值
软件版本：Office2007 方法如下： 在VBA中如果使用了系统不认可的对象表示方法等，例如下面
这一句有问题： Set Rng = Sheets(3).Range(Cells(1 + i, 1)
恕我直言WordApp.ActiveDocument.Tables(1).Rows(1).Selec
1、问题描述的不是很清楚。 2、建议去技术论坛问问，记得上传附件。 3、论坛里热心的网友很多、而
应该是这样： Sub AutoClone()Dim GetDay As LongDim iGetDa