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

• #19476 DIEGO15 őstag DIEGO15 #19462

  Új Válasz 2013-11-07 20:07:40 #19476

  Ú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

  

  DIEGO15

  őstag

  válasz DIEGO15 #19462 üzenetére

  Nem tudtok, vagy nem akartok nekem segíteni?

• #19462 DIEGO15 őstag

  Új Válasz 2013-11-07 02:37:19 #19462

  Ú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

  

  DIEGO15

  őstag

  Sziasztok. Weboldalról szeretnék lekérdezést csinálni, de vannak bizonyos oldalak, amiken nem tudok. Ilyen pl. az eredmenyek.com , ha erre a címre indítok lekérdezést, gyakorlatilag csak az országok nevét másolja le. Tudna nekem valaki segíteni ebben?

  Ezt a forrást használtam eddig:

  Sub Basic_Web_Query()
  
  With Munka2.QueryTables.Add(Connection:= _
  "URL;" & Range("A1").Value, Destination:=Range("$B$2"))
  
  .FieldNames = True
  .RowNumbers = False
  .FillAdjacentFormulas = False
  .PreserveFormatting = True
  .RefreshOnFileOpen = False
  .BackgroundQuery = True
  .RefreshStyle = xlOverwriteCells
  .SavePassword = False
  .SaveData = True
  .AdjustColumnWidth = True
  .RefreshPeriod = 0
  .WebSelectionType = xlSpecifiedTables
  .WebFormatting = xlWebFormattingNone
  .WebTables = "1,2"
  .WebPreFormattedTextToColumns = True
  .WebConsecutiveDelimitersAsOne = True
  .WebSingleBlockTextImport = False
  .WebDisableDateRecognition = False
  .WebDisableRedirections = False
  .Refresh BackgroundQuery:=False
  End With
  
  End Sub

• #19414 DIEGO15 őstag Mutt #19408

  Új Válasz 2013-10-30 10:31:52 #19414

  Ú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

  

  DIEGO15

  őstag

  válasz Mutt #19408 üzenetére

  Sub Basic_Web_Query()
  
  With ActiveSheet.QueryTables.Add(Connection:= _
  "URL;" & Range("A1").Value, Destination:=Range("$A$2"))
  .Name = "q?s=goog_2"
  .FieldNames = True
  .RowNumbers = False
  .FillAdjacentFormulas = False
  .PreserveFormatting = True
  .RefreshOnFileOpen = False
  .BackgroundQuery = True
  .RefreshStyle = xlInsertDeleteCells
  .SavePassword = False
  .SaveData = True
  .AdjustColumnWidth = True
  .RefreshPeriod = 0
  .WebSelectionType = xlSpecifiedTables
  .WebFormatting = xlWebFormattingNone
  .WebTables = "1,2"
  .WebPreFormattedTextToColumns = True
  .WebConsecutiveDelimitersAsOne = True
  .WebSingleBlockTextImport = False
  .WebDisableDateRecognition = False
  .WebDisableRedirections = False
  .Refresh BackgroundQuery:=False
  End With
  
  End Sub

  Ezzel próbálkoztaem, de így nem megy "400" hibaüzenettel kiszáll, csak így megy "URL;www.valami.hu" , viszont nekem ez kevés.

• #19412 DIEGO15 őstag Mutt #19408

  Új Válasz 2013-10-29 23:02:45 #19412

  Ú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

  

  DIEGO15

  őstag

  válasz Mutt #19408 üzenetére

  Kipróbáltam, de szó szerint semmi sem történik, még egy hibaüzenet sem.

• #19406 DIEGO15 őstag

  Új Válasz 2013-10-29 07:40:05 #19406

  Ú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

  

  DIEGO15

  őstag

  Sziasztok.

  Segítséget szeretnék kérni a következő problémám megoldásában.

  Egy weblap tartalmát szeretném letölteni, ez megy is az Adatok/weblapról menüpont alatt.
  A letöltendő weblap címe minden nap két karakterben módosul. Azt találtam ki, hogy egy munkalapon függvényekkel megalkotom az aznapi linket és egy egyszerű makróval bemásolom az Adatok/weblapról ablak címsávjába. Azonban hiába jelölöm ki az adott cellában lévő weboldal címét, nem tudom bemásolni a címsávba. Ebben kérném a segítségeteket.

  Köszönöm

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