请大神帮忙优化代码

YY风云

问题
1、建立子文件夹，添加数据后保存，又会在同位置新建同名字子文件夹。
2、上传一个数据链接，表格上这一行所有数据都会显示链接。
3、能否把JGP格式，改为任何格式可上传或任意图片格式。
谢谢

ykcbf1100

附件供参考。。。

如果带链接的那部分数据是真实的（现在是自动生成的），那任何图片格式应该都行的。

ykcbf1100

参与一下。。。

1. Sub ykcbf()   '//2024.3.22
   
2.     p = "d:\管理"
   
3.     Sheets("管理表").Activate
   
4.     r = Cells(Rows.Count, 3).End(3).Row
   
5.     arr = [a1].Resize(r, 10)
   
6.     For i = 5 To UBound(arr)
   
7.         p1 = p & Format(arr(i, 3), "000") & arr(i, 4) & ""
   
8.         If Dir(p1, vbDirectory) = "" Then MkDir p1
   
9.         For j = 5 To UBound(arr, 2)
   
10.             f = p1 & arr(4, j) & ".jpg"
    
11.             Cells(i, j) = f
    
12.             ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, j), Address:=f
    
13.         Next
    
14.     Next
    
15.     MsgBox "OK！"
    
16. End Sub
    

复制代码

YY风云

麻烦大神在看看，问题依然存在。我上传几个附件，表上就显示几个附件，如图3

YY风云

自己顶下，请老师们帮忙优化下代码