返回列表 上一主題 發帖

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

麥香猴

帖子
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的動作寫在同一個按鈕裡面嗎?

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

准提部林

帖子
2833 
主題
10 
精華
0 
積分
2889 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-11-17 
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

麥香猴

帖子
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

麥香猴

帖子
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

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

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

麥香猴

帖子
5 
主題
1 
精華
0 
積分
7 
點名
0  
作業系統
WIN 7 64 
軟體版本
office 2013 
閱讀權限
10 
註冊時間
2016-2-10 
最後登錄
2019-8-14 
6#
發表於 2016-2-22 22:02 | 只看該作者
那如果是另存新檔要換位子要怎麼寫?

TOP

麥香猴

帖子
5 
主題
1 
精華
0 
積分
7 
點名
0  
作業系統
WIN 7 64 
軟體版本
office 2013 
閱讀權限
10 
註冊時間
2016-2-10 
最後登錄
2019-8-14 
7#
發表於 2016-2-24 22:59 | 只看該作者
而且存檔一次後就不能用了

TOP

        靜思自在 : 對父母要知恩，感恩、報恩。
返回列表 上一主題