- 帖子
- 87
- 主題
- 24
- 精華
- 0
- 積分
- 122
- 點名
- 0
- 作業系統
- win 7
- 軟體版本
- 2016
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2011-7-9
- 最後登錄
- 2018-1-16
|
關於：VBA Function的問題
我在網路上找到一個可以取得檔名的VBA，但是它是用Function寫的！！！
如下……- 'Description：取得活頁簿目錄或底下目錄的全部(指定)檔案名稱集合 - Ver. 1.05
- 'Parameters：wb 活頁簿、strSplitChar 分隔字元、strFolderPath 活頁簿底下目錄的路徑、strExtension 指定的副檔名
- 'Retrun：String
- 'Package：
- 'Reference：Microsoft Scripting Runtime
- 'Creater：Darren.NET - 2009/04/17
- 'Modify：
- Public Function F_File_GetFileNameArry(wb As Workbook, strSplitChar As String, strFolderPath As String, strExtension As String) As String
- Dim fsoFiles As Scripting.FileSystemObject
- Dim fsoExtension As Scripting.FileSystemObject
- Dim files As Scripting.files
- Dim file As Scripting.file
- Dim strCompletePath As String
- Set fsoFiles = New Scripting.FileSystemObject
- Set fsoExtension = New Scripting.FileSystemObject
-
- '判斷路徑(strFolderPath 是否有值)，若不為空完整路徑為活頁簿所在路徑+底下目錄路徑，
- ' 若是空代表為完整路徑即為活頁簿所在路徑
- If strFolderPath <> "" Then
- strCompletePath = wb.Path & strFolderPath
- Else: strCompletePath = wb.Path
- End If
-
- '取得完整路徑目錄下的全部檔案集合
- Set files = fsoFiles.GetFolder(strCompletePath).files
-
- '判斷是否有指定副檔名(strExtension 是否有值)，若不為空(有指定)則須過濾檔案，
- ' 若是指定的副檔名才加入字串；若為空表示全部檔案名稱加入字串
- If strExtension <> "" Then
- For Each file In files
- If UCase(fsoExtension.GetExtensionName(file.Name)) = UCase(strExtension) Then
- If F_File_GetFileNameArry <> "" Then
- F_File_GetFileNameArry = F_File_GetFileNameArry + strSplitChar + file.Name
- Else: F_File_GetFileNameArry = file.Name
- End If
- End If
- Next
- Else
- For Each file In files
- If F_File_GetFileNameArry <> "" Then
- F_File_GetFileNameArry = F_File_GetFileNameArry + strSplitChar + file.Name
- Else: F_File_GetFileNameArry = file.Name
- End If
- Next
- End If
-
- Set fsoFiles = Nothing
- Set fsoExtension = Nothing
- Set files = Nothing
- Set file = Nothing
- End Function
一、Function的用途是什麼？？
二、Function如何使用？
三、什麼樣子的情況下會用到Function？ |
|
發表於 2011-7-27 10:36
| 
