Excel - Export dat do jiné tabulky

Export dat z jedné tabulky aplikace Excel do jiné tabulky je vždy problém, pokud chcete mít stejnou chuť i ve druhé. Docela často, kdykoliv se exportuje soubor z Internetu, ukládá se do nového souboru, nikoli do existujícího. Překonfigurovat to trvá tolik času. Pro vyřešení tohoto problému je třeba použít v aplikaci Excel možnost dat - importovat externí data s novým webovým dotazem, do kterého musí být vložena adresa webové stránky . Poté lze pomocí volby importu vytřídit správný cíl.

Problém
Řešení
Všimněte si, že

Problém

Mám dotaz. Kdykoli exportuji soubor z internetu, data se uloží do nového souboru Excel namísto listu aplikace Excel, ve kterém pracuji. V důsledku toho musím zkopírovat data z tohoto souboru do souboru aplikace Excel, ve kterém pracuji. velmi časově náročné. Existuje kratší metoda pro přímý export dat do pracovního souboru Excel?
Mám další samostatný problém. Zaznamenal jsem makro pro konkrétní list. To makro dělá dvě věci. 1. Existují dva sloupy. Sloupec A a sloupec B. Ve sloupci C odečte Col A od B. 2. Nalezne vážený průměr mezi sloupcem A a C.

Nyní chci spustit toto makro ve všech listech s výjimkou prvního listu. Co to má udělat?

Řešení

Chcete-li tento problém vyřešit:

Zkopírujte adresu webové stránky do schránky aplikace Excel.
Přejděte na svůj list.
Vyberte libovolnou buňku, ze které chcete soubor zkopírovat. např. A1.
Klikněte na data pro import dat (nebo něco podobného v závislosti na verzi) - nový webový dotaz.
V novém okně webového dotazu vložte adresu webové stránky na začátek proti "adrese".
Klikněte na Go
Získáte celou webovou stránku. Ať už chcete jakoukoliv tabulku, klikněte na zaškrtávací značku a celá tabulka bude označena
V pravém dolním rohu klikněte na tlačítko „import“
Zeptá se, kam jej chcete zaparkovat. Pokud je již A1, klepněte na tlačítko OK

Chcete-li vyřešit druhý problém:

 Sub test1 () Dim j jako celé číslo, k jako Integer j = Worksheets.Count 'MsgBox j Pro k = 1 Do j' MsgBox listy (k) .Name Pokud listy (k) .Name = "Sheet1" Pak GoTo nnext listy ( k) .Aktivovat NÁZEV MAKRO nnext: Další k End Sub