Excel - tietojen vieminen toiseen laskentataulukkoon

Tietojen vieminen yhdestä Excel- laskentataulukosta toiseen laskentataulukkoon on aina ongelma, jos haluat myös saman makun toisessa. Aina usein, kun Internet- tiedostoa viedään, se tallennetaan uuteen tiedostoon, ei olemassa olevaan tiedostoon. Se kestää niin paljon aikaa, että se on määritetty uudelleen. Tämän ongelman ratkaisemiseksi on käytettävä Excel-datan tuonti- ulkoista data -vaihtoehtoa uudella web-kyselyllä, johon Web-sivun osoite on liitettävä. Sitten voidaan tuoda tuonti- vaihtoehtoa käyttäen oikea kohde.

Ongelma
Ratkaisu
Ota huomioon, että

Ongelma

Minulla on kysely. Aina kun viet tiedoston Internetistä, tiedot tallennetaan uuteen Excel-tiedostoon Excel-sivun sijasta. Tämän seurauksena minun on kopioitava kyseisestä tiedostosta saadut tiedot Excel-tiedostoon, jossa työskentelen. erittäin aikaa vievää. Onko lyhyempi tapa viedä tiedot suoraan Excel-tiedostoon?
Minulla on toinen erillinen ongelma. Olen tallentanut makron tietylle työarkille. Tämä makro tekee kaksi asiaa. 1. On kaksi kolaria. Sarake A ja sarake B. Kolonnissa C se vähentää Col A: n B: stä 2. Se löytää painotetun keskiarvon A: n ja C: n välillä.

Nyt haluan suorittaa tämän makron kaikissa työarkeissa paitsi ensimmäisen laskentataulukon. Mikä koodi on tehtävä?

Ratkaisu

Voit ratkaista tämän ongelman seuraavasti:

Kopioi verkkosivun osoite Excel-leikepöydälle.
Mene sivulle.
Valitse mikä tahansa solu, josta haluat kopioida tiedoston. esim. A1.
Napsauta datan tuontia koskevia ulkoisia tietoja (tai jotain tällaista riippuen versiosta) - uusi web-kysely.
Liitä uudessa web-kyselyikkunassa verkkosivun osoite yläosassa osoitteeseen "osoite".
Valitse Siirry
Saat koko verkkosivun. Mikä tahansa haluamasi taulukko, napsauta rasti-merkkiä ja koko taulukko on merkitty
Napsauta "tuonti" oikeassa alakulmassa
Se kysyy, mihin haluat pysäköidä sen. Jos se on jo A1, napsauta ok

Toisen ongelman ratkaiseminen:

 Sub test1 () Dim j Integer, k Asentajana j = Worksheets.Count 'MsgBox j k = 1 To j' MsgBox Sheets (k) .Name If Sheets (k) .Name = "Sheet1" sitten GoTo nnext Sheets ( k) .Käynnistä MACRO nnext: NIMI: Next k End Sub