Jump to content
GSForum - Segélyvonal

Adatok lekérdezése internetrõl makró segítségével


digitmisi

Recommended Posts

digitmisi

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

Temporary

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

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 account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...