Hirdetés
-
A kard és az űr az új Arc meghajtó két fő motívuma
ph A 31.0.101.5518-as csomag három hibával is leszámolt.
-
Két fontosabb újítással megjelent az iOS 17.5
ma Az EU-ban webről is telepíthetők ezzel appok, illetve bővül a nyomkövetőkre való figyelmeztető rendszer.
-
Red Dead Redemption - Újabb jel, hogy PC-re is megjelenhet?
gp Vajon a Rockstar meddig húzza még az időt azzal, hogy végre elhozza még egy platformra a játékot?
-
PROHARDVER!
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
zolynet
addikt
Sziasztok!
Excel makróban kérnék segítséget, erről az oldalról szeretnék leszedni infot: http://www.nfh.hu/pozitiv-lista?title=&field_shop_value=&page=0 ... úgy hogy az üzlet mögötti url-t is lementse.
Gondolom a WebSelectionType = xlSpecifiedTables kellene használnom, de nem igazán értem.
Tudok ez ügyben segíteni.Az odáig rendben van hogy hogy szedem le az alapadatokat: (a formázással sincs utána gond)
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.nfh.hu/pozitiv-lista?title=&field_shop_value=&page=0" _
, Destination:=Range("A1"))
.FieldNames = False
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
'.WebSelectionType = xlAllTables
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.Refresh BackgroundQuery:=False
End WithTudom a végén egy ciklus kell rá, de az most még nem érdekes.
Life is too short to stay stock!
Új hozzászólás Aktív témák
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: Ozeki Kft.
Város: Debrecen