Question

所以我做了一些挖掘工作，发现了我认为实现目标所必需的部分，但是我无法按正确的顺序拼凑这些部分。我已经使用其文件位置从不同的工作簿中引用了一个单元格值，并将该值复制到我的活动工作簿。

当我希望该文件位置来自我的活动工作簿中的引用单元格而不是来自嵌入在代码本身中的文件位置时，我的问题出现了。这个想法是其他用户可以简单地将他们的文件位置复制到参考单元格，宏从该文件中提取必要的值。

这是我的代码，它与来自代码本身的位置一起使用

Private Sub CommandButton1_Click()
 Dim XL As Excel.Application

 Dim WBK As Excel.Workbook

 Set XL = CreateObject("Excel.Application")

 Set WBK = XL.Workbooks.Open("R:\Branches\XXX\XXX\XXX\MASTER LOAN MEMO 8-14.xlsx")

 ActiveWorkbook.Sheets("Sheet1").Range("H3") = WBK.Sheets("Master Input").Range("B58").Value

 WBK.Close

 Set XL = Nothing

 End Sub

这是我的修改版本，试图完成我之前解释的内容：

Private Sub CommandButton2_Click()
Dim XL As Excel.Application

Dim WBK As Excel.Workbook

Dim Location As String

Location = ActiveWorkbook.Sheets("Sheet2").Range("B2").Value

Set XL = CreateObject("Excel.Application")

Set WBK = XL.Workbooks.Open(Location)



ActiveWorkbook.Sheets("Sheet1").Range("H3") = WBK.Sheets("Master Input").Range("B58").Value



WBK.Close

Set XL = Nothing
End Sub

我收到运行时错误1004，说明无法找到文件位置。任何帮助将不胜感激。

Answer 1

当我使用故意错误的文件位置（即我的环境中不存在的位置）时，我无法复制问题除外。由于您的目录结构看起来可能有很多级别，并且由于您引用的是驱动器号而不是服务器名，因此该位置可能错误拼写？尝试将您要查找的文件移动到C盘，相应地更改Sheet2.B2中的值并进行测试。

顺便说一下，我在复制使用各种函数，＆符号和连接的值时没有问题。

使用引用单元格位置从另一个工作簿中检索单元格值

1 个答案: