求一键备份宏

Allate

' ******************************************************************************
' 快速打包.swp - By Allate, 2021-12-28
' 说明：
' 1. 大部分代码源自VBA帮助文档Pack and Go an Assembly (VBA)
' 2. 默认打包到同一目录下的“打包”文件夹中（自动新建），也可以另外设定统一目录。
' 3. 代码的注释中，包含目录输入提示框，有需要的可以解除注释。
' 4. 如果打包的目录中已经有相应文件时，删除对应文件再打包（相当于覆盖文件）。
' ******************************************************************************

宏文件：
快速打包_2022-02-08.zip (7.85 KB, 下载次数: 72, 售价: 20 金币)

2022-2-8 19:40 上传

点击文件名下载附件
售价: 20 金币  [记录]
下载积分: 金币 -1

2022-02-08更新，把所有字母转为大写

Allate

david82 发表于 2022-1-27 22:17
大神，保存后名字变小写了，能帮忙改下吗，谢谢

你可以重新下载附件，我更改为全大写了，得空再弄一个保持原有大小写的。

Allate

' ******************************************************************************
' 快速打包.swp - By Allate, 2022-02-10
' 说明：
' 1. 大部分代码源自VBA帮助文档Pack and Go an Assembly (VBA)
' 2. 默认打包到同一目录下的“打包”文件夹中（自动新建），也可以另外设定统一目录。
' 3. 代码的注释中，包含目录输入提示框，有需要的可以解除注释。
' 4. 如果打包的目录中已经有相应文件时，删除对应文件再打包（相当于覆盖文件）。
' 5. 保持打包前后文件名的大小写状态。
' ******************************************************************************


宏文件：
快速打包_2024-02-03.zip (13.6 KB, 下载次数: 180, 售价: 20 金币)

2024-2-3 16:35 上传

点击文件名下载附件
售价: 20 金币  [记录]
下载积分: 金币 -1

Allate

sunsu168 发表于 2023-12-26 16:10
A大 ，可否改一版 ，只打包选中零件（带图） （ 支持多选）。  这样能比去文件夹搜索复制高效

理论上可以做到的，有空再弄

Allate

   经典案例图书

Kerwin1314 发表于 2024-3-30 08:33
老大，把选择位置弄出来会报错，是改的不对吗？

位置最后那里少了个“\”，你需要加一个判断，或者自己每次写的时候就加上这个符号