Új hozzászólás Aktív témák

• #37869 lumpy92 aktív tag

  Új Válasz 2018-04-18 13:28:59 #37869

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  lumpy92

  aktív tag

  Sziasztok!
  Egy másik kérdésem is felmerült:
  Hogyan oldható meg az, hogy a weblapról betöltött táblázat betöltését megvárja a program és csak utána futtassa tovább a kódot?
  Application.Refresh ről több helyen írtak a neten, de nálam nem is csak frissítésről van szó, hanem egy ún. QueryTable hozzáadásáról, a célhelyen lévő cellák felülírásával. Tehát nem frissítés művelet zajlik le a makró futtatásakor, hanem táblázat hozzáadása. Ezt a makrón belül 2x csinálom meg, az elsőnél működik a dolog, de a másodiknál a letöltés utáni folyamatok hamarabb lefutnak, mint az adatok betöltése a táblázatba.
  Köszönöm a tippeket!
  Application.CutCopyMode = False
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.pelda.hu" _
, Destination:=Range("$A$5"))
' .CommandType = 0
.Name = "Table1"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = False
.RefreshStyle = xlOverwriteCells
.SavePassword = False
.SaveData = False
.AdjustColumnWidth = True
.RefreshPeriod = 0
' Ez át lett írva, hogy csak a táblázatokat kérjük le.
.WebSelectionType = xIAllTablesdefault
' Ez át lett írva, hogy mindet formázza.
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery = False
End With

Új hozzászólás Aktív témák