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

[µo°Ý] API³vµ§¹Bºâ­t¾á¤j¡A¥i§_ºë²

¥»©«³Ì«á¥Ñ GBKEE ©ó 2018-11-6 15:50 ½s¿è

¦^´_ 30# dreamsway

11# ¤W ªº ¦hªÅÂŹÏbeta¤£§tRTD.xls ¤¤ Sub ¶×¤JAPI³ø»ù¤å¦rÀÉ()  '** ¤£´N¬O¦b§ó·s   _20180724_Match ªº¸ê®Æ
    ´À¥N ­«·s¾ã²z¬Ý¬Ý
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 31# GBKEE
¦]¬°²{¦b§ï¥Î2019ª©EXCEL(¤¸¤jªºRTD¤~¯à¨Ï¥Î¦bwin10¤ÎAPI¤~¯à¨Ï¥Î¼Æ¾Ú¶W¹L65536µ§)¡A
©Ò¥H¶×¤J¥~³¡txtªº¤è¦¡Åܱo¤ñ¸û¤£¦P¡A­Y¥Î¥¨¶°­«½Æ°õ¦æ¶×¤Jtxt´N·|¥X²{¥H¤U°T®§
1541491846897.jpg
2018-11-6 16:21

¦]¦¹¤~§ï¥Î­«·s¾ã²zªº¤è¦¡

TOP

¦^´_ 32# dreamsway

¸Õ¸Õ¬Ý
  1. Option Explicit
  2. Const ¶¡¹j = #12:05:00 AM#   '³o¸Ì­×§ï¤ÀÄÁ¶¡¹j
  3. Const ¶}½L = #8:45:00 AM#
  4. Public Sht2 As Worksheet
  5. Sub K¤ßºA()
  6.     Dim i As Long, Ti As Integer, ¦¨¥æ»ù As Double, ¦hÁ` As Long, ªÅÁ` As Long, ¤è¦V As String
  7.     Dim xTime As Date, wTime As Date, Q As Variant
  8.     '*************************************
  9.     Set Sht2 = Sheets("³ø»ù¼Æ¾Ú")
  10.     With Sht2
  11.         For Each Q In .QueryTables
  12.             Q.Delete
  13.         Next
  14.         For Each Q In .Names
  15.             Q.Delete
  16.         Next
  17.     End With
  18.     ¶×¤JAPI³ø»ù¤å¦rÀÉ
  19.     '**************************************
  20.     xTime = ¶}½L + ¶¡¹j
  21.     i = 1: Ti = 0: ¦hÁ` = 0: ªÅÁ` = 0
  22.     ¦¨¥æ»ù = Sheets("¦hªÅÂŹÏ").Range("M4") 'Äæ¦ì¼È¥N
  23.     Do
  24.         With Sht2.Range("b1").Offset(i)
  25.         '**¶¡¹j¬°  #12:05:00 AM#  ³o"¡ô","¡õ"¼Æ¾Ú ·Ç½T¶Ü?***
  26.         If ¦¨¥æ»ù < .Cells(1, 2) Then ¤è¦V = "¡ô"
  27.         If ¦¨¥æ»ù > .Cells(1, 2) Then ¤è¦V = "¡õ"
  28.         
  29.         If ¦¨¥æ»ù <= .Cells(1, 2) And ¤è¦V = "¡ô" Then ¦hÁ` = ¦hÁ` + .Cells(2, 3)
  30.         If ¦¨¥æ»ù >= .Cells(1, 2) And ¤è¦V = "¡õ" Then ªÅÁ` = ªÅÁ` + .Cells(2, 3)
  31.         ¦¨¥æ»ù = .Cells(1, 2)
  32.             If .Value > xTime + ¶¡¹j Then
  33.                 With Sheets("´ú¸Õ").Range("A2").Offset(Ti)
  34.                     .Resize(, 3) = Array(xTime, ¦hÁ`, ªÅÁ`)
  35.                     .NumberFormatLocal = "hh:mm;@"
  36.                 End With
  37.                  xTime = xTime + ¶¡¹j: Ti = Ti + 1
  38.              Else
  39.                 If .Cells.Offset(1) = "" And Format(TimeValue(.Cells.Text), "HH:MM") = "13:45" Then
  40.                     '***µ{¦¡¹B¦æ³t«×«Ü§Ö·|¶]§¹³ø»ù¼Æ¾Ú,®É¶¡¤w¨ì"13:45"¦¬½L ¤£¦A¦³¼Æ¾Ú¤F **
  41.                     xTime = xTime + ¶¡¹j
  42.                     With Sheets("´ú¸Õ").Range("A2").Offset(Ti)
  43.                         .Resize(, 3) = Array(xTime, ¦hÁ`, ªÅÁ`)
  44.                         .NumberFormatLocal = "hh:mm;@"
  45.                     End With
  46.                     Exit Do
  47.                 ElseIf .Cells.Offset(1) = "" Then
  48.                     '****µ{¦¡¹B¦æ³t«×«Ü§Ö·|¶]§¹³ø»ù¼Æ¾Ú,¦ý¬O¼Æ¾ÚÁÙ·|¦³ ¦]®É¶¡ÁÙ¥¼¨ì"13:45"¦¬½L ®É ...  **
  49.                     '**µ{¦¡¨ì³o²z °õ¦æ  ­«·s¾ã²z ªºµ{¦¡ ¦³§ó·s¨ì   _20180724_Match  ¹ï¶Ü? **
  50.                      '**********************************************
  51.                       wTime = Time
  52.                       Do
  53.                         If wTime < Time - #12:00:30 AM# Then '30¬í ­«·s¾ã²z ¤@¦¸
  54.                             '**¸Õµy«Ý¤@¤Uµ¥­Ô·sªº¼Æ¾Ú
  55.                             Application.StatusBar = "­«·s¾ã²z...."
  56.                             ¶×¤JAPI³ø»ù¤å¦rÀÉ   '** §ó·s   _20180724_Match ¦p¦³·sªº¸ê®Æ¶i¨Ó
  57.                                        '*************************.Cells.Offset(1)´N <>""  ***
  58.                             wTime = Time
  59.                             End If
  60.                         DoEvents
  61.                     Loop While .Cells.Offset(1) = ""  '**ÁÙ¬O¨S¦³·sªº¼Æ¾Ú´N¤@ª½µ¥­Ô...
  62.                     '*** ¦p¦³·sªº¸ê®Æ¶i¨Ó Â÷¶}°j°é Ä~Äò¤U¥h¨ì  i = i + 1 ªº¦a¤è ¦A Loop ¤U¥h ***
  63.                     Application.StatusBar = False
  64.                 End If
  65.             End If
  66.         End With
  67.         DoEvents
  68.         i = i + 1
  69.     Loop
  70.     MsgBox "¤u§@§¹¦¨"
  71. End Sub
  72. Sub ¶×¤JAPI³ø»ù¤å¦rÀÉ() 'ÁÙ¨S½Õ¾ã¸ô®|¦r¦ê¡A¸ô®|2²Õ¤é´Á§ï¬°·í¤é¤é´Á¡ATXFH8«h¬°sht1¦hªÅÂŹϪºA4Àx¦s®æ
  73.     With Sht2
  74.         If .QueryTables.Count = 0 Then
  75.             With .QueryTables.Add(Connection:= _
  76.                 "TEXT;C:\API\20180724\TXFH8\20180724_Match.txt", Destination:=.Range("$A$2"))
  77.                 .Name = "20180724_Match"
  78.                 '.FieldNames = True         '¹w³]­È¬° True ¥i¤£¥Î¦C¥X
  79.                 .RowNumbers = False
  80.                 .FillAdjacentFormulas = False
  81.                 '.PreserveFormatting = True  '¹w³]­È¬° True¡C¥i¤£¥Î¦C¥X
  82.                 '.RefreshOnFileOpen = False   '¹w³]­È¬° False¡C¥i¤£¥Î¦C¥X
  83.                 .RefreshStyle = xlInsertDeleteCells
  84.                 .SavePassword = False
  85.                 .SaveData = True
  86.                '.AdjustColumnWidth = True      '¹w³]­È¬° True¡C¥i¤£¥Î¦C¥X
  87.                 .RefreshPeriod = 0
  88.                 '.TextFilePromptOnRefresh = False      '¹w³]­È¬° False¡C¥i¤£¥Î¦C¥X
  89.                 .TextFilePlatform = 950
  90.                 .TextFileStartRow = 1
  91.                 .TextFileParseType = xlDelimited
  92.                 .TextFileTextQualifier = xlTextQualifierDoubleQuote
  93.                 '.TextFileConsecutiveDelimiter = False  '¹w³]­È¬° False ¡C¥i¤£¥Î¦C¥X
  94.                 .TextFileTabDelimiter = True
  95.                 '.TextFileSemicolonDelimiter = False    '¹w³]­È¬° False ¡C¥i¤£¥Î¦C¥X
  96.                 .TextFileCommaDelimiter = True
  97.                 '.TextFileSpaceDelimiter = False         '¹w³]­È¬° False ¡C¥i¤£¥Î¦C¥X
  98.                 .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1)
  99.                 .TextFileTrailingMinusNumbers = True
  100.                 .Refresh BackgroundQuery:=False
  101.             End With
  102.         Else
  103.             .QueryTables(1).Refresh
  104.         End If
  105.         .Columns("B:B").NumberFormatLocal = "h:mm:ss;@"
  106.     End With
  107. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 33# GBKEE
