excel - 单击用户窗体上的按钮(调用按钮单击事件)

Question

我正在尝试使用另一个简单的宏自动化将 Excel 表转换为 LaTeX 源代码的宏。基本上我不想使用用户表单，所以我试图调用我想要的所需输出的按钮单击，但我遇到了问题。

它是 ctan.org 上的 Excel2Latex 宏

Userform here

Project layout here

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

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

我想要的按钮后面的代码是 Private Sub

Private Sub cmdSave_Click()
  SaveConversionResultToFile mModel
  Hide
End Sub

当我尝试调用 cmdSave_Click 子时，它返回运行时错误 91、对象变量或未设置 block 变量。我也尝试将 sub 设置为 Public。

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

有什么建议么？

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 的问题。

Answer 1

只需调用控件事件。

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