[已解决]求助：模拟插入对话框：把插入图片对话框的“插入”功能改成“”复制功能

事后诸葛亮

hwc2ycy 发表于 2013-5-2 12:38

谢谢你帮我解决。


怎样用VBA代码 提取“照片1.jpg”中的照片名“照片1”(不要.jpg扩展名。)
如果扩展名不一定是.jpg，也有可能是其他的呢？怎样提取。谢谢。

hwc2ycy

            DstFile = Mid(srcFile, InStrRev(srcFile, "\") + 1)
            DstFile = Left(DstFile, InStrRev(DstFile, ".") - 1) & "-复制" & Mid(DstFile, InStrRev(DstFile, "."))

hwc2ycy

想省事的方法就用split函数，不过如果碰到a.b.jpg这种类似的文件名或文件夹中带.的话，就会出错了。

事后诸葛亮

hwc2ycy 发表于 2013-5-2 12:38

对了，
在本代码中，打开的对话框，能否 首先默认一个路径 比如说“D:\照片集锦\”
谢谢了。

会了，不用回答了，谢谢 给了我很大的启发

  .InitialFileName = ThisWorkbook.Path & "\"

hwc2ycy

不错，已经会自己找答案了。