数据超过65536行的复制问题

love熙熙

数据太多，提示“下标越界”！

love熙熙

请老师指导一下！ 感谢！

shiruiqiang

excel版本太低

love熙熙

我这边装的是office 2010版的，应该不低了

shiruiqiang

如图，你的文件是97-03格式，后缀名是xls。打开文件提示错误。
虽然能打开，保存时也一直提示错误。
或者前面加容错

ykcbf1100

既然是xlsm文件了，当然也就不存在65536行问题了。原代码逻辑混乱，搞得我都不知道怎么写代码了。

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()   '//2024.4.17
   
2.     Application.ScreenUpdating = False
   
3.     p = ThisWorkbook.Path
   
4.     Set sh = ThisWorkbook.Sheets("汇总")
   
5.     f = p & "\分表\明细.xls"
   
6.     Set wb = Workbooks.Open(f, 0)
   
7.     With wb.Sheets("明细")
   
8.         r = .Cells(Rows.Count, 2).End(3).Row
   
9.         If r > 5 Then arr = .[b6].Resize(r - 5, 2)
   
10.         wb.Close False
    
11.     End With
    
12.     With sh
    
13.         .UsedRange.Offset(1) = ""
    
14.         .[a1].Resize(1, 2).Interior.Color = 49407
    
15.         .[a2].Resize(UBound(arr), UBound(arr, 2)) = arr
    
16.         If r > 5 Then
    
17.             MsgBox "数据已录入 ！"
    
18.         Else
    
19.             MsgBox "文件夹中没有数据 ！" & VBA.Chr(10) & VBA.Chr(10) & "请重新下载数据 ！"
    
20.         End If
    
21.     End With
    
22.     Application.ScreenUpdating = True
    
23.     MsgBox "OK！"
    
24. End Sub
    
25. 
    

复制代码

love熙熙

感谢   shiruiqiang  老师！

感谢 草爷！ 代码结构很清晰，我小白也看得懂！