如何将图片导入到EXCEL中,如何将数据导入到EXCEL模板----在线等

将图片导入到EXCEL指定的模板中,一个产品有一个图片.并自动适应单元格大小.
对EXCEL模板能够像报表一个,在每一页显示页头页尾(显示共几页,第几页),将外部数据添入.

14 个解决方案

#1

先在 Excel 中用记录宏的方式手动做一遍，然后将宏代码复制到 VB 中，一般稍加修改就可以使用。

#2

顶，我也想知道，怎样把图片放在excel中去

#3

我用的是ACTIVEREPORT报表,能直接将图片保存到里面吗?

#4

ACTIVEREPORT本身就有導出為Excel的功能，包括圖片在內

        Dim xls As ARExportExcel
        Set xls = New ARExportExcel
        xls.FileName = txtFilename(3).Text
        
        Select Case cboXLSVersion.ListIndex
        Case 0: xls.Version = 2
        Case 1: xls.Version = 3
        Case 2: xls.Version = 4
        Case 3: xls.Version = 5
        Case 4: xls.Version = 7
        Case 5: xls.Version = 8
        End Select
        xls.AutoRowHeight = (chkXLSAutoRowHeight.Value = 1)
        xls.BorderSpace = Val(txtXLSBorderSpace.Text)
        xls.DoubleBoundaries = (chkXLSDoubleBoundaries.Value = 1)
        xls.GenPagebreaks = (chkXLSGenPageBreaks.Value = 1)
        xls.MinColumnWidth = Val(txtXLSMinColWidth.Text)
        xls.MinRowHeight = Val(txtXLSMinRowHeight.Text)
        xls.MultiSheet = (chkXLSMultisheet.Value = 1)
        xls.ShowMarginSpace = (chkXLSShowMarginSpace.Value = 1)
        xls.TrimEmptySpace = (chkXLSTrimEmptySpace.Value = 1)
        xls.Export Pages
        Set xls = Nothing
以上是一段ActiveReport導出為Excel的代碼，沒經過整理，自己好好研究一下

#5

楼上的,以上导出来的格式用户说不漂亮,所以自己写代码.

#6

??

#7

留意一下

#8

ActiveSheet.Pictures.Insert("E:\04_我的图片\me\二存照.jpg").Select
    Selection.ShapeRange.IncrementLeft 66#
    Selection.ShapeRange.IncrementTop 33.75
    Selection.ShapeRange.IncrementLeft -4.5
    Selection.ShapeRange.IncrementTop -21#

#9

WAITING......

#10

如何读取ACTIVEREPORT中图片的属性传给EXCEL文件中

#11

ActiveSheet.Pictures.Insert("E:\04_我的图片\me\二存照.jpg").Select
    Selection.ShapeRange.IncrementLeft 66#
    Selection.ShapeRange.IncrementTop 33.75
    Selection.ShapeRange.IncrementLeft -4.5
    Selection.ShapeRange.IncrementTop -21#

什么意思......

#12

SavePicture Form6.Image1.Picture, App.Path & "\AA.BMP"　'这里可以是保存好的文件也可以是从控件中读取。

'    Set MyDocument = Worksheets(1)
    Set MyDocument = ExPro.Worksheets(1)　'打开表
    MyDocument.Shapes.AddPicture App.Path & "\AA.bmp", True, True, 0, 0, 80, 30
    Kill (App.Path & "\AA.bmp") '删除临时文件

以下是将图片文件放到合适的位置上，如果不懂可以参考EXCEL－＞Help
    MyDocument.Shapes.AddPicture App.Path & "\AA.bmp", True, True, 0, 0, 80, 30

希望对你有帮助！

#13

我又看了一遍你的问题，你说的这些功能不是一段代码可以完成的，你需要把你的问题分个解决，你所说的只是需要实现的功能是这样的。我可以很负责任的告诉你，没有人会给你现成的代码。告诉你的都是方法。

可能你不爱听，但我还是得要分！　嘿嘿！

#14

图片问题解决了,但是从ADO记录导入数据到EXCEL模板文件,有几个单元格没有数据,不知道是什么原因.在程序中跟踪了一下里面是有数据的,但是到EXCEL模板文件中后没有.查原因有些是单元格合并引起的,但是没有合并的单元格也存在,不知道是什么原因,如何解决?