Excel - Gegevens exporteren naar een andere spreadsheet

Het exporteren van gegevens van een Excel- spreadsheet naar een andere spreadsheet is altijd een probleem als u dezelfde smaak ook in de tweede wilt hebben. Heel vaak, wanneer een bestand van internet wordt geëxporteerd, wordt het opgeslagen in een nieuw bestand, niet in het bestaande. Het kost zoveel tijd om het opnieuw te configureren. Om dit probleem op te lossen, moet men data gebruiken - importeer externe gegevensoptie onder Excel met een nieuwe webvraag waarbij het adres van de webpagina moet worden geplakt. Vervolgens kan met behulp van de importoptie de juiste bestemming worden gesorteerd.

Kwestie
Oplossing
Let daar op

Kwestie

Ik heb een vraag. Telkens wanneer ik een bestand exporteer vanaf internet, worden de gegevens opgeslagen in een nieuw Excel-bestand in plaats van het Excel-werkblad waarin ik werk. Als gevolg hiervan moet ik de gegevens van dat bestand kopiëren naar het Excel-bestand waarin ik werk. Dit is zeer tijdrovend. Is er een kortere methode om de gegevens direct in het werkende Excel-bestand te exporteren?
Ik heb nog een ander probleem. Ik heb een macro opgenomen voor een bepaald werkblad. Die macro doet twee dingen. 1. Er zijn twee cols. Kolom A en Kolom B. In kolom C trekt het Kolom A af van B. 2. Het vindt het gewogen gemiddelde tussen Kol A en C.

Nu wil ik deze macro in alle werkbladen uitvoeren, behalve het eerste werkblad. Wat is de code om dat te doen?

Oplossing

Om dit probleem op te lossen:

Kopieer het adres van de webpagina in Excel-klembord.
Ga naar je blad.
Selecteer een cel waaruit u het bestand wilt kopiëren. bijvoorbeeld A1.
Klik op data-import externe gegevens (of iets dergelijks afhankelijk van de versie) - nieuwe webquery.
Plak in het nieuwe webqueryvenster het adres van de webpagina bovenaan tegen "adres".
Klik op Go
U krijgt de hele webpagina. Welke tabel u ook wilt, klik op het vinkje en de hele tabel wordt gemarkeerd
Klik rechtsonder op "importeren"
Hij zal vragen waar je hem wilt parkeren. Als het al A1 is, klik dan op OK

Om het tweede probleem op te lossen:

 Subtest1 () Dim j As Integer, k As Integer j = Worksheets.Count 'MsgBox j Voor k = 1 Aan j' MsgBox-bladen (k) .Name If Sheets (k) .Name = "Sheet1" Ga vervolgens naar Volgende om bladen te hernoemen ( k). Activeren NAAM VAN DE MACRO Volgende vervolg: Volgende k End Sub