[已解决]请问如何用VBA，将A列带有的图片名称，从“图纸”文件夹里，复制到工作薄所在的文...

新一

请问如何用VBA，将A列带有的图片名称，从“图纸”文件夹里，复制到工作薄所在的文件夹内，谢谢，如附件

最佳答案

月排行榜 / 总排行榜

huang1314wei

2016-5-18 21:10

1. Sub test()
   
2.     Dim MyStr$, i%
   
3.     On Error Resume Next
   
4.     MyStr = ThisWorkbook.Path & ""
   
5.     Kill MyStr & "*.*"
   
6.     arr = Range("A1").CurrentRegion
   
7.     For i = 1 To UBound(arr)
   
8.         If Len(Dir(Left(MyStr, Len(MyStr) - 3) & arr(i, 1) & ".jpg")) <> 0 Then
   
9.             FileCopy Left(MyStr, Len(MyStr) - 3) & arr(i, 1) & ".jpg", MyStr & arr(i, 1) & ".jpg"
   
10.         End If
    
11.     Next
    
12. End Sub

复制代码

跳转到最佳答案楼层

huang1314wei

1. Sub test()
   
2.     Dim MyStr$, i%
   
3.     On Error Resume Next
   
4.     MyStr = ThisWorkbook.Path & ""
   
5.     Kill MyStr & "*.*"
   
6.     arr = Range("A1").CurrentRegion
   
7.     For i = 1 To UBound(arr)
   
8.         If Len(Dir(Left(MyStr, Len(MyStr) - 3) & arr(i, 1) & ".jpg")) <> 0 Then
   
9.             FileCopy Left(MyStr, Len(MyStr) - 3) & arr(i, 1) & ".jpg", MyStr & arr(i, 1) & ".jpg"
   
10.         End If
    
11.     Next
    
12. End Sub

复制代码

新一

{:011:}谢谢

新一

huang1314wei 发表于 2016-5-18 21:10

大侠，可以用VBA实现这种效果吗？谢谢。http://www.excelpx.com/thread-417958-1-1.html