你可以自己做一个窗口,做一个目录树,然后目录树那里写代码
If tables.contains(e.node.text) Then
maintable = Tables(e.node.text)
End If