Jeśli chodzi o poprawianie kodu jaki załaczyłeś.

W kroku nr2 zamiast "A3:D3"

Replace(Range(Cells(1, 1), Cells(1, Cells(Columns.Count).End(xlToLeft).Column)).Address, "$", "")

W kroku nr3 zamiast "A4:D8"

Replace(Range(Cells(1, 1), Cells(1, 1).SpecialCells(xlLastCell)).Address, "$", "")

Należy tylko pamiętać że ilość wierszy dla łańcuchów ma być równa z tablica danych!

Pow kod nie ma obsługi błędu w przypadku wciśnięcia Anuluj !!! (mała niedoróbka producenta)

Co do wyciągania danych z MySQL to może administrator przygotować ci pobranie pliku względem parametrów jakie określisz w Urlu

@VBATools a jak dokładnie zniemic ten kod bo mi wywala cos błędy non stop :/

W miejscu adresów (są różne wiec je znajdziesz w kodzie), a które się podpowiadają w oknach inputbox należy zastąpić linijką jaką ci podałem pow.

W tedy ich wywołanie określi maxymalną wielkość nagłówka w pierwszym wierszu (niezbędne dla określeniu nazw łańcuchów) oraz przy następnym wywołaniu określi maksymalny użyty obszar danych arkusza.

O ile ilość wierszy nagłówka jest >= wierszy w tablicy to pozostaje po ich wyświetleniu jedynie je potwierdzić enterem.

Inną sprawą jest fakt całkowitego pozbycia się zapytań. W tym celu do zmiennych przypisujesz stałe wartości.

czy moglbys zmodyfikowac to w pliku bo ja juz nierwow do tego nie mam

http://dl.dropbox.com/u/11462445/Stany.xls

jakies pomysly..?? :/

Nie wiem dlaczego miałbyś tracić nerwy - przecież ty w tym pliku nic nie zrobiłeś!

Dałem ci na tacy dwie linijki kodu, które miałeś wkleić zamiast satałych adresów.

Ich konstrukcja pozwala automatycznie dobrać zakres przyszłego XMLa do danych jakie są zawarte w arkuszu.

Druga sprawa to fakt iż chcesz osadzać plik wynikowy w głównym drzewie napędu systemowego - to może jest istotą twojego problemu i objawieniu błędu. W nowych systemach jest to zabronione.

Zmieniam więc ścieżkę na "C:\Temp\", gdzie jest on automatycznie tworzony.

Plik masz gotowy, więc jak odświeżysz dane z qwerendy webowej mechanizm powinien sam dopasować wielkość tablicy exportu

WIelkie dzięki ... po przeanalizowaniu tego VBA "Twojego" juz wiem czemu mi sie krzaczyłoteraz powinno być ok ...

jeszcze raz dzięki :)