with块变量未设置怎么解决

yukiru

显示到‘        Cells(lRow, iCol + 1) = .getdetailsof(.Items, vArray(iCol))’
就是with块变量未设置

1. Sub AAA()
   
2. Dim iPath As String, b As Long                                                                '定义变量 iPath 为 String,i 为 长整型值
   
3. Dim t                                                                                          '定义变量 t
   
4. t = Timer                                                                                      't=当前计时
   
5. With Application.FileDialog(msoFileDialogFolderPicker)                                         '工作于Application.FileDialog(msoFileDialogFolderPicker)
   
6. .Title = "请选择要查找的文件夹"                                                                          '.Title="请选择要查找的文件夹"
   
7. If .Show Then                                                                                  '如果 .Show 则执行
   
8.     iPath = .SelectedItems(1)                                                                   'iPath=.SelectedItems(1)
   
9. End If                                                                                         'End如果
   
10. End With                                                                                       'End工作于
    
11. If iPath = "False" Or Len(iPath) = 1 Then Exit Sub                                             '如果 iPath="False"或者Len(iPath)=1 则执行 退出子程序
    
12.     b = 1                                                                                       'i=1
    
13.     Call GetFolderFile(iPath, b)                                                                '调用 GetFolderFile(iPath,i)
    
14. 
    
15. End Sub                                                                                        'End子程序
    
16. Public Sub GetFolderFile(ByVal nPath As String, ByRef iCount As Long)                        '私有的子程序 GetFolderFile(变量nPath 为 String,ByRefiCount 为 长整型值)
    
17. 
    
18. 
    
19.   Dim oShell As Object
    
20.   Dim oFile As Object
    
21.   Dim oFldr As Object
    
22.   Dim lRow As Long
    
23.   Dim iCol As Integer
    
24.   Dim vArray As Variant
    
25.   vArray = Array(0, 10, 18, 176)
    
26.   Set oShell = CreateObject("Shell.Application")
    
27.   lRow = 1
    
28.       Set oFldr = oShell.Namespace(iPath)
    
29.       With oFldr
    
30.         For iCol = LBound(vArray) To UBound(vArray)
    
31.           Cells(lRow, iCol + 1) = .getdetailsof(.Items, vArray(iCol))
    
32.         Next iCol
    
33.         For Each oFile In .Items
    
34.           lRow = lRow + 1
    
35.           For iCol = LBound(vArray) To UBound(vArray)
    
36.           On Error Resume Next
    
37.             Cells(lRow, iCol + 1) = .getdetailsof(oFile, vArray(iCol))
    
38.           Next iCol
    
39.         Next oFile
    
40.       End With
    
41. 
    
42. 
    
43. For Each nFolder In sFolder                                                                    '设定变量范围为每一个nFolder位于sFolder
    
44.     Call GetFolderFile(nFolder.Path, iCount)                                                    '调用 GetFolderFile(nFolder.Path,iCount)
    
45. Next                                                                                           '下一个
    
46. 
    
47.   End Sub                                                                                        'End子程序
    
48.                                                                                              
    
49. 
    
50. 
    
51. 
    

复制代码

liulang0808

楼主使用的参数ipath，npath需要甄别下吧
领带对象在使用的时候，如果是nothing肯定是要有问题的

yukiru

liulang0808 发表于 2018-8-9 11:10
楼主使用的参数ipath，npath需要甄别下吧
领带对象在使用的时候，如果是nothing肯定是要有问题的

问题是显示是到 Cells(lRow, iCol + 1) = .getdetailsof(.Items, vArray(iCol))出错喔

liulang0808

yukiru 发表于 2018-8-9 13:46
问题是显示是到 Cells(lRow, iCol + 1) = .getdetailsof(.Items, vArray(iCol))出错喔

那楼主把这段代码注释掉，看看还是不是继续报错

yukiru

liulang0808 发表于 2018-8-9 15:39
那楼主把这段代码注释掉，看看还是不是继续报错

是报错才弄个注释看看的  T.T

liulang0808

yukiru 发表于 2018-8-9 15:40
是报错才弄个注释看看的  T.T

意思是将报错的那行代码注释掉，不是说你增加的注释。
然后再运行代码看看是否报错的