从关闭的工作簿导入值

Question

提前抱歉，我只是不知道如何很好地表达我的问题。

我使用存储在 Excel 中的调查树木信息。我已经使用 VBA 宏将数据从 Excel 导入到 Word 模板中取得了一些成功。

提供的数据有树木的拉丁物种名称，但没有常见的。我正在另一本工作簿中列出所有物种及其通用名称。

有没有办法让我的宏在“列表”工作簿中搜索物种值，返回相应的通用名称，以便可以将其粘贴到 Word 模板中的书签，最好无需打开“列表”工作簿？有时数据可能很大

如果我在这个问题上浪费了任何人的时间，请提前抱歉。

我的VBA经验非常有限，经常出现语法错误。我只是不知道如何解决这个问题。

任何帮助将不胜感激。

这是我正在使用的示例：

Answer 1

一种方法可以是使用以下函数

Option Explicit

Function getValueFromFile(path As String, file As String, sheet As String, rowNo As Long, colNo As Long) As String
        
    Dim arg As String
    arg = "'" & path & "[" & file & "]" & sheet & "'!R" & rowNo & "C" & colNo

    'Run XL4-Macro
    getValueFromFile = ExecuteExcel4Macro(arg)
    
End Function

这里是如何使用它的。此示例将检索 Sheet1 中单元格 B2 的值。

Sub Main()
    Dim res As String
    res = getValueFromFile("D:\TMP\", "xlFile.xlsx", "Sheet1", 2, 2)
End Sub

在这里您可以找到使用ADODB

的版本