如何通过Shell从Excel VBA向R传递数组？遇类型不匹配错误

我来帮你搞定这个问题——你遇到的「类型不匹配」错误，本质是VBA没法直接把数组变量拼进命令行字符串里。咱们一步步拆解原因，再给出不用CSV、也不用循环传递参数的解决方案：

问题根源 #

当你执行var2 = ThisWorkbook.Sheets("Offerte").Range("B10:B11").Value时，VBA返回的是一个二维Variant数组（哪怕是单列范围，VBA也会默认生成二维结构，比如var2(1,1)对应B10，var2(2,1)对应B11）。直接把这个数组变量塞进path的字符串拼接里，VBA不知道怎么把数组转换成字符串，直接就抛出类型不匹配错误了。

解决方案：把数组转成分隔字符串传递 #

我们可以把数组的所有元素用一个不会和数据冲突的分隔符（比如逗号）拼接成单个字符串，作为一个参数传给R，再在R里把这个字符串拆回数组。这样既不用写CSV，也不用循环传递多个参数，完美符合你的需求。

修改后的VBA代码 #

Sub test()
 Dim oShell As Object
 Dim waitTillComplete As Boolean: waitTillComplete = True
 Dim style As Integer: style = 1
 Dim errorCode As Integer
 Dim path As String
 Dim var1 As Variant
 Dim var2 As Variant
 Dim var2Str As String
 Dim i As Integer
 
 Set oShell = VBA.CreateObject("WScript.Shell")
 var1 = ThisWorkbook.Sheets("Offerte").Range("B9").Value
 var2 = ThisWorkbook.Sheets("Offerte").Range("B10:B11").Value
 
 ' 把二维数组转成逗号分隔的字符串
 var2Str = ""
 For i = LBound(var2, 1) To UBound(var2, 1)
     If var2Str <> "" Then var2Str = var2Str & ","
     var2Str = var2Str & var2(i, 1)
 Next i
 
 ' 注意给拼接后的字符串参数加引号，避免数据含空格时命令行解析出错
 path = """C:\Program Files\R\R-3.5.1\bin\x64\rscript.exe"" ""S:\Test2.R"" " & var1 & " """ & var2Str & """"
 errorCode = oShell.Run(path, style, waitTillComplete)
End Sub

修改后的R代码 #

在R里，我们用strsplit()把接收的字符串拆分成数组，再转成数值类型：

options(echo=TRUE)
args = commandArgs(trailingOnly=TRUE)
var1 <- as.numeric(args[1])
# 拆分逗号分隔的字符串为数值数组
var2 <- as.numeric(strsplit(args[2], ",")[[1]])

# 可以加个测试输出验证结果
cat("var1的值：", var1, "\n")
cat("var2的数组：", var2, "\n")

额外小贴士 #

• 这里的循环只是用来拼接数组元素成字符串，不是逐个传递参数，完全符合你“不通过循环传递数组”的要求。
• 如果你的数组是多列的，只需要调整VBA里的循环逻辑，比如同时遍历行和列，把元素按你需要的顺序拼接就行。
• 一定要给拼接后的字符串参数加双引号！如果你的数据里有空格，不加引号的话命令行会把空格当成参数分隔符，导致R接收到错误的参数。

内容的提问来源于stack exchange，提问作者CBovee