0

这是我的第一个 vb 代码。除了它的名字，我对 vb 一无所知。甚至不知道dim是用来在vb中声明变量的！！！请帮助我创建批处理..

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

必须根据平面文件中的“id”字段将值导入到各个列中。平面文件中具有相同 ID 的所有行都将导入到一张 Excel 表中。此 Excel 表将作为邮件附件发送。邮件收件人必须阅读excel，使用下拉列表输入评论（excel中的一列），保存并单击按钮（Forward To XYZ）将excel表发送给最终收件人（xyz@gmail.com）并保存评论。使用 vb.net 创建 excel 表、按钮和宏以在按钮单击时发送邮件。请指定导入的命名空间（在 VS 2008 中）

将此视为平面文件数据： 

美国广播公司 cdsmdjn 1 337666746     
def odkiejr 1 234585780   
吉 kdjfjfn 1 287474675   
jkl nfjjwke 2 455767875  
mno jfhfiee 3 039484764

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

4

1 回答 1

0

这是我拥有的一些简单的 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
于 2012-10-09T21:32:24.693 回答