如何将十几万的数据按照每8000条数据自动生成一个excel文件

tianya2525

各位大侠求救：
目前有十几万的数据量，需按照每8000条的数据自动生成一个excel文件，能把表头一起加上的！

zax010

Sub zz()
    Dim bt As Range, wb As Workbook
    Application.ScreenUpdating = False
    With Sheet1
        Set bt = .[a1:b1]
        For i = 2 To .[a1048576].End(3).Row Step 8000
            m = m + 1
            Set wb = Workbooks.Add
            bt.Copy wb.Sheets(1).[a1]
            .Cells(i, 1).Resize(8000, 2).Copy wb.Sheets(1).[a2]
            wb.Close True, ThisWorkbook.Path & "\" & m & ".xlsx"
        Next
    End With
    Application.ScreenUpdating = True
End Sub

zax010

>>>>>>>>>>>>>>>>>>>>>>>>



新建文件夹.rar (1.88 MB, 下载次数: 84)

2016-3-4 18:08 上传

点击文件名下载附件

tianya2525

zax010 发表于 2016-3-4 18:08
>>>>>>>>>>>>>>>>>>>>>>>>

感谢大神的工具，非常好用！

kszcs

zax010 发表于 2016-3-4 18:08
>>>>>>>>>>>>>>>>>>>>>>>>

zax010老师你好：
我是2003版本，把行数改为65536，运行后，看不到结果在哪，
麻烦看看

1578278106

这有影响吗？

叶下舞蝶

zax010 发表于 2016-3-4 18:08
>>>>>>>>>>>>>>>>>>>>>>>>

老师如果我要改成另存为此工作博下面的几个小表怎么改了？