Джудит публикува въпроса за Excel тази седмица.
Трябва да импортирам файл всеки ден. Бих искал да добавям файла всеки ден към съществуваща работна книга на Excel и работният лист да е наречен за d / m / y.
Кратък визуален основен макрос ще направи това проста задача. Един проблем - името на раздела на лист не може да включва наклонена черта. И така, решението ще преименува всекидневния лист, за да има име като "03 октомври 1999".
Решението включва добавяне на най-добър работен лист към съществуващата ви книга. Този лист, наречен "Меню", предоставя прост потребителски интерфейс, така че можете да предадете тази задача на друг член на персонала, ако е необходимо. Най-горният лист съдържа клетки, където потребителят може да посочи името на пътя и името на файла за импортиране. Ако импортирате файл, създаден от друга система, тези полета няма да се променят от ден на ден. Листът с меню също съдържа клетка с текущата дата, форматирана без наклонени черти. Ще включа автоматично отворен макрос, който автоматично ще попълни тази клетка за потребителя, но те винаги са свободни да я променят, преди да щракнат бутона за импортиране на файла. И накрая, листът с меню има голям бутон, който потребителят ще щракне.Този бутон ще извика макроса, за да импортира файла с име в менюто в текущата книга с посочено име на раздела.
Отворете нова работна книга само с един лист. Щракнете двукратно върху раздела на листа и въведете име за листа, наречено "Меню". Добавете хубаво заглавие в клетка A1. В Клетки C3: C5, добавете текста, както е показано вляво. В клетка D3 въведете името на пътя за директорията, където файлът се намира всеки ден. В клетка D4 добавете името на файла. Оставете D5 празно. По-лесно е да настроите бутона, след като макросът бъде създаден, така че ще оставим това за по-късно.
- Стартирайте Macro Editor с alt = "" + F11
- Изберете Вмъкване - Модул
- Копирайте следния текст в редактора на макроси
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 SubСега се върнете в Excel и добавете бутон към листа с менюта.
Как да добавите бутон към работен лист
- Покажете лентата с инструменти на формулярите, като изберете Изглед - Ленти с инструменти - Форми
- Изберете инструмента Бутон от лентата с инструменти
- Задръжте натиснат бутона alt = "", плъзнете от горния ъгъл на B8 в клетка C9
- От диалоговия прозорец Присвояване на макрос изберете нашия макрос, наречен GetFile, и щракнете върху OK
- Докато бутонът все още е избран, можете да щракнете и плъзнете, за да изберете текста на бутона. Заменете този текст с „Процес!“ или текст по ваш избор
Вече имате пълното приложение. Запазете файла на удобно място. След като настроите файла си с правилната информация в клетки D3: D4, дневната процедура ще бъде следната:
- Отворете току-що създадения файл
- Проверете дали датата, показана в клетка D5, е подходяща.
- Щракнете върху големия бутон.
- Запазете файла
Ето няколко начина, по които можете да промените макроса:
- Ако искате раздела да бъде именуван с датата на предходния ден, добавете "-1" след "СЕГА ()" в макроса.
- Ако файлът, който ще се импортира, има няколко листа и целевият лист може да не е отгоре, тогава добавете Sheets ("име на лист"). Изберете след реда File (Файл) Отвори по-горе.
