将图片导出到分类文件夹

386026398

将图片导出到分类文件夹，但图片没能根据编号进行命名并保存。求助高手完善一下程序

liulang0808

1. Sub daochutp()
   
2.   Dim nm$, myFolder$
   
3.   Dim n As Long
   
4.   Dim str As String
   
5. '  On Error Resume Next
   
6.   Application.ScreenUpdating = False
   
7.   n = Cells(2, 10).Value
   
8.   For Each shp In ActiveSheet.Shapes
   
9.     If shp.Type = 13 Then
   
10.       n = n + 46
    
11.       myFolder = ThisWorkbook.Path & "" & Cells(n + 1, 10).Value & ""
    
12.       If Len(Dir(myFolder, vbDirectory)) = 0 Then MkDir myFolder
    
13.       nm = Cells(n, 11).Value & ".jpg"
    
14.       shp.Copy
    
15.       With ActiveSheet.ChartObjects.Add(0, 0, shp.Width + 2, shp.Height + 2).Chart
    
16.         .Paste
    
17.         .Export myFolder & nm ' & ".jpg", "JPG"
    
18.         .Parent.Delete
    
19.       End With
    
20.     End If
    
21.   Next
    
22. End Sub

复制代码

liulang0808

http://club.excelhome.net/thread-1441877-1-1.html
这个链接，楼主可以参考下的

386026398

liulang0808 发表于 2019-10-4 07:48
http://club.excelhome.net/thread-1441877-1-1.html
这个链接，楼主可以参考下的

谢谢你，在你的建议下经改进后2007以上不版本没问题了。但在2003版本就导不出图片。麻烦指正一下。

386026398

liulang0808 发表于 2019-10-4 07:48
http://club.excelhome.net/thread-1441877-1-1.html
这个链接，楼主可以参考下的

在2003版本就导不出图片

386026398

在2003版本就导不出图片

liulang0808

03跟07都可以运行，楼主用心对比自己上传附件中03的代码吧

386026398

liulang0808 发表于 2019-10-4 14:43
03跟07都可以运行，楼主用心对比自己上传附件中03的代码吧

我这电脑在office2003下运行   .Export myFolder & nm  卡壳，无法运行。是什么原因引起的呢。

liulang0808

386026398 发表于 2019-10-4 15:02
我这电脑在office2003下运行   .Export myFolder & nm  卡壳，无法运行。是什么原因引起的呢。

楼主看看自己上传的附件 .xls那个附件的代码，没有问题吗？？？？？？

386026398

liulang0808 发表于 2019-10-4 15:15
楼主看看自己上传的附件 .xls那个附件的代码，没有问题吗？？？？？？

谢谢，我在其他电脑试了一下，装有office2003，另有免安装版的0ffice2007。试了一下没问题。估计是我这电脑里安装了office2010的问题