运行时错误 1004

heng2131

有两个excel文件：运行时错误1004.xlsm（代码所在文件）

2018年表.xls（这个文件放在D盘根目录）

代码运行时出错，请问为什么不对？
应该怎么写才能把“2018年表.xls”的某个工作表的数据存到数组中？

1. Option Explicit
   
2. Public x As Integer
   
3. Public path9 As String
   
4. 
   
5. 
   
6. Sub assignment() '全局变量赋值
   
7. 
   
8. 
   
9. x = ThisWorkbook.Sheets(2).Range("$d$1").Value
   
10. path9 = ThisWorkbook.Sheets(2).Range("$d$9").Value
    
11. 
    
12. 
    
13. End Sub
    
14. 
    
15. 
    
16. '判断路径的文件是否存在
    
17. Function IsFileExists(ByVal filePath As String) As Boolean
    
18.     If Dir(filePath, 16) <> Empty And filePath <> "" Then
    
19.         IsFileExists = True
    
20.     Else
    
21.         IsFileExists = False
    
22.     End If
    
23. End Function
    
24. 
    
25. 
    
26. Sub test()
    
27. 
    
28.     Call assignment  '全局变量赋值
    
29.    
    
30.     If (Not IsFileExists(path9)) Then
    
31.         MsgBox "文件不存在！"
    
32.         Exit Sub
    
33.     End If
    
34.    
    
35.    
    
36.     With GetObject(path9)
    
37.    
    
38. <span style="background-color: yellow;">        y = .Sheets(x - 1).Cells(Rows.Count, "c").End(xlUp).Row '报错</span>
    
39.         brr = .Sheets(x - 1).Range("a9:k" & y).Value
    
40.         .Close flase
    
41.         
    
42.     End With
    
43.    
    
44. End Sub
    

复制代码

运行时错误1004.rar (33.09 KB, 下载次数: 3)

2018-9-7 23:01 上传

点击文件名下载附件

abc123281

说明你的要求和想要达到的目的

山菊花

问题出在Rows.Count：
        y = .Sheets(x - 1).Cells(Rows.Count, "c").End(xlUp).Row  '报错

程序如果运行在Excel2007以上版本，Rows.Count返回1048576，而XLS工作簿最大行数是65536，不存在单元格对象Cells(1048576,"c")，所以返回1004错误。

改为：
        y = .Sheets(x - 1).Cells(.Sheets(1).Rows.Count, "c").End(xlUp).Row  
或：
        y = .Sheets(x - 1).Cells(65536, "c").End(xlUp).Row  

heng2131

山菊花 发表于 2018-9-8 11:15
问题出在Rows.Count：
        y = .Sheets(x - 1).Cells(Rows.Count, "c").End(xlUp).Row  '报错

一针见血，说明了原因，解我疑惑。