最近我們分享了幾篇常用的VBA代碼，每篇基本都是保姆級(jí)的，告訴你怎么調(diào)用，如果你是VBA開發(fā)者，可能拿到代碼，只要一句調(diào)用即可完成常見的一些復(fù)雜需求！ 當(dāng)然也適合0基礎(chǔ)同學(xué)來使用，就好像使用VLOOKUP那樣，了解一下參數(shù)即可！
今天我們繼續(xù)分享幾個(gè)，都是我個(gè)人的常用的自定義函數(shù)庫！前面沒有閱讀的同學(xué)，推薦閱讀，先看一下，如何使用代碼等問題！
'功能：判斷文件夾是否存在'公眾號(hào)：Excel辦公實(shí)戰(zhàn)'作者：E精精'日期：20210509'---------------------------------------------------Function exFolder(folderPath As String) Dim fso As Object Set fso = CreateObject("Scripting.FileSystemObject") exFolder = fso.folderExists(folderPath)End Function
'功能：批量創(chuàng)建文件夾'公眾號(hào)：Excel辦公實(shí)戰(zhàn)'作者：E精精'日期：20210509'---------------------------------------------------Function MkDirs(ByVal sPath As String) Dim arr, i As Integer Dim sFullPath As String If exFolder(sPath) = False Then arr = Split(sPath, "\") If IsArray(arr) Then For i = 0 To UBound(arr) sFullPath = "" For j = 0 To i sFullPath = sFullPath & arr(j) & "\" Next Debug.Print sFullPath '另一種判斷文件夾是否存在 If Dir(sFullPath, 16) = "" Then MkDir sFullPath End If Next End If End If MkDirs = sPathEnd Function
聯(lián)系客服
