Judith zverejnila tento týždeň otázku v programe Excel.
Potrebujem každý deň importovať súbor. Chcel by som každý deň pridať súbor do existujúceho zošita programu Excel a nechať pracovný hárok pomenovaný pre d / m / r.
Vďaka krátkemu makru jazyka Visual Basic bude táto úloha jednoduchá. Jeden problém - názov karty v hárku nemôže obsahovať lomku. Riešenie teda premenuje každý deň hárok tak, aby mal názov napríklad „3. októbra 1999“.
Riešenie spočíva v pridaní horného hárka do vašej existujúcej knihy. Tento hárok s názvom „Ponuka“ poskytuje jednoduché užívateľské rozhranie, takže v prípade potreby môžete túto úlohu odovzdať inému zamestnancovi. Horný list obsahuje bunky, kde môže používateľ určiť názov cesty a názov súboru, ktorý sa má importovať. Ak importujete súbor vytvorený iným systémom, tieto polia sa nezmenia zo dňa na deň. Hárok ponuky obsahuje aj bunku s aktuálnym dátumom naformátovanú bez lomiek. Zahrniem automaticky otvárateľné makro, ktoré automaticky vyplní túto bunku pre používateľa, ale vždy ho môže slobodne zmeniť pred kliknutím na tlačidlo na importovanie súboru. Nakoniec má list ponuky veľké tlačidlo, na ktoré používateľ klikne.Toto tlačidlo vyvolá makro na import súboru s názvom v ponuke do aktuálnej knihy so zadaným názvom karty.
Otvorte nový zošit iba s jedným hárkom. Dvakrát kliknite na kartu hárka a zadajte názov hárku s názvom „Ponuka“. Pridajte pekný nadpis do bunky A1. Do buniek C3: C5 pridajte text podľa obrázka vľavo. V bunke D3 zadajte cestu k adresáru, kde sa súbor nachádza každý deň. Do bunky D4 pridajte názov súboru. D5 nechajte nevyplnené. Po vytvorení makra je jednoduchšie nastaviť tlačidlo, takže si to necháme na neskôr.
- Spustite editor makier pomocou alt = "" + F11
- Vyberte Vložiť - modul
- Skopírujte nasledujúci text do editora makier
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 SubTeraz sa vráťte späť do programu Excel a pridajte tlačidlo do hárka ponuky.
Ako pridať tlačidlo do pracovného hárka
- Panel nástrojov formulárov zobrazíte výberom možnosti Zobraziť - Panely nástrojov - Formuláre
- Na paneli nástrojov vyberte nástroj Tlačidlo
- Podržte kláves alt = "" a ťahajte z horného rohu B8 do bunky C9
- V dialógovom okne Priradiť makro vyberte naše makro s názvom GetFile a kliknite na tlačidlo OK
- Keď je tlačidlo stále vybrané, môžete kliknúť a presunúť a vybrať text na tlačidle. Nahraďte tento text textom „Spracovať!“ alebo akýkoľvek text podľa vlastného výberu
Teraz máte kompletnú aplikáciu. Uložte súbor na vhodné miesto. Po nastavení súboru so správnymi informáciami v bunkách D3: D4 bude denný postup nasledujúci:
- Otvorte súbor, ktorý sme práve vytvorili
- Skontrolujte, či je dátum uvedený v bunke D5 vhodný.
- Kliknite na veľké tlačidlo.
- Uložte súbor
Tu je niekoľko spôsobov, ako môžete zmeniť makro:
- Ak chcete, aby bola karta pomenovaná s dátumom predchádzajúceho dňa, pridajte do makra „-1“ za „NOW ()“.
- Ak má súbor, ktorý sa má importovať, viac hárkov a cieľový hárok nemusí byť navrchu, pridajte hárky („názov hárku“). Vyberte ich po položke File.Open line vyššie.
