关于第四章数据拆分和合并的两个疑问

kdslife123

版主、各位高手，

问题一
4.7.7 批量对数据分类
以论坛下载的文件为例，如果删除拆分后的工作表（七(1)班。。。七(9班）后再执行，会发生如下情况：
当运行到“Set rng = Worksheets(bj).Range("A65536").End(xlUp).Offset(1, 0)”时，系统报错：
运行时错'9'：下标越界
不知如何解决？

问题二
4.7.10 汇总同文件夹下多工作簿数据
以论坛下载的文件为例，运行后，除汇总工作表第一行已经输入的表头外，下面都会每次出现汇总工作表相同的表头。
可否编程将这些表头删除、即不复制进汇总表？

谢谢。

ggsmart

问题一：
因为删除了工作表，执行程序后，当对数据进行分类时，无法找到目标工作表（因为工作表已被你删除了），所以程序出错。
解决办法当然是在对数据分类前，先检查一下工作表中是否有相应的工作表存在，如果不存在，则新建相应的工作表，以便于写入数据。
新建工作表的方法，请参看书中的例子“批量新建工作表”。

ggsmart

问题二：
这个可能是不小心修改到示例文件的代码了。请修改一下：
Sub HzWb()
    Dim bt As Range, r As Long, c As Long
    r = 1    '1 是表头的行数
    c = 8    '8 是表头的列数
    Range(Cells(r + 1, "A"), Cells(65536, c)).ClearContents    ' 清除汇总表中原表数据
    Application.ScreenUpdating = False
    Dim FileName As String, wb As Workbook, Erow As Long, fn As String, arr As Variant
    FileName = Dir(ThisWorkbook.Path & "\*.xls")
    Do While FileName <> ""
        If FileName <> ThisWorkbook.Name Then    ' 判断文件是否是本工作簿
            Erow = Range("A1").CurrentRegion.Rows.Count + 1    ' 取得汇总表中第一条空行行号
            fn = ThisWorkbook.Path & "\" & FileName
            Set wb = GetObject(fn)    ' 将fn 代表的工作簿对象赋给变量
            Set sht = wb.Worksheets(1)    ' 汇总的是第1 张工作表
            ' 将数据表中的记录保存在arr 数组里
            arr = sht.Range(sht.Cells(r + 1, "A"), sht.Cells(65536, "B").End(xlUp).Offset(0, 8))
            ' 将数组arr 中的数据写入工作表
            Cells(Erow, "A").Resize(UBound(arr, 1), UBound(arr, 2)) = arr
            wb.Close False
        End If
        FileName = Dir    ' 用Dir 函数取得其他文件名，并赋给变量
    Loop
    Application.ScreenUpdating = True
End Sub

____代码中红色部分

kdslife123

在保留九个工作表的前提下，清除内容后再执行程序，无任何报错，感谢~
综上，问题一已解决。

kdslife123

同上，问题二也已解决。

另外，建议在勘误表中注明：
197页，"arr = sht.Range(sht.Cells(r, "A"), sht.Cells(65536, "B").End(xlUp).Offset(0, 8))"，调整为，"arr = sht.Range(sht.Cells(r+1, "A"), sht.Cells(65536, "B").End(xlUp).Offset(0, 8))"

最后追加一问，针对Excel2007版本，是否将上述的"65536”都改成"1024576"即可？
再次感谢~

ggsmart

kdslife123 发表于 2012-9-26 17:10
同上，问题二也已解决。

另外，建议在勘误表中注明：

建议彩纳。
另：你的疑问答案是肯定的。即将65536改为1024578即可。

kdslife123

如果能再对问题二的案例进一步完善，有以下两方面：
(1) 汇总中的表头是黏贴进去的，可否也用程序自动生成？
(2) 汇总中的列数是在程序中预设的，可否和行数一样，让程序自行判断？

不知实现以上想法，是否困难？

ggsmart

kdslife123 发表于 2012-9-27 08:54
如果能再对问题二的案例进一步完善，有以下两方面：
(1) 汇总中的表头是黏贴进去的，可否也用程序自动生成 ...

当然可以，而且一点不困难。
只需用相应的代码获得工作表中数据的列数即可。可用end属性得到。
至于表头，你只需在汇总前用代码从分表中弄一个过去就可以了。。呵呵。。这个实现的方法就多了

845018224

顺便学习了,谢谢.

夜惊风

arr = sht.Range(sht.Cells(r, "A"), sht.Cells(65536, "B").End(xlUp).Offset(0, 8)) 为什么是B而不是A?