For Each oFile In oFiles方法成立，Set oFile = oFiles(2)不成立。

ning84

1. Function JpgFilesToRng(Rng As Range, oFiles As Files)
   
2.      Dim oFile As File
   
3.          Set oFile = oFiles(2)
   
4.          Stop
   
5.          With oFiles
   
6.              For ii = 1 To .Count
   
7.                   'Stop
   
8.                   
   
9.             
   
10.              Next ii
    
11.          End With
    
12.          kk = 1
    
13.          For Each oFile In oFiles
    
14.               Rng(kk, 1) = oFile.Path
    
15.               kk = kk + 1
    
16.               
    
17.          Next oFile
    
18. End Function
    
19. 
    
20. 
    
21. Sub JpgFileToRngAA()
    
22.     Dim Str, ii, jj
    
23.     Dim Fso As Scripting.FileSystemObject
    
24.         Set Fso = New Scripting.FileSystemObject
    
25.     Dim oFolder As Folder
    
26.     Dim Fia As FileDialog
    
27.         Set Fia = Application.FileDialog(msoFileDialogFolderPicker)
    
28.         With Fia
    
29.              .AllowMultiSelect = True
    
30.              .Show
    
31.              Str = .SelectedItems(1)
    
32.         End With
    
33.         Stop
    
34.     Dim Files As Files
    
35.         Set oFolder = Fso.GetFolder(Str)
    
36.         
    
37.     Dim Rng As Range
    
38.         Set Rng = Selection
    
39.     Dim Sht As Worksheet
    
40.         Set Sht = Rng.Parent
    
41.         Set Rng = Sht.Cells(Rng.Row, "AA")
    
42.         JpgFilesToRng Rng, oFolder.Files
    
43.         
    
44.         
    
45.         
    
46. End Sub
    
47. 
    

复制代码