Excel VBA从Workhseet上的平面表递归填充TreeView

Question

格儿。无法使其发挥作用。正如标题所示，我在工作表上有一个基本的平面表，我想从中创建一个TreeView。需要帮助才能让它发挥作用。我使用递归代码来跟踪当前进程中的级别（列），但似乎无法正确设置/重置级别。

这是我的代码：

    r2 = requests.get(item_str)
    texto_pagina = r2.text
    soup_item = BeautifulSoup(texto_pagina,"html.parser")
    empresa = soup_item.find_all("title")
    print(empresa_str.decode('latin1').encode('utf8'))

使用＆＃34; MyLevel＆＃34;变量，我试图跟踪我所处的级别（或列），以便递归调用继续，它知道当它到达子级的末尾时返回到上一级别当前水平。但是，由于某种原因，水平计数只会持续增长。我也尝试在递归调用之后放置它，但这也不起作用。

Answer 1

快速猜测是您通过引用而不是按值传递MyLevel。尝试将ByVal添加到方法签名：

Private Sub LoadTreeViewAddChildNode(MyTreeView As TreeView, MyTreeNode As node, ByVal MyLevel)

如果您对价值和参考参数不确定，请查看this page，其中有一个很好的解释。