yongshiqq的博客

【代码】根据excel一列文本一一对应新建文件夹（excel vba实现）

方法如上图，运行即可。

二、将文件夹路径修改为你的文件夹路径，如下图：需要重命名的文件夹全部放入一个总文件夹内，只需复制这个总文件夹路径即可，本案例路径格式："D:\xxx\"如下图：加入我们有3个文件夹，需要将3个文件夹内所有文件名改为与所在文件夹名一致，打开excel, alt +F11快捷键打开代码编辑窗口。（注意：英文状态下双引号“ ”和结尾的 \ ）批量文件、文件夹操作、功能定制↓↓↓。可用excel vba 实现。一、打开此xlsm文件。

工作中往往需要复制特定文件夹，例如，一个文件夹中有100个文件夹，我只需要复制其中50个文件夹，这50个文件夹的名字放入excel表中第一列，从第二行开始（注意：第一行的表头不能覆盖），运行宏即可一键完成。代码代写，可点击下方联系 ↓。上图可知，我们已成功复制。

批量创建文件名为1-10的文件夹，每个文件夹内有个与文件名相同的txt文件，txt文件内的数字也跟文件名相同。

【代码】vba计算逆矩阵。

ActiveWindow.DisplayZeros = False ''不显示零值。√去掉则数字格式0不再显示。Sub 去除excel中零值()

由此可见，智能提取汉字与数字混合中的数字方法。CTRL+E 智能复制。ctrl+d 批量复制。转换为数字即可相乘。

excelvba可实现调用cad应用程序，并通过excel内置api弹窗实现打开、另存CAD。另附excel文件可参考。

【代码】Excel_VBA实现：弹出对话框进行打开另存。

当txt文本文件字数比较多时，读写很不方便，这时我们可借助以下excel vba代码实现txt文件的分割，分割后每个文件的字数及总文件的路径及全名只需在代码中替换即可。本文附有xlsm文件可供下载参考使用。

本案例可将指定路径下所有txt格式文件合并为一个txt格式总文件，开发环境为vba，代码如下：（用户需将路径改为txt文件所在路径）

excel表格中有时会有特殊需求的单元格文本替换，比如把"林地K"替换为"可调整林地"，为避免重复工作量，可用vba代码实现。