Dim app As Application
app = New Application()
Dim workbooks As Excel.Workbooks = app.Workbooks
Dim workbook As _Workbook
workbook = workbooks.Add()
Dim sheets As Sheets
sheets = workbook.Worksheets
Dim worksheet As _Worksheet
worksheet = CType(sheets.Item(1), Worksheet)
range = worksheet.Range("A1")
range.Value2 = "aaaaaa"
这是向excel表中写数据
Dim value As AttachmentCollection
Dim mailmsg As New MailMessage
value = mailmsg.Attachments