- ©«¤l
- 2808
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 2864
- ÂI¦W
- 0
- §@·~¨t²Î
- ¡e²¤¡f
- ³nÅ骩¥»
- ¡e²¤¡f
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¡e²¤¡f
- µù¥U®É¶¡
- 2013-5-13
- ³Ì«áµn¿ý
- 2024-5-19
|
¦^´_ 15# b9208
Set xB = Workbooks.Open(PH & "\" & FN, ReadOnly:=True)
Set xS = xB.Sheets(1)
If DateStr = "" Then DateStr = xS.[A2]
Arr = Range(xS.[A1:O1], xS.UsedRange)
If M > 0 Then
[Á`ªí!b2] = DateStr
end if
´¡¤J¬õ¦â¦r¨º¤G¦æ~~ |
|