vb.net操作xls文件，并向其中加入图片

Public Function InsertPicture() As String

Dim oExcel As New Microsoft.Office.Interop.Excel.Application

Dim obook As Microsoft.Office.Interop.Excel.Workbooks

Dim oSheet As Microsoft.Office.Interop.Excel.Sheets

Dim miss As System.Reflection.Missing

miss = System.Reflection.Missing.Value

oExcel.Visible = True

oExcel.DisplayAlerts = False

obook = oExcel.Workbooks.Open("c:\aa.xls", miss, miss, miss, miss, miss, miss, miss, miss, miss, miss, miss, miss, miss, miss)

oSheet = obook.Item(1).ActiveSheet.Pictures.Insert("c:\aa.jpg").Select()

Return ""

End Function