我使用这些行从关闭的工作簿中获取值:
Arg = "'" & Path & "[" & File & "]" & Sheet & "'!" & "R4C4"
Arg = CStr(Arg)
GetValue = ExecuteExcel4Macro(Arg)
除了循环之外还有其他方法从范围中获取值吗?循环解决方案正在工作,但如果我可以直接使用ExecuteExcel4Macro
。我尝试输入一个范围Arg
,但它返回一个错误。
我对图表也有同样的问题,我怎样才能得到它们?目前我的解决方案包括获取值和重新绘制图表。它有效,但我会更高兴GetChart(Chartname)
功能。
我已经看到我可以使用 ADODB 连接从关闭的工作簿中获取价值。但与相比,它有点太复杂了ExecuteExcel4Macro
。在范围/图表的情况下使用 ADODB 连接会更容易吗?
以下代码从关闭的工作簿中的某个范围中提取信息,并将其复制到活动工作簿中的相同范围中:
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
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)