ÁÂÁÂG¤j¡A¤µ¤Ñ½L¤¤¹ê´úªº±¡ªp¥i¥H¤@ª½§ó·s³ø»ùªº¼Æ¾Ú¤F¡A¤£¹L·|Åܦ¨¦hªÅ¼Æ¾Úªº³¡¤À¶]¤£¥X¨Ó(8:50«e´ú¸Õ±¡ªp)¡A
­Y¦b8:50«á¤~°õ¦æ¥¨¶°¡A«h·|«ùÄò§ó·s³ø»ù¡AµM«á¦hªÅ¼Æ¾Ú·|¶]¤@¦¸ªì¦¸ªº³ø»ù(¥u·|°O¿ý¤@¦¸)¡A±µµÛ´N¬O«ùÄò§ó·s³ø»ù¡A¦ý«áÄò§ó·sªº³ø»ù¹Bºâªº¦hªÅ¼Æ¾Ú¬Ò¤£·|Åã²{¡C
¦ý¸Þ²§ªº¬O...§Ú¸ÕµÛ¤â°ÊF8´ú¸Õ¡A¥ÎºÊ¬Ý¨C­ÓÅܼƫo¤S§¹¥þ¥¿±`¡A¥i¥H¶]³ø»ù¤]¯à¶]¦hÁ`ªÅÁ`ªº§PÂ_¡A
¤p§Ì¹ïVBA¤F¸Ñ¤£¦h¡A¤£¸T¦b·Q...·|¤£·|³o¨âºØ¥¨¶°¦Û°Ê¹B¦æ®É·|½Ä¬ð§r...¤@¤U¬O³ø»ù¤£·|§ó·s...³o¦^¬O¹Bºâ¤£·|°Ê...¦ý¤â°ÊF8«o¤S¥¿±`
¤£¾å±o¬O§_³o¼Ëªº¹Bºâ¹ïEXCEL.VBA¨Ó»¡­t²ü¹L­«¡A¤@ª½½ÐG¤j¨ó§Uªº±¡ªp·Pı«Ü¹L·N¤£¥h...

TOP

¦^´_ 34# dreamsway
  '**¶¡¹j¬°  #12:05:00 AM#  ³o"¡ô","¡õ"¼Æ¾Ú ·Ç½T¶Ü?***

§Ú¤£¬O¦³³oºÃ°Ý¶Ü?
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¥»©«³Ì«á¥Ñ dreamsway ©ó 2018-11-9 16:12 ½s¿è

¦^´_ 35# GBKEE
G¤j¤È¦w¡A¨º­Ó¡ô¡õ«ü¼Ðªº§PÂ_¬O¥¿½Tªº¡A
§Ú¥Ø«e´ú¨ì¥Î³o¼Ë¦Û°Ê§ó·sªº¤è¦¡¡A±Ä¥Î¸û¤§«e±zÀ°§Ú­×§ïªº³ø»ù¹Bºâsub·f°t¦hªÅ¬ö¿ýsub¡A©ñ¦b¦Û°Ê§ó·sªºsub¤º¡A³ø»ù¤Î¹Bºâ¤w´ú¸Õ¨â¤Ñ¬Ò¥i¶¶§Q¹B¦æ¡A´N¬O...½L¤¤¥æ©ö¶q¤j¤@ÂIªºÀþ¶¡·|µy·L¹y¤@¤U(¥i¯à¹q¸£¸Ó´«¤F...)
ÁöµM¦³ÂI¯Ç´e¬°¤°»ò¦Û°Ê§ó·s¥i¥H¡A¤§«eªº­«·s¾ã²z´N¤£¦æ...
  1. Sub °õ¦æ()
  2. Call ¦@¥Î°Ñ·Ó
  3. Sht1.Range("J1") = "¹B¦æ¤¤.."
  4. uMode = "Start"

  5. Call ¦Û°Ê§ó·s

  6. If uMode = "Stop" Then
  7. Sht1.Range("J1") = ">°±¤î<"
  8. Exit Sub
  9. End If
  10. End Sub
½Æ»s¥N½X
  1. Sub ¦Û°Ê§ó·s()
  2. On Error Resume Next
  3. ActiveWorkbook.RefreshAll
  4. If uMode = "Stop" Then Exit Sub
  5. Application.OnTime Now + TimeValue("00:00:15"), "¦Û°Ê§ó·s"
  6. Call ³ø»ù¹Bºâ '¸Ì­±·|¦Acall ¦hªÅ¬ö¿ý
  7. Call °ª§C§ó·s
  8. Call K15
  9. Call °ÊºA»ù
  10. End Sub
½Æ»s¥N½X
¦ý­Y¬O§Ú§â¦Û°Ê§ó·ssub¸Ì­±ªºcall ³ø»ù¹Bºâ§ï¬°K¤ßºAsub
­Y¶]¤@½ü¨S¦b¦Û°Ê§ó·s³]©wªº15¬í¤º¶]§¹¡A´N·|¶}©l¤§«eªº±¡ªp¡A¾É­P³ø»ù¤@ª½§ó·s¦ýK¤ßºA¤]¶]¤£§¹ªºª¬ªp
¥t¥~¡A¦]¬°¨ä¥Lªºsub³£»Ý­n³ø»ù®É¶¡¨Ó°µ§PÂ_¡A§Ú¸ÕµÛ¦bK¤ßºA¤º¥[¤W³ø»ù®É¶¡¶Ç°e¨ìsht1.Range("C1") ¡Aµ²ªG³t«×Åܱo©_ºCµL¤ñ..
½Ð°Ý¬O¤£¬O³oºØ¼gªk¤£¾A¥Î³oºØ³vµ§§ó·s¥t¤@­ÓÀx¦s®æ¤º®eªºª¬ªp©O¡A¦]¬°¥Ø«eªºK¤ßºA¬OK´Î®É¶¡¦¬©w«á¬Ý¨ì¤W¤@®Ú¹Bºâªºµ²ªG(¨Ò¦p²{¦b09:49¦ý¥u·|¬Ý¨ì09:45¹Bºâªºµ²ªG)
¤£¾å±o¯à§_¬Ý¨ì§Y®Éªº¹Bºâ(¨Ò¦p³ø»ù®É¶¡09:49´N¬Ý¨ì¹Bºâ¨ì09:49ªº¼Æ¾Ú¡A¦Ó¤£¥Îµ¥¨ì09:50¹L«á)
¦pªG¤£¦æªº¸Ü´N¥ý±Ä¥Î¥Ø«e¤w¯à¶¶§Q¹B¦æªº¤è¦¡¥h¶]¡A¦]¬°G¤j±zÀ°§Ú§ï¹Lªº¦hªÅ¬ö¿ý¡A¤w¸g¤ñ§Ú³Ì­ì©lªº¬ö¿ý¤è¦¡¹B¦æ³t«×§Ö«D±`¦h¤F

ÀÉ®×

TOP

¦^´_ 36# dreamsway

¥¼¯à¹ê»Ú°Ñ»P§AªºÀÉ®×,«ÜÃøÀ°§A­×§ï.
´Á³f§Ú¬Oªù¥~º~,§Ú¦³¥x·sÃÒ¨é,´¼¦h¬P³nÅé,¦ý§ä¤£¨ì§A TXFH8 «ü¼Æ
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 37# GBKEE
ÁÂÁÂG¤j³o°}¤lªº¨ó§U¡A§Ú¥ý¥Î¥Ø«eªºª©¥»´N¥i¥H¤F¡A
³o­Ó¥N½X¦ü¥G¥u­­©ó¤¸¤jªºEASYWIN³nÅé¥Îªº¡A¦ý¬O¤¸¤jªºDDE/RTD/API³£¬O¸j³o­Ó¡C

TOP

        ÀR«ä¦Û¦b : ºw¤ô¦¨ªe¡C²É¦Ì¦¨ÅÚ¡A¤Å»´¤vÆF¡A¤Å¥Hµ½¤p¦Ó¤£¬°¡C
ªð¦^¦Cªí ¤W¤@¥DÃD