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
Ota huomioon, että
Kiitos venkat1926 tästä vinkistä foorumissa.