abcdefgp06

¤p§ÌÄݤp¾Ç¥ÍHsieh¤jªºDDE.rar¤p§ÌµLªk¬Ý¨ì ¥i±¤
¤p§Ì³sµ²¤¸¤jEasyWin°µDDE¸ê®ÆÂ^¨ú(5 secÂ^¨ú¤@¦¸)
8:45 am«e§¹¦¨»PEasyWinªº³sµ²«á
«ö¤U¡y¸ê®ÆÂ^¨ú¶s¡z±N¦Û08:45 am¦Û°ÊÂ^¨ú¸ê®Æ
13:45:06 µ²§ô¸ê®ÆÂ^¨ú
¦ýPC®É¶¡»Ý»PEasyWin¤Ç°t§_«h·|¥X²{Error
¦pªþ¥ó¨Ñ°Ñ¦Ò

VBA½X
Sheet1 (Sheet4)
Private Sub CommandButton1_Click()
    download
End Sub

Module1

Private ChartStr(5) As Long

Sub download()
Dim R1 As Range, R2 As Range

If Time >= TimeValue("13:45:06") Then End       '13:45«á°±¤îµ{¦¡
If Time < TimeValue("08:45:00") Then
        ChartStr(5) = 1
        Application.OnTime TimeValue("08:45:00"), "download"  '08:45«eµ{¦¡³]©w©ó08:45°õ¦æ "download"µ{¦¡
        Exit Sub
                             
    Else
    ChartStr(1) = [B65536].End(xlUp).Row
  
    Application.OnTime Now + TimeValue("00:00:05"), "download"
End If

With Sheet1
ar1 = Array([D3], [E3], [L3])
.[B65536].End(xlUp).Offset(1, 0).Resize(, 3) = ar1
.[A65536].End(xlUp).Offset(1, 0) = Time

'¤p¥xªñ¤ë
ar2 = Array([E4], [L4])
.[F65536].End(xlUp).Offset(1, 0).Resize(, 2) = ar2

End With
ChartStr(1) = ChartStr(1) + 1
Range("I6").Value = Range("G" & ChartStr(1)).Value
Range("I6").Select

End Sub