Judita ievietoja šīs nedēļas Excel jautājumu.
Man katru dienu jāimportē fails. Es vēlētos katru dienu pievienot failu esošai Excel darbgrāmatai, un darblapai jābūt nosauktai d / m / y.
Īss vizuālais pamata makro padarīs to par vienkāršu uzdevumu. Viena problēma - lapas cilnes nosaukumā nedrīkst būt slīpsvītra. Tātad risinājums pārdēvēs katras dienas lapu ar tādu nosaukumu kā "1999. gada 3. oktobris".
Risinājums ietver augšējās darblapas pievienošanu esošajai grāmatai. Šī lapa ar nosaukumu "Izvēlne" nodrošina vienkāršu lietotāja saskarni, lai vajadzības gadījumā jūs varētu nodot šo uzdevumu citam darbiniekam. Augšējā lapā ir šūnas, kurās lietotājs var norādīt importējamā faila ceļa un faila nosaukumu. Ja importējat citas sistēmas izveidotu failu, šie lauki katru dienu nemainīsies. Izvēlnes lapā ir arī šūna ar pašreizējo datumu, kas formatēts bez slīpsvītrām. Es iekļaušu automātiski atvērtu makro, kas automātiski aizpildīs šo šūnu lietotājam, taču viņi vienmēr var brīvi to mainīt, pirms noklikšķina uz pogas, lai importētu failu. Visbeidzot, izvēlnes lapā ir liela poga, uz kuras noklikšķinās lietotājs.Šī poga izsauks makro, lai importētu izvēlnē nosaukto failu pašreizējā grāmatā ar norādīto cilnes nosaukumu.
Atveriet jaunu darbgrāmatu tikai ar vienu lapu. Veiciet dubultklikšķi uz cilnes lapa un ierakstiet lapas nosaukumu ar nosaukumu "Izvēlne". Pievienojiet jauku nosaukumu šūnā A1. Šūnās C3: C5 pievienojiet tekstu, kā parādīts kreisajā pusē. Šūnā D3 ievadiet direktorija, kurā katru dienu tiek atrasts fails, ceļa nosaukumu. Šūnā D4 pievienojiet faila nosaukumu. Atstājiet D5 tukšu. Kad makro ir izveidots, ir vieglāk iestatīt pogu, tāpēc mēs to atstāsim vēlāk.
- Sāciet makro redaktoru ar alt = "" + F11
- Izvēlieties Ievietot - moduli
- Nokopējiet šo tekstu makro redaktorā
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 SubTagad atgriezieties programmā Excel un pievienojiet pogu izvēlnes lapai.
Kā pievienot pogu darblapai
- Parādiet veidlapu rīkjoslu, atlasot Skatīt - Rīkjoslas - Veidlapas
- Rīkjoslā atlasiet pogas rīku
- Turiet nospiestu alt = "" taustiņu, velciet no B8 augšējā stūra šūnā C9
- Dialoglodziņā Makro piešķiršana izvēlieties mūsu makro ar nosaukumu GetFile un noklikšķiniet uz Labi
- Kamēr poga joprojām ir atlasīta, varat noklikšķināt un vilkt, lai atlasītu pogas tekstu. Aizstājiet šo tekstu ar "Process!" vai jebkuru tekstu, kuru izvēlaties pats
Tagad jums ir pilnīgs pieteikums. Saglabājiet failu ērtā vietā. Kad šūnās D3: D4 esat iestatījis failu ar pareizu informāciju, ikdienas procedūra būs šāda:
- Atveriet tikko izveidoto failu
- Pārbaudiet, vai šūnā D5 norādītais datums ir piemērots.
- Noklikšķiniet uz lielās pogas.
- Saglabājiet failu
Šeit ir daži veidi, kā mainīt makro:
- Ja vēlaties, lai cilne tiktu nosaukta ar iepriekšējās dienas datumu, makro aiz “NOW ()” pievienojiet “-1”.
- Ja importējamajam failam ir vairākas lapas un mērķa lapa, iespējams, nav augšpusē, pēc tam pievienojiet izklājlapas ("lapas nosaukums"). Atlasiet aiz augšējās rindas File.Open.
