VB输出到EXCEL的问题，应该是很简单的，请多多帮忙，认为分不够的可以再加，我多的是分

在程序中我有一个PictureBox控件，假设是Picture1，里头有一个图片，我想把它输出到Excel该如何处理？
输出到Excel部分都已经写好了，就是这个图片无法输出到Excel

我写的输出到Excel的部分类似如下

    strExcelFileName = App.Path & "\Book1.xlt"
    strSheet = "Sheet1"

    Set appExcel = CreateObject("Excel.Application")
    Set xl = appExcel.Application

    xl.Workbooks.Open strExcelFileName

    xl.Sheets(strSheet).Select
    Set ws = xl.ActiveSheet

    ws.Name = strSheet
    ws.Cells(1, 1).Select
    xl.Selection.CurrentRegion.Select

    ws.Cells(1, 1) =  ????          'Me.Picture1
   '-----------------------------------此处，该如何往各个Cell中填写东西？

    xl.Sheets(strSheet).Select
    Set ws = xl.ActiveSheet

    Set appExcel = Nothing
    Set xl = Nothing
    Set ws = Nothing
    Set objchart1 = Nothing

17 个解决方案

#1

我也很同情，普通的我也做过，图形的我没有做过

试试看以后再来

#2

论坛改了，我被降级了，只剩下一颗心了，好快哦

#3

ws.Cells(1, 1) = ???? 'Me.Picture1
'-----------------------------------此处，该如何往各个Cell中填写东

ws.Cells(1, 1).value="123123123"

'Me.Picture1 是不能这样得
你看到过它格子里有图吗？？？？？？？

#4

ActiveSheet.Pictures.Insert( _
"C:\a.bmp") _
.Select

#5

#6

to wxyq2000(wxyq)

好几天无法登陆这个论坛了

还是有点东西不明白。

我的图片底图是一个bmp图片，将其加载在PictureBox中之后，我会根据取得的某些数据画上一些图形，然后要把这个底图和所画上去的图形一起打印出来，这样我往Excel输入图形的时候就必须是PictureBox中的图形，这样该往某一个Excel格中输出的时候该如何输出？

我一直找不到VBA的书，所以查不到资料，没有办法，只能请教了

比如我想把PictureBox中的内容往Cell(10,10)输出，该如何写？

#7

怎么这么冷，我可是在南方的，这阵子我都睡不着

#8

ActiveSheet.Pictures.Insert( _
"C:\a.bmp") _
.Select

这个方法知识插入到Excel中，并不属于任何一个Cell，因此对我来说也就是无法定位了

#9

好像Excel插入的图片不能嵌入某一个单元格的，仔细看看吧

#10

我只是能输出数据到EXECL，怎么做啊？我不输出图片！！

#11

我是有一个需要套打的报表，比较复杂，而且随时会被用户改变，我想利用Excel建立模板的功能做套打，其中需要输出一张用数码相机拍摄的图片到指定位置。

在Excel模板中，我是用的是一个临时Sheet（假设SheetTemp）和一个打印的Sheet（假设SheetPrint）

SheetTemp中的数据填写的位置是固定的，我通过程序往其写数据

用户可以使用Excel的公式的功能把SheetTemp的数据连接到SheetPrint中的相对位置，同时调整SheetPrint的各个数据的位置以符合当前报表的需求

我的程序往SheetTemp中写数据，然后直接调用SheetPrint打印，这样就完成了套打的功能

同时，需要完成这样的功能，我就必须把图片也从SheetTemp中通过Excel连接到SheetPrint中，问题就出在这里了，我不知道怎么才能输出图片同时连接过来

#12

方法一
Range("J10").Select
ActiveSheet.Pictures.Insert("C:\a.bmp") .Select

#13

方法二
    Clipboard.SetData Picture1.Picture, vbCFBitmap

    Range("J10").Select
    ActiveSheet.PasteSpecial Format:="位图", Link:=False, DisplayAsIcon:=False

#14

谢谢大家，我在综合试试

#15

华表的execl读写控件

#16

只是用于一个小项目，东买西买就没有钱了

#17

华表的execl读写控件
建议提供开发者的免费版

#1