ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[¤À¨É] Ãö©óDDE°ÊºA³sµ²°ÝÃD

¤W­±ªºbbb.xls,§ïÅÜ»ù¦ì

¦b±µ¦¬ºÝªºexcel­n¦p¦ó¤@µ§¤@µ§ªº¦V¤U±µ¸ê®Æ

·Ð³Â¦U¦ì¤j¤j,¤À¨É¤@¤U²³æªº ¼gªk

·PÁÂ^^
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¨F¤j§A¦n!
      §Ú¥ÎEXCEL2010¦bÀx¦s®æ¤º¿é¤J =excel|Book1.xls!x
°¨¤W¥X²{·í¾÷(¨S¦³¦^À³)¡A½Ð°ÝEXCEL­þ¸Ì³]©w¥X°ÝÃD?

    ÁÂÁÂ!
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¨F¤j§A¦n!
      §Ú¥ÎEXCEL2010¦bÀx¦s®æ¤º¿é¤J =excel|Book1.xls!x
°¨¤W¥X²{·í¾÷(¨S¦³¦^À³)¡A½Ð°ÝEXCEL­þ ...
wells330 µoªí©ó 2011-4-29 22:10


¨S§A¨ººØ¹q¸£Àô¹Ò¥i¥H´ú¸Õ¡I
½Ð¦Û¤v¬Ý¬Ý Excel »¡©ú
©Î½Ð Win7+Office 2010 ªº¤HÀ°§A¬Ý¬Ý¡I
©³¤U¬Oºô¸ô¤W§ä¨ìÃþ¦üªº°ÝÃD
°Ñ¦Òºô¸ô¤Wªº³sµ² << ­^¤å
°Ñ¦Òºô¸ô¤Wªº³sµ² << ¤¤¤å
¤@§Z¤T¥|¡BÅå¨ìåF¥N»x

TOP

¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

§Ú·Q¸Ó§ä¨Ç®É¶¡¦V¦U¦ì¼Ó¥D½Ð±Ð½Ð±Ð¡A¹ï VBA ¥H¤Î³W«h»yªk¦³½Ñ¦h»Ùꪺ¤p¾Ç¥Í¡C¥ý»¡ÁÂÁ¹ơI
¥u¬°¾Ç²ß©Ò¥Hµo°Ý

TOP

¤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

EasyWin-DDE.zip (313.54 KB)

TOP

¸I¥©³Ìªñ­è¦n¦b¬ã¨s´Á³fDDEªº¦hªÅ¤ÀªR«Ü°ª¿³¥i¥H©M¤j®a»{ÃѤ@¤U

TOP

§Ú¤]·Q¦h¦h¾Ç²ß©M¤À¨É»¡!

´Á³f¦hªÅ¤ÀªR.rar (391.21 KB)

TOP

§Ú¥Îªº¬O¤¸¤jYESWIN
§Ú§Æ±æ´ú¶q¥X¶R½æ³æ¹ï«ü¼Æ²£¥Íªº¼vÅT
¤ñ¦p»¡100¤f¶R¶i¤Wº¦2ÂI
¦ý¬O20¤f½æ¥X¤U¶^2ÂI
ÅãµM¦h¤è®z¶Õ
§Ú§âµ{¦¡¼g¦¨¶R¤@¬í§ì1¦¸³æ¶q¤Îº¦¶^ÂI
¨ú¥X¨ã¼vÅTªº³æ¶q§@¦¨¹Ïªí¤ñ¸û
µL©`¥\¤O¦³­­¬Ý°_¨Ó«Ü¤£±M·~
¦h¥]§t
²¦³º¬O¤p¾Ç¥Í§Ú·Q¦h°Ñ¤©¤j®a

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2011-11-29 11:43 ½s¿è

¦^´_ 19# fei6999
¤ñ¦p»¡100¤f¶R¶i¤Wº¦2ÂI,¦ý¬O20¤f½æ¥X¤U¶^2ÂI ,³o»Ý¦³¤è­±ªº±M·~¨Ó¼g·|«ê·í¨Ç.

TOP

        ÀR«ä¦Û¦b : ¦³´¼¼z¤~¯à¤À¿ëµ½´c¨¸¥¿¡F¦³Á¾µê¤~¯à«Ø¥ß¬üº¡¤H¥Í¡C
ªð¦^¦Cªí ¤W¤@¥DÃD