R-Excel VBA : how to extract values returned by GetArrayToVBA?

Question

我正在尝试编写 R-Excel vba 插件，但无法使用 GetArrayToVBA .

例子:

RInterface.StartRServer
RInterface.RRun "mytst<-4"
Dim tstVar As Variant, tst As Double
tstVar = RInterface.GetArrayToVBA("mytst")
tst = CDbl(testVar)
MsgBox "count = " & CStr(tst)
RInterface.StopRServer

结果消息框显示 count = 0 .我期待 count = 4 .

Answer 1

这是一个 VBA 问题。您不能使用 CDbl() 将 1x1 数组类型转换为 double 来获取该数组中的值。您必须从数组中为其提供所需的索引 (0,0)。以下作品:

RInterface.StartRServer
RInterface.RRun "mytst<-as.matrix(4)"
Dim tstVar As Variant, tst As Double
tstVar = RInterface.GetArrayToVBA("mytst")
tst = CDbl(tstVar(0, 0))
MsgBox "count = " & CStr(tst)
RInterface.StopRServer