此示例展示的是取得给定路径下的Excel文件一览,返回的是数组形式。
'----------------------------------------------------------------------
'Get Files List
'----------------------------------------------------------------------
Function GetFile(ByVal strInputPath As String) As String()
'----------------------------------------------------------------------
'定义变量
'----------------------------------------------------------------------
Dim strFileName As String
Dim i As Integer
Dim arrFileList() As String
'----------------------------------------------------------------------
'初始化
'----------------------------------------------------------------------
i = 0
strFileName = Dir(strInputPath & "*.xls?") '此处可以具体定义文件扩展名等
'----------------------------------------------------------------------
'循环取得文件一览
'----------------------------------------------------------------------
Do While strFileName <> ""
ReDim Preserve arrFileList(i)
arrFileList(i) = strFileName
i = i + 1
strFileName = Dir
Loop
GetFile = arrFileList
End Function