Excel|根据工作表名称自动创建文件夹|工作表,文件夹

1. Private Sub CommandButton1_Click()
   
2.     Dim result As String
   
3.     Dim SheetName As String
   
4.     For i = 1 To Worksheets.Count    '循环
   
5.         SheetName = ""
   
6.         SheetName = "f:\123\"
   
7.         SheetName = SheetName & Trim(Worksheets(i).Name)
   
8.         result = Dir(SheetName, vbDirectory)
   
9.         If result = "" Then
   
10.             MkDir (SheetName)
    
11.         Else
    
12.             MsgBox "该文件夹已经存在！"
    
13.         End If
    
14.     Next
    
15. End Sub