怎么将图片导入到EXCEL中,怎么将数据导入到EXCEL模板-
如何将图片导入到EXCEL中,如何将数据导入到EXCEL模板----在线等
将图片导入到EXCEL指定的模板中,一个产品有一个图片.并自动适应单元格大小.
对EXCEL模板能够像报表一个,在每一页显示页头页尾(显示共几页,第几页),将外部数据添入.
------解决方案--------------------
先在 Excel 中用记录宏的方式手动做一遍，然后将宏代码复制到 VB 中，一般稍加修改就可以使用。
------解决方案--------------------
顶，我也想知道，怎样把图片放在excel中去
------解决方案--------------------
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的代碼，沒經過整理，自己好好研究一下
------解决方案--------------------
留意一下
------解决方案--------------------
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#
------解决方案--------------------
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
希望对你有帮助！
------解决方案--------------------
我又看了一遍你的问题，你说的这些功能不是一段代码可以完成的，你需要把你的问题分个解决，你所说的只是需要实现的功能是这样的。我可以很负责任的告诉你，没有人会给你现成的代码。告诉你的都是方法。
可能你不爱听，但我还是得要分！ 嘿嘿！
将图片导入到EXCEL指定的模板中,一个产品有一个图片.并自动适应单元格大小.
对EXCEL模板能够像报表一个,在每一页显示页头页尾(显示共几页,第几页),将外部数据添入.
------解决方案--------------------
先在 Excel 中用记录宏的方式手动做一遍，然后将宏代码复制到 VB 中，一般稍加修改就可以使用。
------解决方案--------------------
顶，我也想知道，怎样把图片放在excel中去
------解决方案--------------------
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的代碼，沒經過整理，自己好好研究一下
------解决方案--------------------
留意一下
------解决方案--------------------
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#
------解决方案--------------------
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
希望对你有帮助！
------解决方案--------------------
我又看了一遍你的问题，你说的这些功能不是一段代码可以完成的，你需要把你的问题分个解决，你所说的只是需要实现的功能是这样的。我可以很负责任的告诉你，没有人会给你现成的代码。告诉你的都是方法。
可能你不爱听，但我还是得要分！ 嘿嘿！