Judith feltette az e heti Excel kérdést.
Naponta importálnom kell egy fájlt. Szeretném minden nap hozzáadni a fájlt egy meglévő Excel munkafüzethez, és a munkalapot meg kellene nevezni a d / m / y névre.
Egy rövid vizuális alapmakróval ez egyszerű feladat lesz. Egy probléma - egy lap fülének neve nem tartalmazhat perjelet. Tehát a megoldás átnevezi a napi lapokat, hogy legyen olyan neve, mint "1999. október 03."
A megoldás magában foglalja a felső munkalap hozzáadását a meglévő könyvhöz. Ez a "Menü" nevű lap egyszerű felhasználói felületet biztosít, így szükség esetén átadhatja ezt a feladatot egy másik munkatársnak. A felső lap cellákat tartalmaz, ahol a felhasználó megadhatja az importálandó fájl elérési útját és fájlnevét. Ha egy másik rendszer által létrehozott fájlt importál, akkor ezek a mezők napról napra nem változnak. A Menü lap tartalmaz egy cellát is, az aktuális dátum perjel nélkül formázva. Felveszek egy automatikusan megnyíló makrót, amely automatikusan kitölti ezt a cellát a felhasználó számára, de mindig szabadon megváltoztathatják, mielőtt a fájl importálásához a gombra kattintanának. Végül a Menü lapon van egy nagy gomb, amelyre a felhasználó kattint.Ez a gomb felhívja a makrót, hogy a menüben megnevezett fájlt importálja az aktuális könyvbe, a fül nevével.
Nyisson meg egy új munkafüzetet, egyetlen lapból. Kattintson duplán a lap fülre, és írja be a lap nevét "Menü" néven. Adjon hozzá egy szép címet az A1 cellába. A C3: C5 cellákban adja hozzá a szöveget a bal oldalon látható módon. A D3 cellában adja meg annak a könyvtárnak az útvonalnevét, ahol a fájl minden nap megtalálható. A D4 cellába írja be a fájl nevét. Hagyja üresen a D5-öt. A makró létrehozása után könnyebb beállítani a gombot, ezért ezt későbbre hagyjuk.
- Indítsa el a Makrószerkesztőt az alt = "" + F11 paranccsal
- Válassza a Beszúrás - Modul lehetőséget
- Másolja a következő szöveget a makrószerkesztőbe
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 SubMost térjen vissza az Excel programhoz, és adjon hozzá egy gombot a Menü laphoz.
Gomb hozzáadása egy munkalaphoz
- Az Űrlapok eszköztár megjelenítéséhez válassza a Nézet - Eszköztárak - Űrlapok lehetőséget
- Válassza ki a Gomb eszközt az eszköztáron
- Tartsa lenyomva az alt = "" billentyűt, húzza a B8 felső sarkából a C9 cellába
- A Makró hozzárendelése párbeszédpanelen válassza a GetFile nevű makrónkat, majd kattintson az OK gombra
- Amíg a gomb még ki van választva, kattintson rá és húzza a gomb szövegének kiválasztásához. Cserélje le ezt a szöveget a "Folyamat!" vagy bármilyen, ön által választott szöveget
Most már megvan a teljes kérelem. Mentse el a fájlt egy kényelmes helyre. Miután beállította a fájlt a D3: D4 cellákban szereplő helyes információkkal, a napi eljárás a következő lesz:
- Nyissa meg az imént létrehozott fájlt
- Ellenőrizze, hogy a D5 cellában feltüntetett dátum megfelelő-e.
- Kattintson a nagy gombra.
- Mentse a fájlt
Íme néhány mód a makró megváltoztatására:
- Ha azt szeretné, hogy a lapot az előző napi dátummal nevezzék el, akkor a makróban a "NOW ()" után adjon hozzá egy "-1" -t.
- Ha az importálandó fájlnak több lapja van, és lehet, hogy a céllap nincs felül, akkor adja hozzá a Táblázatokat ("lapnév"). Válassza a fenti File.Open sor után.
