返回列表 上一主題 發帖

自動儲存並產生新的表單2

bear0925900003

帖子
55 
主題
17 
精華
0 
積分
79 
點名
0  
作業系統
XP 
軟體版本
office2007 
閱讀權限
20 
性別
男 
註冊時間
2013-7-17 
最後登錄
2020-12-31 
1# 跳轉到 »
發表於 2014-2-14 16:01 | 只看該作者

自動儲存並產生新的表單

目前有EXCEL表單一份及WORD表單一份，請問各位大大高手如何再按了EXCEL表單內的命令按鈕(按鈕名稱暫定為"儲存")後，WORD會以今日日期+序號(EX：103年2月14日儲存其檔名自動設為103年2月14日-1)自動儲存並產生新的WORD表單，小地不才還請各位大大賜教!!
你猜!!

TOP

bear0925900003

帖子
55 
主題
17 
精華
0 
積分
79 
點名
0  
作業系統
XP 
軟體版本
office2007 
閱讀權限
20 
性別
男 
註冊時間
2013-7-17 
最後登錄
2020-12-31 
2# 倒序看帖
打印
tT
發表於 2014-2-14 16:13 | 只看該作者

自動儲存並產生新的表單2

目前有EXCEL表單一份及WORD表單一份，請問各位大大高手
1.已於EXCEL表單內建立2命令按鈕"列印"及"儲存後結束"
2.如何再按了EXCEL表單內的"列印"命令按鈕後，WORD會自動列印3分
3.如何再按了EXCEL表單內的"儲存"命令按鈕後，WORD會以今日日期+序號(EX：103年2月14日儲存其檔名自動設為103年2月14日-1)自動儲存並產生新的WORD表單
PS：EXCEL與WORD為互動文件
小弟不才還請各位大大賜教!!
收藏 分享
你猜!!

zxcxz

帖子
34 
主題
14 
精華
0 
積分
61 
點名
0  
作業系統
Winxp 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
註冊時間
2014-1-25 
最後登錄
2019-3-4 
3#
發表於 2014-2-15 09:39 | 只看該作者
3.
  1. Sub Copy_One_File()
  2. ABC= -1 '序號
  3.     FileCopy "C:\excel\Template.docx", "C:\excel\" & Format(Now() , "YYYY年MM月DD日") & ABC & ".docx"
  4. End Sub
複製代碼

TOP

bear0925900003

帖子
55 
主題
17 
精華
0 
積分
79 
點名
0  
作業系統
XP 
軟體版本
office2007 
閱讀權限
20 
性別
男 
註冊時間
2013-7-17 
最後登錄
2020-12-31 
4#
發表於 2014-2-20 18:52 | 只看該作者
回復 3# zxcxz[/i
感謝賜較
你猜!!

TOP

        靜思自在 : 君子如水，隨方就圓，無處不自在。
返回列表 上一主題