自定义函数的数组返回值怎么用填充柄拖依次出现

liuhuanexcel

自定义了一个生成文件夹下文件链接的函数，但是返回的数组在不知道文件数量的情况下非常难判断扩充范围，怎么样调整可以让在一个单元格输入后用普通公式的思路，往下拖动出现后面的值。希望能在wps使用，wps目前还没有自动溢出的功能。

1. Public Function ExtractFilePath(ByVal strDir As String) As Variant
   
2.     Dim objFSO As Object
   
3.     Dim objFolder As Object
   
4.     Dim objFile As Object
   
5. 
   
6.     '  创建文件系统对象
   
7.     Set objFSO = CreateObject("Scripting.FileSystemObject")
   
8.    
   
9.     '  创建指定文件夹
   
10.     Set objFolder = objFSO.GetFolder(strDir)
    
11.    
    
12.     '  定义数组存放文件路径
    
13.     Dim arrFilePaths() As String
    
14.     ReDim arrFilePaths(objFolder.Files.Count - 1)
    
15.     Dim i As Integer
    
16.     i = 0
    
17.    
    
18.     '  遍历文件夹中的文件
    
19.     For Each objFile In objFolder.Files
    
20.         arrFilePaths(i) = objFile.Path
    
21.         i = i + 1
    
22.     Next
    
23.    
    
24.     '  返回文件路径数组
    
25.     ExtractFilePath = Application.WorksheetFunction.Transpose(arrFilePaths)
    
26. End Function

复制代码

liuhuanexcel

自己顶

半百

7176386

1. Public Function ExtractFilePath(ByVal strDir As String, Optional N As Integer = 1) As Variant
   
2.     Dim objFSO As Object
   
3.     Dim objFolder As Object
   
4.     Dim objFile As Object
   
5. 
   
6.     '  创建文件系统对象
   
7.     Set objFSO = CreateObject("Scripting.FileSystemObject")
   
8.    
   
9.     '  创建指定文件夹
   
10.     Set objFolder = objFSO.GetFolder(strDir)
    
11.    
    
12.     '  定义数组存放文件路径
    
13.     Dim arrFilePaths() As String
    
14.     ReDim arrFilePaths(objFolder.Files.Count - 1)
    
15.     Dim i As Integer
    
16.     i = 0
    
17.    
    
18.     '  遍历文件夹中的文件
    
19.     For Each objFile In objFolder.Files
    
20.         arrFilePaths(i) = objFile.Path
    
21.         i = i + 1
    
22.     Next
    
23.    
    
24.     '  返回文件路径数组
    
25.     If N > i Then
    
26.    
    
27.         ExtractFilePath = "下标越界！"
    
28.         
    
29.     ElseIf i < N Then
    
30.    
    
31.         ExtractFilePath = "没有找到！"
    
32.         
    
33.     Else
    
34.    
    
35.         ExtractFilePath = Application.WorksheetFunction.Transpose(arrFilePaths(N - 1))
    
36.    
    
37.     End If
    
38.    
    
39. End Function

复制代码