- ©«¤l
- 72
- ¥DÃD
- 24
- ºëµØ
- 0
- ¿n¤À
- 172
- ÂI¦W
- 0
- §@·~¨t²Î
- xp
- ³nÅ骩¥»
- office 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-7-16
- ³Ì«áµn¿ý
- 2023-7-6
|
§Ún§âªF¦èCopy¹L¥h¡A¦ý¤£ª¾¨º¼g¿ù¤F!!!
Sub JC()
'
Dim MySheet As Worksheet
Dim D As String
Dim M As String
Dim Rowno As Integer
D = Day(Now)
M = Month(Now)
If Len(D) = 1 Then
D = "0" + D
Else
D = D
End If
If Len(M) = 1 Then
M = "0" + M
Else
M = M
End If
Set MySheet = ActiveSheet
With Workbooks.Open("A.xls")
With .Sheets(Format(Date, "mmdd"))
With .Range("R56:V75")
MySheet.Range("E18").End(xlDown).Offset(1, 0).Resize(, .Count) = .Value
End With
End With
.Close 0
End With
'
End Sub |
|