代码如下: Dim im as Image=Image.FromFile (“C:/picture.bmp”) ‘获得Image System.Windows.Forms.Clipboard.SetDataObject(im, True) ‘复制到剪贴板 Dim xlApp As Excel.Application = New Excel.Application() Dim xlBook As Excel.Workbook Dim xlSheet As Excel.Worksheet xlBook
