Files 集合只能用For each遍历方法吗？

ning84

从这张图看 Set oFile = oFiles.Item(1)应该成立，结果错误如下。





For Each oFile in oFiles方法成立

1. Sub CommunityFileToSheet()
   
2.     Dim Rng As Range
   
3.         
   
4.     Dim Fso As FileSystemObject
   
5.         Set Fso = New FileSystemObject
   
6.     Dim oFolder As Folder, oFile As File
   
7.     Dim PathName
   
8.     Dim oFiles As Files
   
9.     Dim fDialog As FileDialog
   
10.         PathName = ThisWorkbook.Path & "\Community"
    
11.         Set fDialog = Application.FileDialog(msoFileDialogFolderPicker)
    
12.         fDialog.Show
    
13.         PathName = fDialog.InitialFileName
    
14.         Set oFolder = Fso.GetFolder(PathName)
    
15.         Debug.Print oFolder.Name, oFolder.Path
    
16.         Set oFiles = oFolder.Files
    
17.         Set oFile = oFiles.Item(1)
    
18.         Stop
    
19.         For Each oFile In oFolder.Files
    
20.                Debug.Print oFile.Name, oFile.Path
    
21.         Next oFile
    
22. End Sub
    

复制代码

ning84

关于vba：在遍历文件时使用FileSystemObject重命名文件 | 码农家园  https://www.codenong.com/18130149/

1. Private Sub ChangeDictionary()
   
2.     Dim Fso As FileSystemObject, oFile As File
   
3.         Set Fso = New FileSystemObject
   
4.     Dim Dic As Dictionary
   
5.     Dim Rng As Range
   
6.     Dim oName, cName
   
7.         Set Rng = Selection
   
8.             Debug.Print Rng.Address
   
9.         For ii = 1 To Rng.Rows.Count
   
10.             oName = Rng(ii, 2)
    
11.             cName = Rng(ii, 1)
    
12.             Debug.Print oName
    
13.             Debug.Print cName
    
14.             Fso.MoveFile oName, cName
    
15.             ''Stop
    
16.             
    
17.         Next ii
    
18. End Sub
    

复制代码

大灰狼1976

我试了一下，item()里面用文件名称字符串是可以的，序号不行。

micch

此集合非彼集合，并不是内置的collection类型。 所以没有  集合.item的用法吧

perfect131

Files 没有 方法




item 只能用 文件名