Mēs jau zinām, kā atvērt vai saglabāt Excel failu VBA. Mēs vienkārši izmantojam Openbook un SaveAs metodi darbgrāmatas objektam. Bet tam ir nepieciešama faila ceļa kodēšana. Bet lielāko daļu laika jūs vēlaties, lai galalietotājs, izmantojot GUI, atlasītu failu vai teiktu dialoglodziņu File Open vai Save As, kas ļauj lietotājam vizuāli un viegli izvēlēties faila atrašanās vietu.
Šajā rakstā mēs aplūkojam kodu, kas tiek izmantots darbgrāmatas atvērtā dialoglodziņa parādīšanai un saglabāšanai kā dialoglodziņam.
Esmu pievienojis darbgrāmatu, kuru varat lejupielādēt. Šim rakstam pievienotajā darbgrāmatā ir trīs makro
VBA kods, lai atvērtu failu, izmantojot dialoglodziņu Atvērt failu
Šajā kodā mēs izmantosim GetOpenFilename lietojumprogrammas metodi. Metodes GetOpenFilename sintakse ir šāda:
Application.GetOpenFilename ([FileFilter], [FilterIndex], [Title], [ButtonText], [MultiSelect])
[FileFilter]: Jūs varat definēt, lai atlasītajā mapē tiktu rādīts tikai viena veida fails. Ja rakstāt “Excel-Files, *.xlsx, *.xls, *.xlsm” utt., Tad tikai mapi atvērtajā dialoglodziņā tiks parādīti tikai Excel faili.
[FilterIndex]:Tas ir failu filtru skaits, ko vēlaties izmantot.
[Nosaukums]: Dialoglodziņa nosaukums.
[ButtonText]:Pogas teksta norādīšanai. Nav svarīgi.
[MultiSelect]: Tas ir Būla mainīgais. Ja iestatīsit vērtību True vai 1, varēsit atlasīt vairākus failus. Ja iestatāt to nepatiesu, varat atlasīt tikai vienu failu.
Pietiek ar teoriju. Darīsim dažas burvestības.
VBA kods, lai atvērtu vienu failu vienlaikus
Opcija Explicit Sub OpenOneFile () Dim FileName as Variant 'Atvērta faila dialoglodziņa parādīšana Neizvēlēties failu
Kā tas darbojas?
Palaižot šo koda segmentu, lietojumprogrammas objekta GetOpenFilename metode atvērs dialoglodziņu Atvērt failu. Dialoglodziņa nosaukums būs "Atlasīt vienu atvērto failu", kā mēs definējām kodā. Ja izvēlaties failu, darbgrāmata. Atvērtais kods tiks palaists un fails tiks atvērts. Ja neizvēlēsities failu, apakšizvēlne tiks aizvērta, neizmantojot darbgrāmatu. Atvērt kodu.
VBA kods, lai vienlaikus atvērtu vienu vai vairākus failus
Šis koda segments atvērs failu atvēršanas dialoglodziņu, taču vienlaikus varēsit atlasīt vairāk nekā vienu failu.
Sub OpenMultipleFiles () Dim FileName As Variant, f As Integer 'Atvērtā faila dialoglodziņa parādīšana FileName = Application.GetOpenFilename ("Excel faili,*. Xlsx", _ 1, "Atlasīt vienu vai vairākus atvērtos failus", True ) 'Lietotājs neizvēlas failu
Ņemiet vērā, ka šeit mēs esam izvēlējušies multiselect mainīgo uz True. Tas ļaus vairākkārt izvēlēties failu.
VBA kods, lai atvērtu dialoglodziņu Saglabāt kā
Lai atvērtu dialoglodziņu Saglabāt kā, mēs izmantosim lietojumprogrammas objekta metodi GetSaveAsFilename. Metodes sintakse ir šāda:
Application.GetSaveAsFilename ([InitialFileName], [FileFilter], [FilterIndex], [Title], [ButtonText])
[InitialFileName]:Sākotnējais faila nosaukums. Ja failu pārdēvēšanas laikā nepārdēvēsit, tas tiks saglabāts ar šo nosaukumu.
[FileFilter]: Jūs varat definēt, lai atlasītajā mapē tiktu rādīts tikai viena veida fails. Ja rakstāt "Excel-Files, *.xlsx, *.xls, *.xlsm" utt., Tad tikai mapi atvērtajā dialoglodziņā tiks parādīti tikai Excel faili.
[FilterIndex]: Faila filtra indekss.
[Nosaukums]:Dialoglodziņa nosaukums.
[ButtonText]:Tas tiek izmantots Mac sistēmā, lai mainītu pogas nosaukumu.
Lūdzu, sekojiet tālāk norādītajam kodam
Sub SaveFile () Dim FileName as Variant 'Dialoglodziņa saveas parādīšana t saglabāt failu Ja TypeName (FileName) = "Būla", tad izejiet no apakšdaļas 'Saglabājiet darbgrāmatu ActiveWorkbook.SaveAs FileName End Sub
SaveFile makro izmanto lietojumprogrammas objekta metodi GetSaveAsFilename, lai atvērtu dialoglodziņu Save as, piešķirot faila nosaukumu un izvēloties darbgrāmatas saglabāšanas vietu.
Jā, puiši, šādi varat izmantot dialoglodziņu, lai atvērtu un saglabātu failus, izmantojot VBA. Es ceru, ka tas bija noderīgi. Ja jums ir šaubas par šo rakstu vai kādu citu VBA tēmu, jautājiet komentāru sadaļā zemāk.
Izmantojiet slēgtu darbgrāmatu kā datu bāzi (DAO), izmantojot Microsoft Excel VBA | Lai izmantotu slēgtu darbgrāmatu kā datu bāzi ar DAO savienojumu, izmantojiet šo VBA fragmentu programmā Excel.
Izmantojiet slēgtu darbgrāmatu kā datu bāzi (ADO), izmantojot Microsoft Excel VBA | Lai izmantotu slēgtu darbgrāmatu kā datu bāzi ar ADO savienojumu, izmantojiet šo VBA fragmentu programmā Excel.
Darba sākšana ar Excel VBA UserForms | Lai ievietotu datus datu bāzē, mēs izmantojam veidlapas. Excel UserForms ir noderīgas informācijas iegūšanai no lietotāja. Lūk, kā jums vajadzētu sākt ar VBA lietotāju formām.
Mainiet vairāku UserForm vadīklu vērtību/saturu, izmantojot Excel VBA | Lai mainītu lietotāja formas vadīklu saturu, izmantojiet šo vienkāršo VBA fragmentu.
Neļaujiet lietotāja veidlapai aizvērties, kad lietotājs noklikšķina uz pogas x, izmantojot programmu VBA programmā Excel | Lai novērstu lietotāja veidlapas aizvēršanos, kad lietotājs noklikšķina uz veidlapas pogas x, mēs izmantojam notikumu UserForm_QueryClose.
Populāri raksti:
50 Excel saīsnes, lai palielinātu produktivitāti | Ātrāk izpildiet savu uzdevumu. Šie 50 īsceļi ļaus jums strādāt vēl ātrāk programmā Excel.
Funkcija VLOOKUP programmā Excel | Šī ir viena no visbiežāk izmantotajām un populārākajām Excel funkcijām, kas tiek izmantota, lai meklētu vērtību no dažādiem diapazoniem un lapām.
COUNTIF programmā Excel 2016 | Saskaitiet vērtības ar nosacījumiem, izmantojot šo apbrīnojamo funkciju. Jums nav jāfiltrē dati, lai uzskaitītu noteiktu vērtību. Skaitītāja funkcija ir būtiska, lai sagatavotu informācijas paneli.
Kā lietot SUMIF funkciju programmā Excel | Šī ir vēl viena būtiska informācijas paneļa funkcija. Tas palīdz apkopot vērtības noteiktos apstākļos