ExecuteExcel4Macro 从关闭的工作簿中获取范围/图表

Question

我使用这些行从已关闭的工作簿中获取值：

Arg = "'" & Path & "[" & File & "]" & Sheet & "'!" & "R4C4"  
Arg = CStr(Arg)
GetValue = ExecuteExcel4Macro(Arg)

除了循环之外，还有其他方法可以从范围中获取值吗？循环解决方案正在工作，但如果我可以直接使用ExecuteExcel4Macro 获取范围会更清楚。我尝试在Arg 中输入一个范围，但它返回错误。

我对图表有同样的问题，我怎样才能得到它们？我目前的解决方案包括获取值和重新绘制图表。它可以工作，但我会更喜欢GetChart(Chartname) 函数。

我发现我可以使用 ADODB 连接从已关闭的工作簿中获取价值。但与ExecuteExcel4Macro 相比，它有点过于复杂。在范围/图表的情况下使用 ADODB 连接会更容易吗？

Answer 1

以下代码从已关闭工作簿中的某个范围中提取信息，并将其复制到活动工作簿中的相同范围中：

    Sub GetRange()
        With Range("A1:D50")                                    'set range to copy from / to.
            .Formula = "='C:\E3_Test\[CC_Data.xlsx]AllData'!A1" 'refers to a workbook, sheet and first cell.
                                                                'It will put the relative references into the target sheet correctly.
            .Value = .Value                                     'changes formula to value.
        End With
    End Sub