[已解决]代码怎么修改？

dfsfsa

Set eb =  Workopens(ThisWorkbook.Path & "\附件.xls")

最佳答案

月排行榜 / 总排行榜

france723

2017-5-26 18:50

Excel2003的最大行是65536行,从Excel2007开始最大行是1048576.
xls是2003版本下的文件,不管有没有宏程序的话都是xls文件, 2007做了区分 XLSM文件.

1. Sub AAA()
   
2. a = Range("zz1").End(xlDown).Row
   
3. If a <= 655336 Then
   
4.     Set eb = Workopens(ThisWorkbook.Path & "\附件.xls")
   
5. Else
   
6.     Set eb = Workopens(ThisWorkbook.Path & "\附件.xlsm")
   
7. Else
   
8. End If
   
9. End Sub

复制代码

跳转到最佳答案楼层

砂海

如果前面有容错的话, 或者在前面加句 on error resume next 容错
if eb = nothing then set eb="......xlsx"

france723

Excel2003的最大行是65536行,从Excel2007开始最大行是1048576.
xls是2003版本下的文件,不管有没有宏程序的话都是xls文件, 2007做了区分 XLSM文件.

1. Sub AAA()
   
2. a = Range("zz1").End(xlDown).Row
   
3. If a <= 655336 Then
   
4.     Set eb = Workopens(ThisWorkbook.Path & "\附件.xls")
   
5. Else
   
6.     Set eb = Workopens(ThisWorkbook.Path & "\附件.xlsm")
   
7. Else
   
8. End If
   
9. End Sub

复制代码