Excel VBA GetOpenFileName

Има много начини да отворите всеки файл. Но има и няколко начина за отваряне на един и същ файл. В VBA имаме различни функции, чрез които можем да отворим всеки файл. Можем да отворим файла, като сложим пътя на файла във VBA код, дори можем да запишем и този процес. Но най-добрият начин е да отворите всеки файл във VBA е с помощта на VBA GetOpenFileName приложение. Както се казва от името, той е направен за кандидатстване при отваряне на всеки файл във VBA.

В други функции или приложения, които работят на същия принцип, може да се наложи да копираме файла на файла, разделен от наклонени черти, запазвайки името на папката и точните интервали между наклонената черта. Също така може да се наложи да въведем точното име на файла заедно с разширението, което искаме да отворим. Но във VBA GetOpenFileName, просто трябва да изберете файла от местоположението. Той ще даде полето, откъдето можем да прегледаме файла, където се съхранява и разширението на файла също ще се оправи.

Синтаксис на GetOpenFilename във VBA

Нека погледнем по-долу формулата за GetOpenFilename в Excel VBA.

По-долу е аргументът на приложението VBA GetOpenFileName.

  • FileFilter - В това можем да определим какъв файл искаме да видим. Например, ако споменем „Excel файлове, *. Xlsx“, тогава той ще намери и покаже всички файлове на excel във формат .xlsx. Ако споменем „PDF файлове, *. Pdf“, то ще намери и покаже всички pdf файлове само.
  • FilterIndex - По този начин можем да позволим на потребителя да ограничи да избере типа на файла. Можем да определим броя на файловете, които трябва да покажем.
  • Заглавие - Показва избрания файл в заглавието на диалоговия прозорец.
  • ButtonText - Той е само за потребители на MacBook.
  • MultiSelect - Ако изберем няколко файла, тогава ще бъде ИСТИНСКО, или в противен случай ще бъде FALSE, което така или иначе е стойност по подразбиране.

Как да отворите файл с помощта на GetOpenFileName в Excel VBA?

По-долу са различните примери за отваряне на файл с помощта на GetOpenFileName приложение в excel VBA.

Можете да изтеглите този шаблон на VBA GetOpenFileName Excel тук - VBA шаблон на ExOpenFileName Excel

Excel VBA GetOpenFileName - Пример №1

В този пример първо ще видим как да отворите първокласен файл. Следвайте стъпките по-долу, за да използвате GetOpenFileName в Excel VBA:

Стъпка 1: Отидете в менюто Вмъкване и щракнете върху Модул, за да го отворите.

Стъпка 2: Напишете подкатегорията на VBA Getopenfilename или изберете друго име според вашия избор, за да определите Подкатегория.

Код:

 Sub OpenFile () Край Sub

Стъпка 3: Сега дефинирайте променлива и й дайте String, както е показано по-долу. Избор на низ, защото ще избираме или избираме името на файла.

Код:

 Sub OpenFile () Dim A като String End Sub

Стъпка 4: Сега в дефинирана променлива A Използвайте приложение, както е показано по-долу.

Стъпка 5: Сега потърсете и изберете GetOpenFileName от активирания списък с приложения, както е показано по-долу.

Стъпка 6: Сега използвайте MsgBox, така че да получим местоположението на избрания от нас файл.

Код:

 Под OpenFile () Dim A като низ A = Application.GetOpenFilename () MsgBox A End Sub

Стъпка 7: Сега компилирайте кода, като натиснете функционалния клавиш F5 и го стартирайте, като кликнете върху бутона Възпроизвеждане. Сега прегледайте файла, който искаме да изберете. Тук проследихме пътя и избрахме файла на excel, наречен Test File, който обикновено е във формат .xlsx . Кликнете върху Отваряне.

Той ще покаже пътя на този файл, който предварително сме избрали, в полето за съобщения, както е показано по-долу.

