Excel - Eksportowanie danych do innego arkusza kalkulacyjnego

Eksportowanie danych z jednego arkusza kalkulacyjnego Excel do innego arkusza kalkulacyjnego jest zawsze problemem, jeśli chcesz mieć ten sam smak w drugim. Dość często, gdy plik z Internetu jest eksportowany, jest zapisywany w nowym pliku, a nie w istniejącym. Ponowna konfiguracja zajmuje tyle czasu. Aby rozwiązać ten problem, należy użyć danych - zaimportuj opcję danych zewnętrznych w programie Excel z nowym zapytaniem internetowym, w którym należy wkleić adres strony internetowej . Następnie za pomocą opcji importu można uporządkować właściwe miejsce docelowe.

Kwestia
Rozwiązanie
Zauważ, że

Kwestia

Mam zapytanie. Gdy eksportuję plik z Internetu, dane są zapisywane w nowym pliku Excel zamiast arkusza Excela, w którym pracuję. W rezultacie muszę skopiować dane z tego pliku do pliku Excela, w którym pracuję. Bardzo czasochłonne. Czy istnieje krótsza metoda bezpośredniego eksportowania danych do działającego pliku Excel?
Mam inny osobny problem. Nagrałem makro dla konkretnego arkusza. To makro robi dwie rzeczy. 1. Istnieją dwa cols. Kolumna A i kolumna B. W col C odejmuje Col A od B. 2. Znajduje średnią ważoną między kol. A i C.

Teraz chcę uruchomić to makro we wszystkich arkuszach oprócz pierwszego arkusza. Jaki kod to zrobić?

Rozwiązanie

By rozwiązać ten problem:

Skopiuj adres strony w schowku Excel.
Idź do swojego arkusza.
Wybierz dowolną komórkę, z której chcesz skopiować plik. np. A1.
Kliknij dane zewnętrzne importu danych (lub coś podobnego w zależności od wersji) - nowe zapytanie internetowe.
W nowym oknie kwerendy internetowej wklej adres strony internetowej w górnej części „adres”.
Kliknij Go
Otrzymasz całą stronę internetową. Bez względu na to, jaką tabelę chcesz, kliknij znacznik, a cała tabela zostanie zaznaczona
Kliknij „importuj” w prawym dolnym rogu
Spyta, gdzie chcesz go zaparkować. Jeśli jest już A1, kliknij OK

Aby rozwiązać drugi problem:

 Sub test1 () Dim j Jako liczba całkowita, k jako liczba całkowita j = Worksheets.Count 'MsgBox j Dla k = 1 do j' MsgBox Arkusze (k). Nazwa Jeśli arkusze (k) .Name = "Sheet1" Następnie GoTo nnext Sheets ( k) .Activate NAME OF THE MACRO nnext: Next k End Sub