- ©«¤l
- 5
- ¥DÃD
- 0
- ºëµØ
- 0
- ¿n¤À
- 4
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- 2013
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2017-6-9
- ³Ì«áµn¿ý
- 2021-11-20
|
´£¨Ñ±z¤@¬qµ{¦¡µ¹±z°Ñ¦Ò
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) |
|