digitmisi 0 Share Posted October 26, 2011 Sziasztok. Következõ dologban kérnék segítséget. L5:L100 cellákban különbözõ ("http://www.valami.hu") weblinkek szerepelnek. Ezeket a linkeket szeretném egymás után Új Weblekérdezéssel (Adatok - Külsõ adatok átvétele - Weblapról) importálni ugyanabba a munkafüzetbe. (2007-es excel-em van.) Automatizálni szeretném, de sehogyan sem jövök rá, hogyan kell. Próbálkoztam makróval, de nem sikerült. Valakinek esetleg ötlete? Elõre is köszi a segítséget. Link to comment Share on other sites More sharing options...
Temporary 52 Share Posted October 26, 2011 Ezt kellene ciklusba alakítanod: Sub Rögzítés1() url = "URL;" & Cells(1, 1).Value Sheets("Munka2").Activate With ActiveSheet.QueryTables.Add(Connection:=url, Destination:=Range("A1")) .Name = "#specifications" .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = False .RefreshOnFileOpen = False .BackgroundQuery = True .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .WebSelectionType = xlEntirePage .WebFormatting = xlWebFormattingAll .WebPreFormattedTextToColumns = True .WebConsecutiveDelimitersAsOne = True .WebSingleBlockTextImport = False .WebDisableDateRecognition = False .Refresh BackgroundQuery:=False End With End Sub Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now