- 帖子
- 2843
- 主題
- 10
- 精華
- 0
- 積分
- 2899
- 點名
- 0
- 作業系統
- 〔略〕
- 軟體版本
- 〔略〕
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 〔略〕
- 註冊時間
- 2013-5-13
- 最後登錄
- 2025-5-31
|
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)
會不會影響原來程式？不確定！！！ |
|
發表於 2016-1-20 21:32
| 