- 帖子
- 5
- 主題
- 0
- 精華
- 0
- 積分
- 4
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- 2013
- 閱讀權限
- 10
- 註冊時間
- 2017-6-9
- 最後登錄
- 2021-11-20
|
提供您一段程式給您參考
Dim sData, TData As Workbook
Dim sSt As WorkSheet
'ChDir WPath
ChDir Application.ActiveWorkbook.Path
Set sData = Workbooks.Open(SourceData)
sData.Activate
Set sSt = sData.Worksheets(1) |
|
發表於 2017-8-25 11:44
| 