Ja jūsu VBA procedūru nepieciešams lūgt lietotāju faila nosaukumu, jūs varētu izmantot InputBox funkciju un ļaut Excel lietotājs darīt kādu rakstīt. Tomēr ievades lodziņš parasti nav labākais rīks šim darbam, jo lielākajai daļai lietotāju ir grūti atcerēties ceļus, slīpsvītras, failu nosaukumus un failu paplašinājumus. Citiem vārdiem sakot, to ir pārāk viegli sabojāt, ierakstot faila nosaukumu.
Lai labāk atrisinātu šo problēmu, izmantojiet lietojumprogrammas objekta metodi GetOpenFilename, kas nodrošina, ka kods tiek izmantots derīgam faila nosaukumam, tostarp pilnam tā ceļam. Metode GetOpenFilename parāda pazīstamo dialoglodziņu Atvērt (dialoglodziņa Excel zvana signāls tiek parādīts, kad izvēlaties Fails → Atvērt → Pārlūkot).
GetOpenFilename metode faktiski neatver norādīto failu. Šī metode vienkārši atgriež lietotāja atlasīto faila nosaukumu kā virkni. Pēc tam varat rakstīt kodu, lai ar faila nosaukumu darītu visu, ko vēlaties.
GetOpenFilename metodes oficiālā sintakse ir šāda:
object.GetOpenFilename ([fileFilter], [filterIndex], [nosaukums], [buttonText], [multiSelect])
Metode GetOpenFilename izmanto tālāk norādītos neobligātos argumentus.
| Arguments | Ko tas dara |
|---|---|
| Failu filtrs | Nosaka dialoglodziņā redzamo failu tipus (piemēram, *.TXT). Varat norādīt vairākus filtrus, no kuriem lietotājs var izvēlēties. |
| FilterIndex | Nosaka, kurš no failu filtriem dialoglodziņā tiek rādīts pēc noklusējuma. |
| Nosaukums | Norāda dialoglodziņa virsraksta joslas parakstu . |
| Pogas teksts | Ignorēts (izmanto tikai Excel Macintosh versijai). |
| MultiSelect | Ja True, lietotājs var atlasīt vairākus failus. |
Arguments fileFilter nosaka, kas tiek rādīts dialoglodziņa nolaižamajā sarakstā Files of Type. Šis arguments sastāv no failu filtru virkņu pāriem, kam seko aizstājējzīmes faila filtra specifikācija ar komatiem, kas atdala katru daļu un pāri. Ja tas tiek izlaists, šis arguments pēc noklusējuma ir šāds:
Visi faili (*.*), *.*
Ņemiet vērā, ka šī virkne sastāv no divām daļām, kas atdalītas ar komatu:
Visi faili (*.*)
un
*.*
Šīs virknes pirmā daļa ir teksts, kas tiek parādīts nolaižamajā sarakstā Files of Type. Otrā daļa nosaka, kuri faili tiek parādīti dialoglodziņā. Piemēram, *.* nozīmē visus failus.
Kods šajā piemērā atver dialoglodziņu, kurā lietotājam tiek prasīts faila nosaukums. Procedūra nosaka piecus failu filtrus. Ņemiet vērā, ka mainīgā filtra iestatīšanai tiek izmantota VBA rindas turpinājuma secība; tas palīdz vienkāršot šo diezgan sarežģīto argumentu.
Sub GetImportFileName ()
Dim Finfo As String
Dim FilterIndex As Long
Dim Title As String
Dim Faila nosaukums kā variants
Iestatiet failu filtru sarakstu
FIinfo = "Teksta faili (*.txt),*.txt" & _
“Lotus Files (*.prn),*.prn” & _
“Komatatdalītie faili (*.csv),*.csv” un _
“ASCII faili (*.asc),*.asc” un _
"Visi faili (*.*),*.*"
Pēc noklusējuma rādīt *.*
Filtra indekss = 5
Iestatiet dialoglodziņa parakstu
Title = “Atlasiet importējamo failu”
Iegūstiet faila nosaukumu
FileName = Application.GetOpenFilename (FIinfo, _
FilterIndex, Title)
Apstrādājiet atgriešanas informāciju no dialoglodziņa
Ja FileName = False, tad
MsgBox "Netika atlasīts neviens fails."
Citādi
MsgBox “Jūs atlasījāt “ & faila nosaukums
Beigas Ja
Beigu apakš
Šis ir dialoglodziņš, ko programma Excel parāda, izpildot šo procedūru. Izskats var atšķirties atkarībā no izmantotās Windows versijas un iestatītajām displeja opcijām.
GetOpen Filename metode parāda pielāgojamu dialoglodziņu un atgriež atlasītā faila ceļu un nosaukumu. Tas neatver failu.
Reālā lietojumprogrammā jūs darītu kaut ko jēgpilnāku ar faila nosaukumu. Piemēram, varat to atvērt, izmantojot šādu paziņojumu:
Workbooks.Open FileName
Ņemiet vērā, ka mainīgais FileName ir deklarēts kā datu tips Variants. Ja lietotājs noklikšķina uz Atcelt, šis mainīgais satur Būla vērtību (False). Pretējā gadījumā faila nosaukums ir virkne. Tāpēc, izmantojot datu tipu Variant, tiek izmantotas abas iespējas.
Kā neļaut Microsoft Word atvērt failus tikai lasīšanas režīmā operētājsistēmā Windows Microsoft Word atver failus tikai lasīšanas režīmā, padarot tos neiespējamu rediģēt? Neuztraucieties, metodes ir norādītas zemāk
Kā labot kļūdas, drukājot nepareizus Microsoft Word dokumentus.Kļūdas Word dokumentu drukāšanā ar mainītiem fontiem, nekārtīgām rindkopām, trūkstoša teksta vai pazaudētu saturu ir diezgan izplatītas. Tomēr nevajag
Ja prezentācijas laikā esat izmantojis pildspalvu vai marķieri, lai zīmētu uz PowerPoint slaidiem, varat saglabāt zīmējumus nākamajai prezentācijai vai izdzēst tos, lai nākamajā reizē, kad to parādīsit, jūs sāktu ar tīriem PowerPoint slaidiem. Izpildiet šos norādījumus, lai dzēstu pildspalvas un marķiera zīmējumus: Līniju dzēšana pa vienai […]
Stilu bibliotēkā ir CSS faili, paplašināmās stila lapu valodas (XSL) faili un attēli, ko izmanto iepriekš definētas šablona lapas, lapu izkārtojumi un vadīklas programmā SharePoint 2010. Lai atrastu CSS failus publicēšanas vietnes stilu bibliotēkā: izvēlieties Vietnes darbības → Skatīt Viss vietnes saturs. Tiek parādīts vietnes saturs. Stila bibliotēka atrodas […]
Nepārsedziet savu auditoriju ar milzīgiem skaitļiem. Programmā Microsoft Excel varat uzlabot informācijas paneļu un pārskatu lasāmību, formatējot skaitļus tā, lai tie tiktu rādīti tūkstošos vai miljonos.
Uzziniet, kā izmantot SharePoints sociālo tīklu rīkus, kas ļauj indivīdiem un grupām sazināties, sadarboties, koplietot un sazināties.
Jūlija datumi ražošanas vidēs bieži tiek izmantoti kā laikspiedols un ātra atsauce partijas numuram. Šāda veida datuma kodēšana ļauj mazumtirgotājiem, patērētājiem un pakalpojumu aģentiem noteikt produkta izgatavošanas laiku un līdz ar to arī produkta vecumu. Jūlija datumi tiek izmantoti arī programmēšanā, militārajā jomā un astronomijā. Savādāk […]
Programmā Access 2016 varat izveidot tīmekļa lietotni. Kas tad vispār ir tīmekļa lietotne? Tīmeklis nozīmē, ka tas ir tiešsaistē, un lietotne ir tikai “lietojumprogrammas” saīsinājums. Pielāgota tīmekļa lietotne ir tiešsaistes datu bāzes lietojumprogramma, kurai var piekļūt no mākoņa, izmantojot pārlūkprogrammu. Jūs veidojat un uzturat tīmekļa lietotni darbvirsmas versijā […]
Lielākā daļa SharePoint 2010 lapu ātrās palaišanas joslā lapas kreisajā pusē parāda navigācijas saišu sarakstu. Ātrās palaišanas joslā tiek rādītas saites uz piedāvāto vietņu saturu, piemēram, sarakstiem, bibliotēkām, vietnēm un publicēšanas lapām. Ātrās palaišanas joslā ir divas ļoti svarīgas saites: Visa vietnes satura saite: […]
Vienkāršām problēmām risinātājs programmā Excel parasti ātri atrod optimālās Risinātāja mainīgā vērtības mērķa funkcijai. Taču dažos gadījumos Solver ir grūti atrast Solver mainīgā vērtības, kas optimizē mērķa funkciju. Šādos gadījumos Solver parasti parāda ziņojumu vai kļūdas ziņojumu, kurā aprakstīta vai apspriesta problēma, ko […]
