如何利用VBA进行文件的分发

一把小刀闯天下

EXCEL渣渣 发表于 2019-10-17 20:04
放心，病人生命所托，岂敢儿戏。

是的，这行业压力大，了解一些。如果以后有类似的问题可留言给你修改，，，

EXCEL渣渣

一把小刀闯天下 发表于 2019-10-17 20:11
是的，这行业压力大，了解一些。如果以后有类似的问题可留言给你修改，，，

我不希望给你改，我希望可以自己有能力去修改。

EXCEL渣渣

一把小刀闯天下 发表于 2019-10-17 20:11
是的，这行业压力大，了解一些。如果以后有类似的问题可留言给你修改，，，

如果还要修改的话，我想改的是如F0012-1910017这类的。
FOO12=绷带，放在其他文件夹绷带文件夹下吗？

一把小刀闯天下

EXCEL渣渣 发表于 2019-10-17 21:31
如果还要修改的话，我想改的是如F0012-1910017这类的。
FOO12=绷带，放在其他文件夹绷带文件夹下吗？

'规则加入工作表即可，黄色的，，，

----

EXCEL渣渣

一把小刀闯天下 发表于 2019-10-17 21:40
'规则加入工作表即可，黄色的，，，

----

可以了，谢谢你了

blackttea1

谢谢分享！

ghexcel

一把小刀闯天下 发表于 2019-10-17 18:27
'26楼附件，，，

Option Explicit

If Len(pth & "分发库") = 0 Then MsgBox "!": Exit Sub
  If Not getfilename(filename, pth & "分发库", ".pdf") Then MsgBox "!!": Exit Sub

请孝老师这两句里的MsgBox "!"和MsgBox "!!"里的叹号是什么意思？

一把小刀闯天下

ghexcel 发表于 2019-10-18 14:34
If Len(pth & "分发库") = 0 Then MsgBox "!": Exit Sub
  If Not getfilename(filename, pth & "分发 ...

没有用，只是提示用，我懒得写文字说明而已：

第一个的意思为当前目录下没有"分发库"这个目录，也就是无法再继续下去直接退出sub
第二个的意思是指"分发库"目录下没有pdf类型的文件，接下来没什么事可干了，于是也是退出sub

ghexcel

一把小刀闯天下 发表于 2019-10-18 14:48
没有用，只是提示用，我懒得写文字说明而已：

第一个的意思为当前目录下没有"分发库"这个目录，也就是 ...

可能是我没表达清楚，我是说"!"和"!!"在这里是代表什么？？

一把小刀闯天下

ghexcel 发表于 2019-10-18 14:52
可能是我没表达清楚，我是说"!"和"!!"在这里是代表什么？？

只是作提示用，你把消息框表达式删除也没有关系的，就是直接退出sub，但并不建议这样做，有异常要及时弹出提示，，，