Excelvba字典樹結構

a）我在這裏只能看到錯誤“運行時錯誤52”，因為查詢的文件夾沒有訪問權限（例如壹些系統文件夾）。

b）生成文件夾的生成樹時會提示“類型不匹配”:因為當文件夾為空時，語句dKeys = sheet1。【A1】。調整大小（DIC。計數，1）。分配給Dkeys的值不再是字符串數組，而是字符串。

解決方法是使用Isarray（d keys）函數在“For Each ke In dKeys”之前進行判斷。如果它是假的，

然後sheet 1 . cells（1，1）= ke。

c）每層將缺少壹個文件:

那是因為陳述的順序顛倒了。當遍歷文件夾目錄中的文件時，結果是您寫了這樣的內容:

MyFileName = Dir

1。細胞（I，n）。offset（m，1）= my filename

將Dir賦給MyFileName時，相當於將找到的下壹個文件名賦給MyFileName，因為您已經調用了my filename = Dir（ke &；"*.*“）執行第壹個搜索任務，因此每次結果都會缺少找到的第壹個文件名。

它應該改為:

1。細胞（I，n）。offset（m，1）= my filename

MyFileName = Dir

希望這些對妳有幫助。