close
標題:
vba save as 問題
發問:
想用vba自動開一個new folder folder名是range a1 和range b1 比如說是d:\xx 之後將xecel 放在d:\xx內 xecel名字也是range a1和range b1 因不太識vba請長細說明...多謝
本人想清楚你既要求 : 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
其他解答:
vba save as 問題
發問:
想用vba自動開一個new folder folder名是range a1 和range b1 比如說是d:\xx 之後將xecel 放在d:\xx內 xecel名字也是range a1和range b1 因不太識vba請長細說明...多謝
此文章來自奇摩知識+如有不便請留言告知
最佳解答:本人想清楚你既要求 : 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
其他解答:
文章標籤
全站熱搜
留言列表
