如何使用宏或java在excel中下载同名的嵌入文件？

我有一张excel表格，其中包含100多个嵌入式文档、表格、演示文稿和图像

有人能帮我用一些指针（宏代码或java代码）下载所有同名的嵌入文件并将它们保存在本地驱动器文件夹中吗

找到此代码，但它与outlook兼容，但需要与excel类似：

公共子saveAttachtoDisk（itm作为Outlook.MailItem）
Dim objAtt作为Outlook。附件
将文件夹设置为字符串
尺寸dt30daysAgo作为日期
dt30daysAgo=DateAdd（“d”、-30，现在）
saveFolder=“c:\My\temp”
对于itm.附件中的每个objAtt
如果itm.ReceivedTime>dt30daysAgo，则
如果objAtt.FileName为“list.csv”，则
objAtt.SaveAsFile saveFolder&“\”&objAtt.FileName
其他的
objAtt.SaveAsFile saveFolder&“\”&itm.Subject&objAtt.FileName
如果结束
如果结束
下一个
端接头

不幸的是，outlook代码与excel的模型非常不相关，因此它也可能是用一种外来语言编写的：（嵌入式对象是否命名？@QHarr是嵌入式对象的命名方式。以下是：