Јудитх је поставила овонедељно Екцел питање.
Морам свакодневно да увозим датотеку. Желио бих да датотеку додајем сваки дан у постојећу Екцел радну свеску и да имам радни лист назван за д / м / и.
Кратки визуелни основни макро чиниће ово једноставним задатком. Један проблем - назив картице на листу не може садржавати косу црту. Дакле, решење ће преименовати листове сваког дана у име попут "03. октобар 1999".
Решење укључује додавање најбољег радног листа у постојећу књигу. Овај лист, назван „Мени“, пружа једноставан кориснички интерфејс тако да овај задатак можете предати другом члану особља, ако је потребно. Горњи лист садржи ћелије у којима корисник може одредити име путање и име датотеке за увоз. Ако увозите датотеку коју је креирао други систем, онда се ова поља неће мењати из дана у дан. Лист са менијима такође садржи ћелију са тренутним датумом форматирану без косе црте. Укључићу аутоматски отворен макро који ће аутоматски попунити ову ћелију за корисника, али увек је може слободно променити пре него што кликне на дугме за увоз датотеке. Коначно, лист Мени има велико дугме на које ће корисник кликнути.Ово дугме ће позвати макро за увоз датотеке именоване у мени у тренутну књигу са наведеним именом картице.
Отворите нову радну свеску са само једним листом. Двапут кликните на картицу листа и унесите назив листа под називом "Мени". Додајте леп наслов у ћелију А1. У ћелије Ц3: Ц5 додајте текст као што је приказано лево. У ћелију Д3 унесите име путање за директоријум у којем се датотека свакодневно налази. У ћелију Д4 додајте име датотеке. Оставите Д5 празно. Лакше је поставити дугме када се макро креира, па ћемо то оставити за касније.
- Покрените Мацро Едитор са алт = "" + Ф11
- Изаберите Уметни - модул
- Копирајте следећи текст у уређивач макронаредби
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Сада се вратите у Екцел и додајте дугме на листу Мени.
Како додати дугме на радни лист
- Прикажите траку са алаткама Обрасци избором Поглед - Траке са алаткама - Обрасци
- Изаберите алатку Дугме на траци са алаткама
- Држите тастер алт = "", превуците из горњег угла Б8 у ћелију Ц9
- У дијалогу Додељивање макронаредби изаберите наш макро под називом ГетФиле и кликните У реду
- Док је дугме и даље одабрано, можете да кликнете и превучете да бисте изабрали текст на њему. Замените овај текст са „Процес!“ или било који текст по вашем избору
Сада имате комплетну пријаву. Спремите датотеку на прикладно место. Једном када датотеку подесите са тачним информацијама у ћелије Д3: Д4, дневни поступак ће бити следећи:
- Отворите датотеку коју смо управо креирали
- Уверите се да је датум приказан у ћелији Д5 одговарајући.
- Кликните велико дугме.
- Сачувајте датотеку
Ево неколико начина на које можете променити макро:
- Ако желите да картица носи назив са датумом претходног дана, додајте „-1“ иза „НОВ ()“ у макро.
- Ако датотека која се увози има више листова, а циљни лист можда није на врху, додајте Табеле („назив листа“). Изаберите после горњег реда Филе.Опен.
