桌面文档变量赋值下标越界

xzh_yzcn

各位老师：

我想给账面“测试”文档变量赋值 出现下标越界错误，不知所措，请指点迷津。我的代码是：

    zmlj = CreateObject("WScript.Shell").SpecialFolders("Desktop")
    wbkfname = ActiveWorkbook.FullName
    wbkname = ActiveWorkbook.Name
    Set owbk = Workbooks(wbkfname)
    Set owbk = Workbooks(zmlj & "\" & wbkname)

    当执行到Set owbk = Workbooks(wbkfname)此句时，出现 下标越界错误。请指点错在哪里，如何解决此问题，谢谢
测试.zip (10.72 KB, 下载次数: 4)

2024-9-28 10:13 上传

点击文件名下载附件

liulang0808

Set owbk = Workbooks(wbkfname) 改成 Set owbk = Workbooks(wbkname)
下面那段代码Set owbk = Workbooks(zmlj & "\" & wbkname)也是有问题的表述
关键楼主是要做什么？要按照规范来的，

DevilW

Workbooks 集合只能用 Workbooks (Number) 和 Workbooks (Name) 方式表达，不要包含路径

longwin

供参考：
zmlj = CreateObject("WScript.Shell").SpecialFolders("Desktop")
    wbkfname = ActiveWorkbook.FullName
    wbkname = ActiveWorkbook.Name
    Set owbk = Workbooks(wbkname)
    Set owbk = Workbooks.open(wbkfname)
    Set owbk = Workbooks.open(zmlj & "\" & wbkname)

xzh_yzcn

感谢两位老师的指点，问题解决啦