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

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

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

¤j®a¦n¡A³Ìªñ¤p§Ì·Q¼g¤@­Ó¹ïMongoDB¸ê®Æ®w³ÌŪ¨úªº¥\¯à
¬d¤F¤@¤U¡A¥i¥H¨Ï¥ÎODBC¤è¦¡Åª¨ú¨ì¸ê®Æ®w¤º®e
¦ý¦]¬°§Ú¸ê®Æ®wªº¸ê®Æ·|¤@ª½ÅÜ°Ê¡A¦ýEXCEL¤W³]©w§ó·sÀW²v³Ìµu¥u¦³1¤ÀÄÁ¡A½Ð°Ý¦³¿ìªk¥i¥H¦A¥[§Ö¶Ü??(©ÎªÌ¦p¦ó¼g¥¨¶°±j¨î§ó·s)

¥t¥~¡A¬O§_¥i¥H¨Ï¥ÎRTD©ÎDDE¤è¦¡¹ï¸ê®Æ®w§ì¸ê®Æ??¦³¬ÛÃö¸ê°T»P¤è¦¡¥i¥H´£¨Ñ¤@¤U¶Ü???

¦^´_ 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 : ¤H¥Í³Ì¤jªº¦¨´N¬O±q¥¢±Ñ¤¤¯¸°_¨Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD