Witam, na wstępie zaznaczę, że to jest mój pierwszy post. Próbuję przekształcić nagrane makro, w którym pobieram do excela tabelę ze strony www. Chciałbym, żeby zamiast adresu strony w kodzie umieścić wartość komórki B2, w której ten adres się znajduje. Jest to przygotowanie do zrobienia pętli, ponieważ w efekcie końcowym chciałbym pobierać większą ilość tabel.
Próbowałem dodać zmienną zrodlo
Dim zrodlo As Worksheet
Set zrodlo = ActiveWorkbook.Worksheets("arkusz2")
i wstawić w miejsce źródła strony:
źródło = zrodlo.Range("A2")
niestety to nie działa
część kodu:
ActiveCell.Select
ActiveWorkbook.Queries.Add Name:="Table 0", Formula:= _
Źródło = Web.Page(Web.Contents(""www.strona.pl""))
Z góry dziękuję za pomoc