单击用户窗体上的button（调用button单击事件）

我试图自动化一个macros，将Excel表转换成LaTeX源代码与另一个简单的macros。 基本上我不想使用用户窗体，所以我试图调用所需的输出button点击我想要的，但我有问题。

它是ctan.org上的Excel2Latexmacros

用户在这里

项目布局在这里

这里是主要的sub，你可以看到我的评论部分是我寻求帮助后一直尝试的所有不同的东西。 

Sub latex() With NewController Set .View = NewView Set .Model = NewDefaultModel Set .Storage = NewStorage .Run Application.Wait Now + TimeValue("00:00:02") frmConvert.cmdSave.Object.Value = True 'UserForm2.CommandButton1.Object.Value = True 'frmConvert!cmdSave.SetFocus 'SendKeys "{Enter}" 'Call frmConvert.cmdCopy_Click 'Call frmConvert.cmdSv 'Call frmConvert.cmdCopy_Click 'Call Memento.SaveConversionResultToFile 'Application.Wait Now + TimeValue("00:00:03") 'Application.Run "frmConvert.cmdCopy_Click", txtResult 'frmConvert.cmdCopy = True 'frmConvert.cmdCopy = vbClick 'frm 'Application.Run frmConvert.cmdSave 'Call frmConvert.cmdCopy_Click 'frmConvert.cmdSave = vbClick End With End Sub

我想要的button背后的代码是一个私人小组 

 Private Sub cmdSave_Click() SaveConversionResultToFile mModel Hide End Sub

当我尝试调用cmdSave_Click子项时，它将返回运行时错误91，对象variables或未设置块variables。 我已经尝试将该子设置为Public。

到目前为止，我运气最好的是激活复制到用户窗体上的剪贴板button，但它只复制用户窗体中的默认文本，而不是在窗口中生成的LaTeX表。

有什么build议么？ 

 Public Sub SaveConversionResultToFile(ByVal pModel As IModel) Dim sFileName As String sFileName = pModel.AbsoluteFileName If sFileName = "" Then Exit Sub Open sFileName For Output As 1 Print #1, pModel.GetConversionResult; Close #1 End Sub

我在sFileName = pModel.AbsoluteFileName行中引用了关于MatthewD问题的错误。

只需调用控件事件。 

 Sub latex() With NewController Set .View = NewView Set .Model = NewDefaultModel Set .Storage = NewStorage .Run Application.Wait Now + TimeValue("00:00:02") cmdCopy_Click cmdSave_Click End With End Sub
Interesting Posts