尝试复制工作表时出现“下标超出范围”

Question

Private Sub Add_Click()
ActiveWorkbook.Worksheets(ComboBox1.Value).Copy Before:=Workbooks(link.Value).Worksheets("Contract")
End Sub

这是我100％确定link和ComboBox1具有我要寻找的值。

有人可以告诉我为什么我总是收到错误“下标超出范围 ”吗？

Answer 1

问题来自：

Before := Workbooks(link.Value)

从您的评论看来， link.value拥有文件的完整路径名。 该方法Workbooks(somename)需要somename是一个名称，如Workbooks(test.xls)不带路径。

尝试从浏览对话框中获取不带路径的文件名，然后将其输入到不带路径的函数中。 最终，要快速修复它，可以使用以下命令：

ActiveWorkbook.Worksheets(ComboBox1.Value).Copy Before:=Workbooks(Right(link.Value, Len(link.Value) - InStrRev(link.Value, "\"))).Worksheets("Contract")

添加的代码从link.value中给出的完整路径中提取文件名。