求问各位大神 vba代码怎样批量创建文件夹并在创建的文件夹里创建文档

飞天篮球猪 · 发表于 2023-12-21 11:27

供参考...集算器

limonet · 发表于 2024-5-20 21:53

关键字： { 'begin' }+ { 'end' }

limonet · 发表于 2024-5-20 21:54

Sub limonet()
Dim Ws As Object
Set Ws = CreateObject("wscript.shell")
Ws.CurrentDirectory = ThisWorkbook.Path
Ws.Run "PowerShell '一','二','三','四','五','六','七' | foreach { 'begin' } {md $_} { $j=1 } { $k=$j+$k} " _
& "{ForEach ($i in (1..5)) {new-item ('.\'+$_+'\'+$k+'.{0}' -f $i+'.txt')}} { 'end' }", 0
End Sub

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

[求助] 求问各位大神 vba代码怎样批量创建文件夹并在创建的文件夹里创建文档

评分