Question

CAD VBA我有一段语句是Set xlbook = xlapp.Workbooks.Open("c:\数据源.xlsx")

，如何在执行前让我能够“选择”这个路径

Answer 1

选择那个不好实现，你就用个输入吧，这样你可以粘贴，试试下面这样的

dim xpath as string
xpath=inputbox("路径"）
Set xlbook = xlapp.Workbooks.Open(xpath)