VB代码创建Excel工作表，向其添加按钮并分配宏以发送邮件

Question

这是我的第一个vb代码。除了vb的名字外，什么都不知道。 甚至不知道dim是用来在vb中声明变量的！！！ 请帮助我创建批处理流程。

我需要创建一个批处理过程，该过程创建一个Excel工作表，将值从平面导入Excel工作表并作为附件发送到电子邮件中。 Excel工作表还应具有一个命令按钮，用于将邮件发送给最终收件人（xyz@gmail.com）。

根据平面文件中的“ id”字段，必须将值导入到不同的列中。 平面文件中存在的具有相同ID的所有行都将导入到一张excel工作表中。 该excel表格将作为附件发送到邮件中。 邮件收件人必须阅读excel，使用下拉列表添加注释（excel中的列），保存并单击按钮（转发至XYZ），将excel表连同保存的内容一起发送给最终收件人（xyz@gmail.com）评论。 使用vb.net创建Excel工作表，按钮，然后创建在单击按钮时发送邮件的宏。 请指定导入的名称空间（在VS 2008中）

将此视为平面文件数据：

abc  cdsmdjn 1 337666746     
def  odkiejr 1 234585780   
ghi  kdjfjfn 1 287474675   
jkl  nfjjwke 2 455767875  
mno  jfhfiee 3 039484764

值必须使用第三列分隔。 因此，前三行放在一个excel工作簿中，第二行在第二工作簿中，第五行在第三本书中。

Answer 1

这是我使用的一些简单的VBA代码，该代码创建带有分配的宏的按钮。 可以轻松地修改此代码以在VB.net中工作。 希望能帮助到你。

Sub CreateButton()

    Dim btn As button

    'create the button in the active sheet.
    'The 4 arguments are left, top, width and height --- i chose to base them off of cellular dimensions
    Set btn = ActiveSheet.Buttons.Add( _
        ActiveSheet.Columns(2).Left, _
        ActiveSheet.Rows(2).Top, _
        ActiveSheet.Columns(2).Width * 2, _
        ActiveSheet.Rows(1).Height * 2)

    'this is where you assing a macro to the btn
    btn.OnAction = "ShowMessageBox"

    'add a caption
    btn.Text = "Click Me"

    Set btn = Nothing

End Sub

Sub ShowMessageBox()

    MsgBox "Hello"

End Sub