返回列表下一主題上一主題發帖

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

麥香猴

小學生 Rank: 1

帖子: 5
主題: 1
精華: 0
積分: 7
點名: 0
作業系統: WIN 7 64
軟體版本: office 2013
閱讀權限: 10
註冊時間: 2016-2-10
最後登錄: 2019-8-14

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2016-2-10 23:05 | 只看該作者

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

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

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

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

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2798
主題: 10
精華: 0
積分: 2854
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-4-15

2^#

發表於 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

TOP

麥香猴

小學生 Rank: 1

帖子: 5
主題: 1
精華: 0
積分: 7
點名: 0
作業系統: WIN 7 64
軟體版本: office 2013
閱讀權限: 10
註冊時間: 2016-2-10
最後登錄: 2019-8-14

3^#

發表於 2016-2-21 22:12 | 只看該作者

回復 2# 准提部林

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

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

TOP

麥香猴

小學生 Rank: 1

帖子: 5
主題: 1
精華: 0
積分: 7
點名: 0
作業系統: WIN 7 64
軟體版本: office 2013
閱讀權限: 10
註冊時間: 2016-2-10
最後登錄: 2019-8-14

4^#

發表於 2016-2-21 22:39 | 只看該作者

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

TOP

lpk187

高中生 Rank: 3 Rank: 3

帖子: 552
主題: 3
精華: 0
積分: 578
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2015-2-8
最後登錄: 2024-2-26

2016猴年全勤獎章 2015羊年全勤獎章熱烈參與勳章

5^#

發表於 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"

TOP

麥香猴