通过R Shell在VBScript中调用Dim时发生意外错误

Question

我编写了一个VBScript宏，当在Excel的模块编辑器中运行Excel表单时，该宏成功格式化了Excel表单。但是，当我run VBA script through R时，我遇到了一些问题。尝试在VBScript中调用Dim时，代码变得“卡住了”，我不确定为什么。

这是VBScript的简短示例：

Set objExcel = createObject("Excel.Application")
objExcel.Visible = True
objExcel.DisplayAlerts = False
Set wb = objExcel.Workbooks.Open("C:/pathtoxlsx")
Set xlsheet = wb.worksheets("Sheet1")
Dim rownum As Range

这是我用来调用此宏的R代码（该代码适用于更简单的情况，即当我不需要使用Dim声明变量时）：

vbscript = "C:\\pathfiletovbs.vbs"
shell(shQuote(normalizePath(vbscript)), "cscript", flag = "//nologo")

这会出现以下错误：

  

警告信息：   在shell（shQuote（normalizePath（vbscript）），“ cscript”，flag =“ // nologo”）中：     ““ C：\ Users \ fetorres \ Documents \ avrc \ projects \ et_monthly_report \ data \ FMT_TEST.vbs”执行失败，错误代码为1

删除Dim rownum As Range时，我没有收到相同的错误消息。有趣的是，尽管代码仅在调用Dim rownum时便开始运行，但我无法为该变量设置任何Range值-当变量达到Set rownum = ...时会崩溃。

一段时间以来，我一直在挠头-有人有任何建议吗？