vba save as 問題

本人想清楚你既要求 :
1.假設Excel中有range - A1和B1資料
2.你想在D盤中,自動生成Folder-A1和Folder-B1
3.再把Excel自動另存在 Folder-A1中的A1.xls. 及 Folder-B1中的B1.xls

操作
1. 在Excel中,建立 VBA 按鍵
2. ALT+F11打開vba介面
3. 把以下代碼copy入去即可實現你既要求:

代碼如下: ----------------------

Private Sub CommandButton1_Click()
'判斷是否開新Folder
Dim i As Integer
Set NewFolder = CreateObject("Scripting.FileSystemObject")
For i = 1 To 2
If NewFolder.folderExists("D:\" & Cells(1, i)) = False Then
MkDir "D:\" & Cells(1, i)
End If
Next i'執行另存文件
Dim aa, bb As String
aa = Range("A1").Value
bb = Range("B1").Value
SaveAs Filename:="D:\" & aa & "\" & aa & ".xls"
SaveAs Filename:="D:\" & bb & "\" & bb & ".xls"
End Sub