[已解决]请问一个自动建立多个文件夹问题,谢谢!

sx001 · 发表于 2009-12-10 11:44

各位老师:
我想在同一文件夹下,用宏依次自动建立“我”、“爱”、“电子”、“表格”、“EXCEL”5个文件夹,这个宏如何写呢,谢谢!

最佳答案

雨狐

2009-12-10 12:35

e0v6IqRM.rar (7.52 KB, 下载次数: 43)

liry-112 · 发表于 2009-12-10 11:55

学习

wsfsy · 发表于 2009-12-10 12:32

Sub Folder()
On Error Resume Next
MkDir ThisWorkbook.Path & "\我"

MkDir ThisWorkbook.Path & "\爱"

。。。。。
End Sub

雨狐 · 发表于 2009-12-10 12:35

e0v6IqRM.rar (7.52 KB, 下载次数: 43)

和气生财 · 发表于 2009-12-10 12:44

看看雨狐的，，，哈哈

Public Sub crreate_dir()
Dim fs, arr(), i

arr = Array("wo", "ai", "dianzi", "biaoge")
Set fs = CreateObject("scripting.filesystemobject")

For i = 0 To UBound(arr)
fs.createfolder (ThisWorkbook.Path & "\" & arr(i))
Next

End Sub

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