|
楼主 |
发表于 2021-11-24 15:29
|
显示全部楼层
用新建一个数据组+循环倒是不难,就是觉得很累赘的样子。查了很多资料,都说不能直接取出数组中间的某一段连续数据
j是数组实际行数,每1000行复制当前页面为一个CSV文件
k = Application.WorksheetFunction.RoundUp(j / 1000, 0)
For i = 1 To k
.Range("A2:D1001").ClearContents
iArr_Educe_Split() = .Range("A2:D1001")
For x = 1 To 1000
For y = 1 To 4
iArr_Educe_Split(x, y) = iArr_Educe((i - 1) * 1000 + x, y)
Next
Next
.Range("A2:D2").Resize(1000) = iArr_Educe_Split()
'.Range("E1:I1").EntireColumn.Delete
.Copy
ActiveWorkbook.SaveAs Filename:=Stpath & "MV Price List-" & iMonth & "(" & Format(Now, "YYYYMMDDHHMM") & "-" & i & ").csv", FileFormat:=xlCSV
ActiveWorkbook.Close SaveChanges:=True
Next
|
|