Excel - izvoz podataka u drugu proračunsku tablicu

Izvoz podataka iz jedne Excelove proračunske tablice u drugu proračunsku tablicu uvijek je problem ako želite imati isti okus iu drugoj. Vrlo često, kad god se datoteka iz Interneta izvozi, ona se sprema u novu datoteku, a ne u postojeću. Potrebno je toliko vremena da ga ponovo konfigurirate. Da bi se riješio ovaj problem, potrebno je koristiti opciju data- import external data u Excelu s novim web upitom gdje se mora zalijepiti adresa web stranice . Zatim, koristeći opciju uvoza, pravo odredište može se razvrstati.

Problem
Riješenje
Zapamtite to

Problem

Imam upit. Kad god izvezem datoteku s interneta, podaci se spremaju u novu Excel datoteku umjesto u Excel list u kojem radim. Kao rezultat toga moram kopirati podatke iz te datoteke u Excel datoteku u kojoj radim. vrlo dugotrajan. Postoji li kraći način izravnog izvoza podataka u radnu Excel datoteku?
Imam još jedan poseban problem. Snimio sam makronaredbu za određeni radni list. Taj makro čini dvije stvari. 1. Postoje dva stupca. Stupac A i stupac B. U kolonu C oduzima Col A iz B. 2. Nalazi ponderirani prosjek između col A i C.

Sada želim pokrenuti ovu makronaredbu na svim radnim listovima osim prvog radnog lista. Što je kod za to?

Riješenje

Da biste riješili ovaj problem:

Kopirajte adresu web-stranice u Excel međuspremnik.
Idite na svoj list.
Odaberite bilo koju ćeliju iz koje želite kopirati datoteku. npr. A1.
Kliknite podatke o uvozu podataka (ili nešto slično ovisno o verziji) - novi web-upit.
U novom prozoru web upita zalijepite adresu web-stranice pri vrhu naslova "adresa".
Kliknite na Idi
Dobit ćete cijelu web stranicu. Koju god tablicu želite, kliknite na kvačicu i cijela tablica će biti označena
Kliknite "uvoz" u donjem desnom kutu
Pitat će vas gdje ga želite parkirati. Ako je već A1 kliknite na OK

Da biste riješili drugi problem:

 Sub test1 () Dim j As Integer, k As Integer j = Radni listovi.Count 'MsgBox j Za k = 1 To j' MsgBox Listovi (k) .Name Ako su listovi (k) .Name = "Sheet1" Zatim GoTo nnext Sheets k) .Aktivirati IME MACRO-a nnext: Next k End Sub