Nëse procedura juaj VBA duhet të kërkojë nga përdoruesi një emër skedari, ju mund të përdorni funksionin InputBox dhe ta lini përdoruesin e Excel të bëjë disa shtypje. Një kuti hyrëse zakonisht nuk është mjeti më i mirë për këtë punë, megjithatë, sepse shumica e përdoruesve e kanë të vështirë të mbajnë mend shtigjet, prerjet e pasme, emrat e skedarëve dhe shtesat e skedarëve. Me fjalë të tjera, është shumë e lehtë të prishësh kur shkruani një emër skedari.
Për një zgjidhje më të mirë të këtij problemi, përdorni metodën GetOpenFilename të objektit Application, e cila siguron që kodi juaj të marrë në dorë një emër skedari të vlefshëm, duke përfshirë rrugën e tij të plotë. Metoda GetOpenFilename shfaq kutinë e njohur të dialogut Open (një zile e vdekur për kutinë e dialogut Excel shfaqet kur zgjidhni Skedar → Hap → Shfleto).
Metoda GetOpenFilename në fakt nuk e hap skedarin e specifikuar. Kjo metodë thjesht kthen emrin e skedarit të zgjedhur nga përdoruesi si një varg. Pastaj mund të shkruani kod për të bërë çfarë të doni me emrin e skedarit.
Sintaksa zyrtare e metodës GetOpenFilename është si më poshtë:
objekt.GetOpenFilename ([fileFilter], [filterIndex], [titulli], [Teksti i butonit], [MultiSelect])
Metoda GetOpenFilename merr argumentet opsionale më poshtë.
| Argumenti | Çfarë bën |
|---|---|
| Filter File | Përcakton llojet e skedarëve që shfaqen në kutinë e dialogut (për shembull, *.TXT). Ju mund të specifikoni disa filtra që përdoruesi të zgjedhë. |
| Indeksi i filtrit | Përcakton se cili prej skedarëve filtron kutia e dialogut shfaqet si parazgjedhje. |
| Titulli | Specifikon titullin për shiritin e titullit të kutisë së dialogut . |
| ButtonText | I injoruar (përdoret vetëm për versionin Macintosh të Excel). |
| Shumëzgjedhja | Nëse është e vërtetë, përdoruesi mund të zgjedhë skedarë të shumtë. |
Argumenti fileFilter përcakton se çfarë shfaqet në listën rënëse Files of Type të kutisë së dialogut. Ky argument përbëhet nga çifte vargjesh të filtrit të skedarëve të ndjekur nga specifikimi i filtrit të skedarit të shkronjave, me presje që ndajnë secilën pjesë dhe çift. Nëse hiqet, ky argument paracaktohet si vijon:
Te gjitha dokumentet (*.*), *.*
Vini re se ky varg përbëhet nga dy pjesë, të ndara me presje:
Te gjitha dokumentet (*.*)
dhe
*.*
Pjesa e parë e këtij vargu është teksti i shfaqur në listën rënëse Files of Type. Pjesa e dytë përcakton se cilët skedarë shfaq kutia e dialogut. Për shembull, *.* do të thotë të gjithë skedarët.
Kodi në shembullin e mëposhtëm hap një kuti dialogu që i kërkon përdoruesit një emër skedari. Procedura përcakton pesë filtra skedarësh. Vini re se sekuenca e vazhdimit të linjës VBA përdoret për të vendosur ndryshoren Filter; duke bërë këtë ndihmon në thjeshtimin e këtij argumenti mjaft të ndërlikuar.
Nën GetImportFileName ()
Dim Finfo As String
Zbehja e indeksit të filtrit për aq kohë sa
Titulli i zbehtë si varg
Emri i skedarit zbeh si variant
Krijoni listën e filtrave të skedarëve
FIinfo = "Skedarët e tekstit (*.txt),*.txt", & _
"Skedarët Lotus (*.prn),*.prn," & _
"Skedarët e ndarë me presje (*.csv),*.csv," & _
"Skedarët ASCII (*.asc),*.asc," & _
"Te gjitha dokumentet (*.*),*.*"
' Shfaq *.* si parazgjedhje
Indeksi i filtrit = 5
' Cakto titullin e kutisë së dialogut
Titulli = "Zgjidh një skedar për të importuar"
' Merr emrin e skedarit
Emri i skedarit = Application.GetOpenFilename (FInfo, _
FilterIndex, Titulli)
' Trajtoni informacionin e kthimit nga kutia e dialogut
Nëse Emri i Skedarit = False Atëherë
MsgBox "Nuk u zgjodh asnjë skedar."
Përndryshe
MsgBox "Zgjodheve" & Emri i skedarit
Fundi Nëse
Fundi Nën
Këtu është kutia e dialogut që shfaqet Excel kur ekzekutoni këtë procedurë. Pamja mund të ndryshojë, në varësi të versionit të Windows që përdorni dhe opsioneve të ekranit që keni vendosur.
Metoda GetOpen Filename shfaq një kuti dialogu të personalizueshme dhe kthen shtegun dhe emrin e skedarit të zgjedhur. Nuk e hap skedarin.
Në një aplikacion të vërtetë, do të bënit diçka më kuptimplote me emrin e skedarit. Për shembull, mund të dëshironi ta hapni atë duke përdorur një deklaratë të tillë si kjo:
Librat e punës.Hap Emri i Skedarit
Vini re se ndryshorja FileName është deklaruar si lloj i të dhënave Variant. Nëse përdoruesi klikon Cancel, ajo variabël përmban një vlerë Boolean (False). Përndryshe, emri i skedarit është një varg. Prandaj, përdorimi i një lloji të të dhënave Variant trajton të dyja mundësitë.
Nëse keni përdorur stilolapsin ose theksuesin për të vizatuar në rrëshqitjet tuaja në PowerPoint gjatë një prezantimi, mund t'i ruani vizatimet për prezantimin tjetër ose t'i fshini ato, kështu që herën tjetër që ta shfaqni, do të filloni me sllajde të pastra të PowerPoint. Ndiqni këto udhëzime për të fshirë vizatimet me stilolaps dhe theksues: Fshirja e rreshtave një në […]
Biblioteka e stileve përmban skedarë CSS, skedarë të gjuhës së fletë stili të zgjeruar (XSL) dhe imazhe të përdorura nga faqet kryesore të paracaktuara, paraqitjet e faqeve dhe kontrollet në SharePoint 2010. Për të gjetur skedarët CSS në bibliotekën e stileve të një siti botimi: Zgjidhni Veprimet e sitit→ Shiko E gjithë përmbajtja e faqes. Shfaqet përmbajtja e faqes. Biblioteka Style ndodhet në […]
Mos e mbingarkoni audiencën tuaj me numra gjigantë. Në Microsoft Excel, ju mund të përmirësoni lexueshmërinë e paneleve dhe raporteve tuaja duke formatuar numrat tuaj që të shfaqen në mijëra ose miliona.
Mësoni se si të përdorni mjetet e rrjeteve sociale të SharePoints që lejojnë individët dhe grupet të komunikojnë, bashkëpunojnë, ndajnë dhe lidhen.
Datat Juliane përdoren shpesh në mjediset e prodhimit si një vulë kohore dhe referencë e shpejtë për një numër grupi. Ky lloj kodimi i datës i lejon shitësit me pakicë, konsumatorët dhe agjentët e shërbimit të identifikojnë se kur është prodhuar një produkt, dhe kështu moshën e produktit. Hurmat Juliane përdoren gjithashtu në programim, ushtri dhe astronomi. Të ndryshme […]
Mund të krijoni një aplikacion ueb në Access 2016. Pra, çfarë është një aplikacion ueb gjithsesi? Epo, ueb do të thotë se është në internet dhe aplikacioni është thjesht stenografi për "aplikacion". Një aplikacion ueb i personalizuar është një aplikacion i bazës së të dhënave në internet që aksesohet nga cloud duke përdorur një shfletues. Ju ndërtoni dhe mirëmbani aplikacionin në internet në versionin e desktopit […]
Shumica e faqeve në SharePoint 2010 shfaqin një listë të lidhjeve të navigimit në shiritin e nisjes së shpejtë përgjatë anës së majtë të faqes. Shiriti i Nisjes së Shpejtë shfaq lidhjet me përmbajtjen e veçuar të sajtit si listat, bibliotekat, sajtet dhe faqet e botimit. Shiriti i Nisjes së Shpejtë përfshin dy lidhje shumë të rëndësishme: Lidhja e gjithë përmbajtjes së sitit: […]
Për probleme të thjeshta, Solver në Excel zakonisht gjen shpejt vlerat optimale të variablave Zgjidhës për funksionin objektiv. Por, në disa raste, Solver ka vështirësi në gjetjen e vlerave të ndryshores Solver që optimizojnë funksionin objektiv. Në këto raste, Solver zakonisht shfaq një mesazh ose një mesazh gabimi që përshkruan ose diskuton problemet që […]
Mund të hiqni lehtësisht fushat dhe artikujt e llogaritur nga një tabelë kryesore e Excel. Për të hequr një fushë të llogaritur, klikoni një qelizë në tabelën kryesore. Pastaj klikoni komandën Fields, Items & Sets të skedës Analize dhe zgjidhni Fushën e llogaritur nga nënmenyja që shfaqet. Kur Excel shfaq kutinë e dialogut Fut fushën e llogaritur, zgjidhni […]
Etiketat janë fjalë kyçe që ju i caktoni përmbajtjes. Etiketimi i faqeve për t'i ndarë me të tjerët është faqeshënues social dhe është shumë i popullarizuar në ueb dhe është i lehtë në SharePoint. Nëse keni përdorur ndonjëherë një sajt si Delicious, tashmë e dini se si funksionon shënimi social. Ndërsa më shumë njerëz caktojnë të njëjtat etiketa, etiketat bëhen një mënyrë […]
