RefreshAll

softwareguy

Hei

Alla oleva makro päivittää tiedot automaattisesti tietokannasta ja kopioi ne sitten uuteen ikkunaan. Ongelma on, että ActiveWorkbook.RefreshAll pitäisi suorittaa loppuun ennen kuin siirrytään eteenpäin.
ActiveSheet.QueryTables(1).Refresh BackgroundQuery:=False ei toimi, sillä en ole määritellyt QueryTables:ia. Vaihtoehtoja?

Sub Copy_Template_Data()

ActiveWorkbook.RefreshAll


Rows("1:1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Application.CutCopyMode = False
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
ActiveWindow.SplitRow = 1.1
ActiveWindow.SplitColumn = 2
Cells.Select
Cells.EntireColumn.AutoFit
ActiveWindow.SplitColumn = 1
ActiveWindow.SplitColumn = 1.3018018018018
ActiveWindow.SplitColumn = 2
ActiveWindow.Panes(3).Activate
Range("A3").Select
ActiveWindow.Panes(1).Activate
Cells.Select
Selection.AutoFilter
Cells.EntireColumn.AutoFit
Range("A1").Select
ActiveWindow.FreezePanes = True
End Sub

2

492

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • softwareguy

      Nyt pääsin hieman eteenpäin lisäämällä koodin ActiveSheet.Cells.ListObject.QueryTable.Refresh BackgroundQuery:=False heti ennen ActiveWorkbook.RefreshAll riviä. Mutta mutta... nyt ohjelma kysyy kaksi kertaa parametriä jonka mukaan tiedot pitäisi järjestää!

      • softwareguy

        Korjaan hieman, eli ActiveWorkbook.RefreshAll täytyy tietenkin ottaa pois. Nyt makro toimii, mutta on todella hidas... ActiveSheet.Cells.ListObject.QueryTable.Refresh BackgroundQuery:=False ei huoli RefreshAll komentoa...

    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Takaisin ylös

    Luetuimmat keskustelut

    1. Voisin jopa maksaa että saisin nähdä sut mies

      Miten helvetissä joku voi olla tollanen kotihiiri. Edes mä en ole noin paha ku sä! Miten sua voi ikinä edes nähdä ?
      Ikävä
      59
      1164

    2. Tumman vihreä mercedes

      Mikä se on tuo kylää ympäri ajava vihreä mercedes, takakontti tärisee kuin hullu ja välillä kylän juoppojakin kuskailee,
      Hyrynsalmi
      11
      840

    3. Miksi tällainen pelottaa ja aiheuttaa joillakin ärtymystä?

      "Sitoudun ystävien ja kollegoiden kanssa puuttumaan seksistisiin vitseihin ja vähättelyyn. Sanon ääneen, kun jokin ei ol
      Maailman menoa
      75
      785

    4. Rakastan sinua

      Päivä päivältä enemmän 🥰 Miehelle.
      Ikävä
      53
      624

    5. Käyttäkää kumia kajaanilaisten naisten kanssa

      Elkää ottako riskiä ilman kumia kun saattaa käydä niin että sinusta tuleekin isä lapselle ja elättäjä molemmille.
      Kajaani
      83
      603

    6. Pakkomielle

      Tahdon pyytää anteeksi, että olen kaivannut sinua kaikki nämä vuodet ja olet ollut minulle pakkomielle. Nyt on aika pääs
      Ikävä
      45
      532

    7. Tunnusmerkkejä Kaivatulle

      Jotain mistä toinen tunnistaa. Täällä vaalea nainen kaipaa miestä jolla vaaleat hiukset ja asuu maalla. Pelataanko kortt
      Ikävä
      33
      527

    8. Oletko nainen enää täällä?

      En ole tunnistanut kirjoituksiasi hetkeen. Ainoastaan yhdessä neutraalissa ketjussa, missä ei ollut kyse tunteista. Hyv
      Ikävä
      36
      524

    9. Hurmasit sitten minut

      kauneudellasi nainen ja kun sait minut rakastumaan itseesi muutuit ihan porsaaksi etkä välitä vartalostasi enää yhtään.
      Ikävä
      43
      503

    10. Tietysti olen varovainen,

      ei kaikki ole pelkkää epävarmuutta. En halua sotkea mitään, enkä aiheuttaa kenellekään hankaluuksia. Ja luulen että ehkä
      Ikävä
      40
      501
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt