[發問] 如何製作VBA存檔鈕?

麥香猴

請問大大們VBA要如何寫指定儲存格當檔名然後複製特定工作表出來存檔:dizzy:

能讓這三個VBA的動作寫在同一個按鈕裡面嗎?

順序的話應該是先複製特定工作表出來再指定儲存格當檔案名稱(含路徑在內)之後再存檔

准提部林

Sub TEST()
Dim uP$, FileN$
uP = ThisWorkbook.Path & "\" '存檔路徑
FileN = [A1] & ".xls" '檔案名稱(含副檔名)
Application.DisplayAlerts = False
Sheets("Sheet1").Copy '指定工作表
With ActiveWorkbook
　　　.SaveAs uP & FileN
　　　.Close
End With
End Sub

麥香猴

回復 2# 准提部林


    謝謝前輩~~小弟我現在試做看看

因為小弟我腦袋不太會變通程式碼所以自己很難寫出來

麥香猴

.SaveAs uP & FileN<<前面副檔名的部分改成xltx這裡就不能運作了
想請問這一段是什麼意思?

lpk187

回復 4# 麥香猴

.SaveAs=為另存檔案

uP和FileN是變數名稱，而up代表路徑，FileN為檔案名稱

而准大的程式碼 uP = ThisWorkbook.Path ==>意思是目前程式檔案所在的路徑，在這裡我們先假設為 "D:\"
   
FileN = [A1] & ".xls"==>是A1儲存格的值為檔案名稱，這裡先假設為 "AAA"

& 是結文字連結符號，是將AAA連結副檔名.xls 結果會是 "AAA.xls"

同理
.SaveAs uP & FileN的意思為=>另存檔案名稱為 "D:\AAA.xls" 的意思

另外活頁簿副檔案不可為".xltx" 應該是 ".xlsx"

麥香猴

那如果是另存新檔要換位子要怎麼寫?

麥香猴

而且存檔一次後就不能用了