excel表格怎么加入文件夹

1.excel中,如何自动调用一个文件夹中新加入的文件夹

'下面的代码假设你新加入的文件夹存放在"c:\000\"文件夹下，Excel中记录这些文件夹的单元格从A1、A2 一直往下：

Sub foldname()

Dim sTxt$, nR%

nR = 0

sTxt = Dir("c:\000\", vbDirectory)

Do While sTxt <> ""

nR = nR + 1

Cells(nR, 1) = sTxt

ActiveSheet.Hyperlinks.Add Anchor:=Cells(nR, 1), Address:="c:\000\" & sTxt

sTxt = Dir

Loop

End Sub