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