Excel Vba - Odświeżanie Tabel - błąd odświeżania

witam
mam problem
przy uruchomieniu makra procedura wyrzuca mi błąd i nie wiem jak sobie poradzić
zmianna source zadeklarowana jest w następujący sposób
Public Source As Workbook
i jest do niej przypisany otwarty podczas wykonywania poniższego makra skoroszyt

treść błędu:
Run-time error '1004':
Application-defined or object-defined error

jak mogę sobie z tym poradzić?

0 9

Otwarty, ale czy aktywny? Być może odwołujesz się do nazw arkusza nie tego pliku. Dopisz na początku: Source.activate i daj znać, czy błąd nadal występuje.

Przy okazji: blok With wewnątrz bloku With nie wygląda dobrze. Powinno być raczej z jednym (wewnątrz pętli For): With Source.Sheets(k(i)). A skoro jest aktywny, samo With Sheets(k(i))

0

zmieniłem kod jak sugerowałeś ale nadal błąd wyrzuca

0

Witam

Jeżeli Source to skoroszyt to zrób tak

0

także nie pomogło

błąd wyrzuca przy lini:

treść błędu:
Run-time error '1004':
Application-defined or object-defined error

ręczne odświeżanie tabel oczywiście działa bez problemu

0

Jak jest jedna tabelka na arkuszy, sprobuj

IMHO BackgroundQuery dotyczy do QueryTable

0

dziękuję za podpowiedź ale nie pomogło niestety, gdzieś znalazłem sugestię że with może powodować problem ale to też zły trop
sprawdziłem ręcznie nagrywając makro, po kliknięciu w zakładce dane odśwież nagrało się makro
i to zadziałało

niby problem to rozwiązuje, ale ciekaw jestem dlaczego pojedyńczej tabeli nie mogę odświeżyć
napisałem jeszcze coś takiego:

i dla pierwszego arkusza się udało, ale dla 2 już makro zwróciło błąd:
run-time error '91'
object variable or with block variable not set
i nie rozumiem.
wszystkie arkusze w k są identyczne, zawierają tylko tabelę z SQL ściągniętą za pomocą Dane\Z innych źródeł\Z programu SQL Server
natomiast dla pierwszego "i" instrukcja:

zwraca nazwę tabeli w tym arkuszu
dla drugiego "i" instrukcja zwraca błąd '91'

bardzo bym chciał zrozumieć dlaczego

Dodano po 26 [minuty]:

oj pośpieszyłem się

nie do końca rozwiązuje problem
wyskakuje okienko z pytaniem czy przerwać odświeżanie tabeli, ponieważ następna już chce się odświeżać
a nie chcę wyłączać powiadomień bo nie wiem co się wtedy wydarzy
czy zostanie przerwane odświeżanie

czy może wie ktoś jak sprawdzić jakie obiekty występują w arkuszu?
myślę że to mogłoby mnie naprowadzić na właściwe rozwiązanie, ale nie wiem jak to sprawdzić

0

Zastanawiam się, czy prawidłowo do tego podchodzisz. Połączenia są chyba elementami skoroszytu, nie arkuszy.

Spróbuj przetestować

0

więc mam wynik
zmienną test zmieniłem na variant, żeby przy pierwszej pętli nie było błędu
część I:

Cytat:

For i = 1 To Source.Connections.Count
'czy tutaj coś przypisze, czy błąd
test = Source.Connections.Item(i).Name
'i co się wydarzy jeśli
Source.Connections.Item(1).Refresh
Next

zliczyła prawidłowo połączenia
i przepisała ich nazwy, ale odświeżanie tabel nie odbyło się
część II zwróciła błąd przy pierwszym i

Cytat:

For i = 0 To UBound(k)
Source.Sheets(k(i)).Select
'czy tutaj coś przypisze, czy błąd
test = Source.Sheets(k(i)).ListObject.Count
Next

nadal nie mam pojęcia jak odświeżyć tabele,
co jeszcze mogę spróbować?

0

witam
rozwiązałem problem, chociaż się niczego nie nauczyłem, nadal nie wiem jak to z poziomu vba zrobić
użyłem instrukcji

i zmieniłem w "Właściwości połączenia"
zakładka "Użycie"
odczekowałem "Włącz odświeżanie w tle"
wszystkie tabele się odświeżają, i instrukcja czeka z rozpoczęciem odświeżania następnej tabeli, aż odświeżanie pierwszej zostanie zakończone
więc mój problem jest rozwiązany

0