这个批量建文件夹的宏应该怎么写？

go419hcl · 发表于 2024-6-19 17:35

请教大佬，这个宏应该怎么写，谢谢！

杨建营 · 发表于 2024-6-19 17:47

Sub mkfold()
Dim arr, fold1, fold2, i&
Application.ScreenUpdating = False
arr = [a1].CurrentRegion
fold1 = InputBox("请输入路径：", "新建文件夹", "d:\新建店铺")
If Dir(fold1, vbDirectory) = "" Then MkDir fold1
If Right(fold1, 1) <> "" Then fold1 = fold1 & ""
For i = 2 To UBound(arr)
fold2 = fold1 & arr(i, 2)
If Dir(fold2, vbDirectory) = "" Then MkDir fold2
Next
Application.ScreenUpdating = True
End Sub

复制代码

请楼主参考。

杨建营 · 发表于 2024-6-19 17:48

代码审核中。。。

cidanji · 发表于 2024-6-19 17:51

limonet · 发表于 2024-6-19 18:42

算了，不会OCR，没办法创造条件为楼主解决问题。

ykcbf1100 · 发表于 2024-6-19 19:08

上传附件，很容易解决。
没附件就算了。

go419hcl · 发表于 2024-6-20 09:35

ykcbf1100 发表于 2024-6-19 19:08
上传附件，很容易解决。
没附件就算了。

Sorry，因为当时觉得文字也能描述清楚，就没有上传附件了。

ykcbf1100 · 发表于 2024-6-20 09:41

go419hcl 发表于 2024-6-20 09:35
Sorry，因为当时觉得文字也能描述清楚，就没有上传附件了。

你是觉得代码也用文字表达一下就行吗？
没有附件求助效果不好的。

go419hcl · 发表于 2024-6-20 10:22

杨建营发表于 2024-6-19 17:47
请楼主参考。

感谢！突然发现我的是wps版本，竟然不能直接使用vba。
如果通过批处理文件来进行新建，.bat文件能实现交互吗？

limonet · 发表于 2024-6-20 11:13

本帖最后由 limonet 于 2024-6-20 11:15 编辑

把下面的路径改成你的
开始——运行——powershell push-location 'C:\Users\limon\OneDrive\桌面\limonet';md '北京1店','北京2店','上海1店','上海3店','西安4店','成都3店'

		自动登录	找回密码
密码			免费注册

[求助] 这个批量建文件夹的宏应该怎么写？

评分

评分

评分

评分