sql >> Databasteknik >  >> RDS >> Oracle

Excel ODBC-dataanslutning Fråga tid det tar att uppdatera varje fråga

Något liknande det här kanske (förutsätter att alla anslutningar placerar sina resultat i en kalkylbladstabell, inte i en pivotbar):

Sub TimeQueries()
    Dim oSh As Worksheet
    Dim oCn As WorkbookConnection
    Dim dTime As Double
    For Each oCn In ThisWorkbook.Connections
        dTime = Timer
        oCn.Ranges(1).ListObject.QueryTable.Refresh False
        Debug.Print Timer - dTime, oCn.Name, oCn.Ranges(1).Address(external:=True)
    Next
End Sub

Så här kör du:

  1. Alt +F11 för att gå till VBA-redigeraren.
  2. Från menyn:Infoga modul.
  3. Klistra in koden i fönstret.
  4. Stäng VBA-redigeraren.
  5. Alt +F8 tar upp en lista över makron. Välj den nya och klicka på Kör.
  6. Alt +F11 igen till VBA-redigeraren.
  7. Ctr l+G öppnar den omedelbara rutan med resultaten.

Om du vill att koden ska skrivas till en cell, använd denna version:

Sub TimeQueries()
    Dim oSh As Worksheet
    Dim oCn As WorkbookConnection
    Dim dTime As Double
    Dim lRow As Long
    Set oSh = Worksheets("Sheet4") 'Change to your sheet name!
    oSh.Cells(1,1).Value = "Name of Connection"
    oSh.Cells(1,2).Value = "Location"
    oSh.Cells(1,1).Value = "Refresh time (s)"
    For Each oCn In ThisWorkbook.Connections
        lRow = lRow + 1
        dTime = Timer
        oCn.Ranges(1).ListObject.QueryTable.Refresh False
        oSh.Cells(lRow,3).Value = Timer - dTime
        oSh.Cells(lRow,1).Value = oCn.Name
        oSh.Cells(lRow,2).Value = oCn.Ranges(1).Address(external:=True)
    Next
End Sub



  1. jBPM 6.5 + Tomcat 8 + Bitronix Transaction + Oracle 11G-konfiguration | Kunde inte utföra sessionen java.lang.NullPointerException

  2. Ändra formatet för datum

  3. PHP $_SESSION problem

  4. Skriptet för MySQL-replikeringshälsokontroll