Стъпка 8: Сега според синтаксиса ще използваме Filefilter в скобата на приложението GetOpenFilename. Както знаем, той е предназначен за избор на типа файл, който искаме да го отворим. Така че ще поставим „Excel файлове“ за него, както е показано по-долу.

Код:

 Под OpenFile () Dim A като низ A = Application.GetOpenFilename (Filefilter: = "Excel файлове") MsgBox A End Sub

Стъпка 9: Сега поставете разширението на Excel файл, който сме избрали по-рано. Беше „ .xlsx “, така че ще го запазим и във FileFilter.

Код:

 Под OpenFile () Dim A като низ A = Application.GetOpenFilename (Filefilter: = "Файлове в Excel, * .xlsx") MsgBox A End Sub

Стъпка 10: Сега отново ще стартираме пълния код. В папката за сърфиране ще получим само файлове в Excel, които са налични в тази папка, която разгледахме по-рано.

И ако се опитаме да видим какъвто и да е друг файлов формат или разширение във файлове на Excel да пада, той отново ще показва само Excel файлове.

Excel VBA GetOpenFileName - Пример №2

По същия начин можем да видим отворете името на файла с разширение „ .pdf “. Следвайте стъпките по-долу, за да използвате GetOpenFileName в Excel VBA:

Стъпка 1: Сега отново напишете кода, който видяхме в пример-1.

Код:

 Под OpenFile1 () Dim A като низ A = Application.GetOpenFilename () MsgBox A End Sub

Стъпка 2: Ще ни отведе до същия прозорец или иначе да прегледаме същата папка. Сега изберете някой от PDF файловете и щракнете върху Отваряне.

Той ще ни даде пътя на избрания файл.

Стъпка 3: Сега, за да получите избрания PDF файл, в FileFilter синтаксиса напишете „PDF файлове“ вместо „Excel Files“ и изберете разширението на PDF, което е „ .pdf “, както е показано по-долу.

Код:

 Под OpenFile1 () Dim A като низ A = Application.GetOpenFilename (Filefilter: = "PDF файлове, * .pdf") MsgBox A End Sub

Стъпка 4: Отново компилирайте кода и стартирайте след него. Ще получим папката на браузъра, за да отворим файловете. В това отношение ще получим файловете само с разширение „ .pdf “, както е показано по-долу.

И ако се опитате да филтрирате други файлови формати, тогава отново ще ни позволи да виждаме само PDF файлове, както е показано по-долу.

И ако не изберем никакъв файл и излезем от прозореца, той ще даде съобщение по подразбиране, което е False .

Плюсове на Excel VBA GetOpenFileName

  • VBA GetOpenFileName ни помага директно да отворим файла без да поставим пътя на този файл във VBA код.
  • Не е необходимо многократно да променяме пътя на файловете.
  • Преглеждането и избирането на файловете чрез това е толкова просто, колкото да отидете в тази папка, за да я отворите.

Минуси на Excel VBA GetOpenFileName

  • Трябва да променим разширението на файл, който искаме да отворим, ако има промяна в това.

Неща, които трябва да запомните

  • Променете разширението на файла, когато трябва да отворите друга версия на файла.
  • Съобщение поле със съобщение като FALSE е съобщението по подразбиране, което ще се появява всеки път, когато не избираме файл, който да отвори.
  • Такъв процес не може да бъде създаден с помощта на функцията Record Macro.
  • Не забравяйте да запазите файла като формат на Excel с макрос, активиран. Така че написаният код на VBA ще бъде запазен.

Препоръчителни статии

Това е ръководство за VBA GetOpenFileName. Тук обсъждаме как да отворите файл с помощта на приложението GetOpenFileName в Excel, използвайки VBA код, заедно с някои практически примери и свалящ се шаблон на excel. Можете да разгледате и другите ни предложени статии -

  1. Намиране и замяна на VBA (примери)
  2. Групиране на работни листове в Excel
  3. Работна книга на VBA
  4. Позовавания на клетки в Excel

Категория:

VBA