创build一个macros来调用一个Winshuttle脚本，这个脚本可以自动将产品inputSAP
我对VBA有一些基本的VB.net知识
我正在尝试创build一个将运行Winshuttle脚本以自动将产品引入SAP的Excelmacros。 截至目前，我们需要七个SAP事务来完成系统中的一个产品的创build，所以我试图用Winshuttle自动化每一个事务，并将它们连接到一个Excel工作表中的七个macrosbutton，这样任何人都可以用一个单独的单击。 我确实需要保持每个脚本的合规性，因此使得所有的七个button都不是一个选项。
Winshuttle提供了一个选项，导出一个macros，允许通过Excel调用脚本，我改变了基本的东西，如在计算机中的脚本位置，startrow，endrow，logcolumn和runonrows值，但现在我收到以下错误：
打开工作表时发生错误
你调用的对象是空的
有人可以帮忙吗？ 另外是什么呢
按照需求和文件的可访问性改变ALFpath。
“可以写入数据的表单”
意思？ 我应该在三行代码之前删除“”“并更改文件path吗？ 这是必要的还是一个选项？
完整的代码如下：
'---------------------------------------------- ' Macro to use runSHUTTLE addin with code '---------------------------------------------- Sub RunSHUTTLEfile() ' ' RunSHUTTLEfile Macro ' Dim runSHUTTLEAddin, AddinObject On Error GoTo ErrHandler ' GET ADDIN OBJECT FROM EXCEL Set runSHUTTLEAddin = Application.COMAddIns.Item("TxRunner.AddinModule") If runSHUTTLEAddin Is Nothing Then MsgBox "Unable to initialize object of runSHUTTLE addin" Exit Sub End If ' Get com object from addin object Set AddinObject = runSHUTTLEAddin.Object.TsMacros If runSHUTTLEAddin Is Nothing Then MsgBox "Unable to initialize com object of runSHUTTLE addin" Exit Sub End If ' Set the type of run from the following ' RunNow = 0, ' RunOnErrors = 1, ' StepByStep_StopOnAllScreens = 2, ' StepByStep_StopOnErrors = 3 AddinObject.TypeofRun = 0 ' Set the Run On Rows from the following ' AsInShuttleFile = 0, // rows as in SHUTTLE file ' Selected = 1, // selected rows on active excel sheet ' Filtered = 2 // filtered rows on active excel sheet AddinObject.RunOnRows = 1 Dim strShuttleFile As String ' open existing SHUTTLEfile to Run strShuttleFile = "C:\Users\310274697\Documents\WinShuttle\TRANSACTION\TRANSACTION scripts\Creation of Materials Scripts\2017.11.21 ZMM01U creation of materials BR9V.txr" AddinObject.OpenShuttleFile (strShuttleFile) AddinObject.StartRow = 2 AddinObject.EndRow = 3 AddinObject.LogColumn = "E" 'Change ALF path as per requirement and accessibility of file. 'Change Sheet where data can be written 'AddinObject.SheetName = "Sheet3" 'AddinObject.AlfPath = "C:\USERS\SASINGH\DOCUMENTS\WINSHUTTLE\TRANSACTION\ALF\WE6800_ANKUR.ALF" 'AddinObject.ResultFileName = "C:\Users\SASINGH\Documents\Winshuttle\TRANSACTION\Data\Copy of Abs-ldcvb.xlsx" ' Call the Run Function to start uploading data AddinObject.Run Exit Sub ErrHandler: MsgBox Err.Description End Sub 在……的最后
strShuttleFile =“C：\ Users \ 310274697 \ Documents \ WinShuttle \ TRANSACTION \ TRANSACTION脚本\创build材质脚本\ 2017.11.21 ZMM01U创build材质BR9V.txr”AddinObject.OpenShuttleFile（strShuttleFile）
“（strShuttleFile）”不应该在那里。 消除了这个错误。
现在我看到“无效的程序调用或参数”，所以我打算再花几个小时来弄清楚这意味着什么。