暗淡？Fso？作為？對象，？壹、？我& amp,?強生公司。,?n & amp,?brr()
申請。屏幕更新？=?假的？關閉屏幕更新。
設置？Fso？=?Createobject("腳本。文件系統對象")'創建FSO對象。
p？=?此工作簿。路徑？& amp？"\2012-3-1"?當前路徑下的文件夾
sFileType？=?"*.pdf "？類型為PDF文件。
打電話？GetFiles(p，？sFileType，？Fso '調用getfiles程序。
雷迪姆？brr(1？去哪？m，？1?去哪？4)'定義壹個二維數組
[a 1]. current region . offset(1)。ClearContents？A1 '所用區域整體向下清理。
用什麽？“ActiveSheet”。
為了什麽？我？=?1?去哪？m？我從1循環到m。
答？=?Split(arr(i)，？"\")?用\將數組arr(i)單獨寫入數組a。
n？=?0
為了什麽？j？=?UBound(a)？-?3?去哪？UBound(a)？-?1?數組A中j的最後三個數字循環
n？=?n？+?1'n加壹次。
brr(我，？n)？=?A(j)'為brr賦值。
然後
brr(我，？4)?=?替換(a(j)，？".pdf“，？"")?刪除。可移植文檔格式文件的擴展名（portable document format的縮寫）
.超鏈接.添加？Anchor:=Cells(i？+?1,?4),?地址:=arr(i)'建立超鏈接。
然後
結束？隨著
[a2]。調整大小(m，4)?=?brr？將陣列brr分配給a2的擴展區域。
m？=?0
擦除？清除Arr
設置？Fso？=?什麽都沒有
申請。屏幕更新？=?True '打開屏幕更新。
結束？潛水艇
私人？Sub？GetFiles(ByVal？sPath$，？ByVal？sFileType$，？Fso？作為？對象)
暗淡？文件夾？作為？目標
暗淡？子文件夾？作為？目標
暗淡？文件？作為？目標
設置？文件夾？=?Fso。獲取文件夾(sPath)
為了什麽？每個？文件？在？文件夾。spath下的文件。
如果？文件。名字？比如？sFileType？如果文件名類似於sfiletype。
m？=?m？+?1'm自動添加
雷迪姆？保存？arr(1？去哪？m)？重新定義數組arr並保留原始數據。
arr(m)？=?斯帕思？& amp？"\"?& amp？文件。“Name”為數組的新數據賦值。
結束？如果
然後
如果？文件夾。子文件夾。計數？& gt？0?然後呢？如果存在子文件夾。
為了什麽？每個？子文件夾？在？文件夾。子文件夾？瀏覽所有子文件夾。
打電話？GetFiles(子文件夾。路徑，？sFileType，？Fso)'再次運行壹些程序。
然後
結束？如果
設置？文件夾？=?沒有任何東西
設置？文件？=?沒有任何東西
設置？子文件夾？=?沒有任何東西
結束？潛水艇