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

[µo°Ý] Excel ODBC ©Î RTD°ÝÃD

¦^´_ 1# lichang


³o§Ú¤§«eºô¸ô¤W§äªº¡A½Ð°Ñ¦Ò¡C³£¬O¯¸¤W«e½ú¤À¨É
1) http://forum.twbts.com/viewthread.php?tid=37  ©I¥sAPI ©w®É°õ¦æ 2­Ó©w®É

2 )https://tw.answers.yahoo.com/question/index?qid=20120228000010KK01065#

¡½µ{¦¡½X¡G
¡@Dim uMode, PvtSht As Worksheet¡@'¡e³»ºÝ¡f«Å§i

Sub ¦Û°Ê§ó·s()
On Error Resume Next
Set PvtSht = ThisWorkbook.Sheets("Sheet1")
'«ü©w¡e¥»Àɮסf¡e¤u§@ªí¦WºÙ¡f¡A¥HÁקK¿ù»~¡A
'¥B¥i¦P®É¾Þ§@¨ä¥L¤u§@ªí¡A¬Æ¦Ü¨ä¥LÀɮסA¦Ó¤£¼vÅTµ{¦¡
If uMode = "Stop" Then Exit Sub
PvtSht.PivotTables("¼Ï¯Ã¤ÀªRªí1").PivotCache.Refresh
Application.OnTime Now + TimeValue("00:00:5"), "¦Û°Ê§ó·s"
End Sub

Sub °õ¦æ§ó·s()
If uMode = "Start" Then Exit Sub '¦¹¬°¨¾¤î­«Âаõ¦æ
uMode = "Start"
Call ¦Û°Ê§ó·s
End Sub

Sub °±¤î§ó·s()
uMode = "Stop"
End Sub
¡@
¡½»¡©ú¡G
¡@¢°¡D³»ºÝ«Å§i¡A¤~¯à±N¡eÅܼơf³]¦¨¥þ¼Ò²Õ¦@¥Î¡A
¡@¡@¡@¡e°±¤î§ó·s¡f°e¥Xªº uMode = "Stop" ¤~¯àµo¥Í®Ä¥Î¡C
¡@¢±¡D±Nµ{¦¡«ü©wµ¹¡e¤u§@ªí¦WºÙ¡f¡A¤~¯àÁקK¿ù»~¡A³o¬O«D±`­«­n¡C
¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð¡Ð

TOP

        ÀR«ä¦Û¦b : ¨Ã«D¦³¿ú¾{¬O§Ö¼Ö¡A°Ý¤ßµL·\¤ß³Ì¦w¡C
ªð¦^¦Cªí ¤W¤@¥DÃD