要求对象问题

penguincc

1. Sub 导入数据()
   
2. 
   
3. Dim u%, i%, o%, ans As Variant, wb As Workbook, fileNameObj As Variant, p As Integer
   
4. Dim aFile As Variant                            '数组，提取文件名fileName时使用'打开文件对话框返回的文件名，是一个全路径文件名，其值也可能是False，因此类型为Variant
   
5. Dim fullName As String
   
6. Dim fileName As String                         '从FileName中提取的路径名
   
7. 
   
8. ans = MsgBox("确认保存数据并继续?", vbOKCancel + vbDefaultButton1)
   
9. If ans = vbOK Then
   
10. 
    
11. 'Application.Calculation = xlManual
    
12. 
    
13. fileNameObj = Application.GetOpenFilename("Excel 文件 (*.xls),*.xls")     '调用Windows打开文件对话框
    
14. If fileNameObj <> False Then                       '如果未按“取消”键
    
15. aFile = Split(fileNameObj, "")
    
16. fileName = aFile(UBound(aFile))            '数组的最后一个元素为文件名
    
17. fullName = aFile(0)
    
18. For p = 1 To UBound(aFile)                 '循环合成全路径
    
19. fullName = fullName & "" & aFile(p)
    
20. Next
    
21. Else
    
22. MsgBox "请选择文件"
    
23. End
    
24. End If                               '得到Excel全路径
    
25.    
    
26. Set wb = Workbooks.Open(fullName)
    
27. 
    
28. For o = 1 To wb.Sheets.Count
    
29. With wb.Sheets(o)
    
30. For u = 4 To 40
    
31. For i = 3 To 40
    
32. 
    
33. If .Cells(u, i) <> "" And .Cells(u, 2) <> "" And .Cells(3, i) >= 1 And .Cells(3, i) <= 31 Then
    
34. arr = Array(.Cells(3, i).Value, Sheets(o).Name, .Cells(u, 2).Value, .Cells(u, i).Value)  [出现要求对象，求大神斧正]
    
35. Cells(Rows.Count, 1).End(xlUp).Row.Offset(1, 0).Resize(1, 4) = arr
    
36. End If
    
37. 
    
38. Next
    
39. Next
    
40. End With
    
41. Next
    
42. 
    
43. End If
    
44. 'Application.Calculation = xlAutomatic
    
45. End Sub

复制代码

LONGGE1688

我也不知道怎么弄

penguincc

Cells(Rows.Count, 1).End(xlUp).Row.Offset(1, 0).Resize(1, 4) = arr  这行出现“要求对象”

fyure

penguincc 发表于 2018-9-27 16:33
Cells(Rows.Count, 1).End(xlUp).Row.Offset(1, 0).Resize(1, 4) = arr  这行出现“要求对象”

Cells(Rows.Count, 1).End(xlUp).Row这个求出来的是行数，要再加一层

cells(Cells(Rows.Count, 1).End(xlUp).Row,1).Offset(1, 0).Resize(1, 4) = arr

penguincc

fyure 发表于 2018-9-27 17:01
Cells(Rows.Count, 1).End(xlUp).Row这个求出来的是行数，要再加一层

cells(Cells(Rows.Count, 1).End ...

谢谢。
然后运行还是出问题
出现：应用程序定义或对象定义错误
改成：ThisWorkbook.Worksheets("洗涤数量库").Cells(Cells(Rows.Count), 1).End(xlUp).Row.Offset(1, 0).Resize(1, 4) = arr  还是一样

penguincc

fyure 发表于 2018-9-27 17:01
Cells(Rows.Count, 1).End(xlUp).Row这个求出来的是行数，要再加一层

cells(Cells(Rows.Count, 1).End ...

是我疏忽了，不好意思