Question

要改写这个，因为它非常糟糕。

以下是我从stackoverflow获取的一些代码，用于从已关闭的工作簿中的单元格中获取数据，它完美无缺

Sub PullValue（） Dim PATH，FILENAME，SHEETNAME，CELL

PATH = "C:\Users\admin\Desktop\"
FILENAME = "Book1.xlsm"
SHEETNAME = "Sheet1"
CELL = "A1"

With Range("A2")
    .Formula = "='" & PATH & "[" & FILENAME & "]" & SHEETNAME & "'!" & CELL & ""
    .Value = .Value
End With

End Sub

然而。我试图用相对链接替换PATH“C：...”。我尝试了很多形式，即'ThisWorkbook.Path'，但似乎没有任何工作，所以我显然添加了错误的代码，因为我不是真正的VBA用户。

如果有人有任何提示，如果你能告诉我如何忽略错误，那将非常感激和奖励积分。如果SHEETNAME不存在，我希望CELL返回空白。

干杯

：）

Answer 1

我认为没有理由说它不起作用，但是，你记得在thisworkbook.path之后添加另一个“\”吗？说到相对路径，你的意思是什么？

来自已关闭的工作簿VBA的参考单元格（带有错误检查和相对路径）

1 个答案: