Judith lähetti tämän viikon Excel-kysymyksen.
Minun on tuotava tiedosto päivittäin. Haluaisin lisätä tiedoston joka päivä olemassa olevaan Excel-työkirjaan ja antaa laskentataulukon nimeksi d / m / y.
Lyhyt visuaalinen perusmakro tekee tästä yksinkertaisen tehtävän. Yksi ongelma - taulukon välilehden nimi ei voi sisältää kauttaviivaa. Joten ratkaisu nimeää jokaisen päivän taulukon uudelleen nimellä "03.10.1999".
Ratkaisu sisältää ylimmän laskentataulukon lisäämisen olemassa olevaan kirjaan. Tämä "Menu" -niminen taulukko tarjoaa yksinkertaisen käyttöliittymän, jotta voit tarvittaessa siirtää tämän tehtävän toiselle henkilöstön jäsenelle. Yläarkki sisältää soluja, joissa käyttäjä voi määrittää tuotavan tiedoston polun nimen ja tiedostonimen. Jos tuot toisen järjestelmän luomaa tiedostoa, nämä kentät eivät muutu päivittäin. Valikkolehti sisältää myös solun, jossa nykyinen päivämäärä on muotoiltu ilman kauttaviivoja. Lisään automaattisen avautuvan makron, joka täyttää tämän solun automaattisesti käyttäjälle, mutta he voivat aina vapaasti muuttaa sitä ennen tiedoston napsauttamista. Valikkolomakkeessa on iso painike, jonka käyttäjä napsauttaa.Tämä painike kehottaa makroa tuomaan valikossa mainitun tiedoston nykyiseen kirjaan, jonka välilehden nimi on määritetty.
Avaa uusi työkirja, jossa on vain yksi arkki. Kaksoisnapsauta taulukon välilehteä ja kirjoita taulukolle nimi nimeltä "Valikko". Lisää mukava otsikko soluun A1. Lisää soluihin C3: C5 teksti vasemmalla olevan kuvan mukaisesti. Syötä soluun D3 hakemiston polku, josta tiedosto löytyy joka päivä. Lisää soluun D4 tiedoston nimi. Jätä D5 tyhjäksi. Painikkeen asettaminen on helpompaa, kun makro on luotu, joten jätämme sen myöhemmäksi.
- Käynnistä makrotoimittaja näppäimillä alt = "" + F11
- Valitse Lisää - moduuli
- Kopioi seuraava teksti makron muokkausohjelmaan
Sub Auto_Open() ' This macro will put today's date as the default new tab name Sheets("Menu").Select Range("D5").Select Selection.Formula = "=text(now(),""mmm dd yyyy"")" Selection.Copy Selection.PasteSpecial Paste:=xlValues Application.CutCopyMode = False Selection.Columns.AutoFit Range("D8").Value = "" End Sub Sub GetFile() ' This macro will import a file into this workbook ' Copyright 1999 www.MrExcel.com Sheets("Menu").Select PathName = Range("D3").Value Filename = Range("D4").Value TabName = Range("D5").Value ControlFile = ActiveWorkbook.Name Workbooks.Open Filename:=PathName & Filename ActiveSheet.Name = TabName Sheets(TabName).Copy After:=Workbooks(ControlFile).Sheets(1) Windows(Filename).Activate ActiveWorkbook.Close SaveChanges:=False Windows(ControlFile).Activate Sheets("Menu").Select Range("D8").Select ActiveCell.Value = "Completed" Range("D9").Select End SubPalaa nyt Exceliin ja lisää painike valikkolomakkeeseen.
Kuinka lisätä painike laskentataulukkoon
- Näytä Lomakkeet-työkalurivi valitsemalla Näytä - Työkalurivit - Lomakkeet
- Valitse painiketyökalu työkaluriviltä
- Pidä alt = "" -näppäintä painettuna ja vedä B8: n yläkulmasta soluun C9
- Valitse Määritä makro -valintaikkunasta makro nimeltä GetFile ja napsauta OK
- Kun painike on edelleen valittuna, voit napsauttaa ja vetää valitaksesi painikkeen tekstin. Korvaa tämä teksti "Käsittele!" tai minkä tahansa valitsemasi tekstin
Sinulla on nyt täydellinen hakemus. Tallenna tiedosto sopivaan paikkaan. Kun olet määrittänyt tiedostosi oikeilla tiedoilla soluissa D3: D4, päivittäinen menettely on seuraava:
- Avaa juuri luomamme tiedosto
- Varmista, että solussa D5 näkyvä päivämäärä on oikea.
- Napsauta isoa painiketta.
- Tallenna tiedosto
Tässä on joitain tapoja muuttaa makroa:
- Jos haluat, että välilehdelle annetaan nimi edellisen päivän päivämäärä, lisää makroon "NOW ()" -kohdan jälkeen "-1".
- Jos tuotavassa tiedostossa on useita arkkia ja kohdearkki ei välttämättä ole yläosassa, lisää sitten Sheets ("arkin nimi"). Valitse yllä olevan File.Open-rivin jälkeen.
