標題: [發問] 如何製作VBA存檔鈕? [打印本頁]

---

作者: 麥香猴    時間: 2016-2-10 23:05     標題: 如何製作VBA存檔鈕?

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

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

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

---

作者: 准提部林    時間: 2016-2-14 16:25

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

---

作者: 麥香猴    時間: 2016-2-21 22:12

回復 2# 准提部林


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

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

---

作者: 麥香猴    時間: 2016-2-21 22:39

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

---

作者: lpk187    時間: 2016-2-22 09:50

回復 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"

---

作者: 麥香猴    時間: 2016-2-22 22:02

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

---

作者: 麥香猴    時間: 2016-2-24 22:59

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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)