返回列表 上一主題 發帖

[發問] 如何利用VBA記錄使用動作，並回傳資料至某路徑的特定檔案內。

RCRG
　暱稱: RCRG滾奶滾企

中學生Rank: 2

帖子
95 
主題
24 
精華
0 
積分
118 
點名
0  
作業系統
XP 
軟體版本
Office 2003 
閱讀權限
20 
性別
男 
註冊時間
2015-11-10 
最後登錄
2020-5-25 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2016-1-17 14:18 | 只看該作者

[發問] 如何利用VBA記錄使用動作，並回傳資料至某路徑的特定檔案內。

問題               
如何利用VBA記錄使用動作，並回傳資料至某路徑的特定檔案內。               
               
               
詳細問題內容               
"資料" 活頁簿裡，當使用者每按一下工作表裡的巨集按鈕，就會回傳該巨集名稱、當下日期時間與               
"明細"工作表裡的 L3欄 到另一活頁簿活頁簿(回饋)裡面，而且使用者每按一次就往下新增紀錄一筆(不覆蓋)；               
請大大幫我依上面需求撰寫VBA並且以不影響或干擾原本巨集為原則，謝謝！               
               
        註1：本範例皆只是空按鈕，並無巨集。       
        使用習慣："回饋" 活頁簿會放在一特定路徑裡面(如C:\test)       
                              "資料" 活頁簿則可能被多位使用者複製到任何路徑使用。
下載範例檔
20160117_利用VBA內容檔回將傳另一檔案.rar (8.1 KB)

圖片示意
收藏 分享

RCRG
　暱稱: RCRG滾奶滾企

中學生Rank: 2

帖子
95 
主題
24 
精華
0 
積分
118 
點名
0  
作業系統
XP 
軟體版本
Office 2003 
閱讀權限
20 
性別
男 
註冊時間
2015-11-10 
最後登錄
2020-5-25 
5#
發表於 2016-1-24 18:54 | 只看該作者
回復 4# 准提部林


    剛剛又研究了一下，Set xB = X.Workbooks.Open(ThisWorkbook.Path & "\回饋.xls")，原來把ThisWorkbook.Path & 移除就可以連結了，
謝謝准大的答案；

另外我想請問，是不是將VBA都寫在同一個模組裡(如您範例)，那麼 Sub 記錄(BtnText$, UsrName$) 就只需一個即可，
如果分開寫在很多模組，那麼每個模組都要有 Sub 記錄(BtnText$, UsrName$) 這樣沒錯吧?

TOP

准提部林

帖子
2836 
主題
10 
精華
0 
積分
2892 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-11-30 
4#
發表於 2016-1-23 16:43 | 只看該作者
回復 3# RCRG


區網路徑應包含電腦名稱, 或以[連線網路磁碟機]方法設定路徑,
請網上自行找找資料!!!

TOP

RCRG
　暱稱: RCRG滾奶滾企

中學生Rank: 2

帖子
95 
主題
24 
精華
0 
積分
118 
點名
0  
作業系統
XP 
軟體版本
Office 2003 
閱讀權限
20 
性別
男 
註冊時間
2015-11-10 
最後登錄
2020-5-25 
3#
發表於 2016-1-23 15:48 | 只看該作者
回復 2# 准提部林


    Set xB = X.Workbooks.Open(ThisWorkbook.Path & "\回饋.xls")

請教一下准大，上面是您兩檔案同一層的路徑VBA，若我路徑為 "\\TEST\TEST1\測試\來源檔"，那我該怎修改VBA路徑呢? (自己亂試了半天還是連結不到..XD)

TOP

准提部林

帖子
2836 
主題
10 
精華
0 
積分
2892 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-11-30 
2#
發表於 2016-1-20 21:32 | 只看該作者
Sub TEST_3()
記錄 ActiveSheet.Shapes(Application.Caller).TextFrame.Characters.Text, [明細!L3]
End Sub
　
　
Sub 記錄(BtnText$, UsrName$)
Dim X As New Application, xB As Workbook
Set xB = X.Workbooks.Open(ThisWorkbook.Path & "\回饋.xls")
xB.Sheets("資料回傳").[B65536].End(xlUp)(2).Resize(1, 3) = Array(UsrName, Now, BtnText)
xB.Close 1
End Sub
　
測試檔：
20160117_回傳另一檔案.rar (15.43 KB)
　
會不會影響原來程式？不確定！！！　

TOP

        靜思自在 : 人要知福、惜福、再造福。
返回列表 上一主題