Отворена работна книга на Excel VBA

Най-често срещаните операции в ежедневния живот е да отворите работни книги за отлични резултати, когато работите с Excel. Не можете да работите в Excel без да отворите Excel Workbooks или Excel файла. Така че в тази статия ще разгледаме как можем да отворим работни книги от Excel с помощта на VBA.

Методи за отваряне на работни книги от Exel в VBA

Има два метода за отваряне на excel Workbooks във VBA и ще разгледаме и двата метода в тази статия.

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

Метод №1 - Метод на Excel VBA Workbooks.отворете

Първият метод в VBA е използването на вградената функция Workbooks.open . Има 15 незадължителни аргумента във функцията „Workbooks.open“ и за покриване на всичките 15 аргумента ще отнеме много време. Така че просто ще се опитаме да разберем някои основи на Workbooks.open и да видим как можем да използваме тази функция в VBA, за да отворим Workbooks.

Така че първата стъпка в този метод е, че трябва да знаете името на файла на работните книги на Excel. По-долу е изявлението за отваряне на работни книги. ”Workbooks.отворете„ File_Name ”

Или

Работни книги. Отворете име на файл: = “File_Name”

„Името на файл“ е името на работните книги, които искате да отворите. Но тук трябва да бъдете внимателни, защото трябва да предоставите пълния път, където файлът се записва и името на файла с разширението на файловете (.XLS, .XLSX, .xlsm и т.н.). Можем да вземем примера на по-долу макрос, за да разберем тази функция.

пример

Да предположим, че искате да отворите Excel файл с името „Тест файл“, който се запазва в D Drive на компютъра. Създайте макрос в работна книга с активиран макрос на Excel. Следвайте стъпките по-долу, за да използвате метода на Excel VBA Workbooks.open.

Стъпка 1: Кликнете върху File.

Стъпка 2: Щракнете върху Опции .

Стъпка 3: Кликнете върху Персонализиране на лентата .

Стъпка 4: Уверете се, че полето за програмисти е маркирано както по-долу и щракнете върху ОК.

Стъпка 5: След като имате раздела за програмисти, щракнете върху Visual basic, както е показано на екрана по-долу.

След като щракнете върху Visual Basics, трябва да започнете да кодирате вашия макрос.

Стъпка 6: Въведете кода по-долу във VBA модула.

Код:

 Sub Open_workbook () Край Sub

Този код осигурява името на вашата работна книга.

Стъпка 7: Въведете кода, който може да отвори работната книга, записана в D устройството на компютъра.

Код:

 Sub Open_workbook () Workbooks.Open Filename: = "D: \ Test File.xlsx" End Sub

Стъпка 8: Стартирайте кода, като натиснете клавиша F5 или натиснете бутона Play. След стартиране на макроса ще откриете, че Excel файлът се отваря автоматично. Както можете да видите в горния код, макросът ще отвори файла Excel с името „Test File.xlsx“, който се записва в D устройството на компютъра. Посоченият по-горе път е доста прост, тъй като няма папки и подпапки, които да получат Workbooks.

Това става предизвикателство, защото много хора не помнят пътя и ако пътят на файла, където е записан, се промени малко, макросът няма да работи. Макросът няма да работи, дори ако Името на файла се промени с една буква. Така че, ако пътят / името на файла се промени, трябва да промените VBA кода на макроса. Това прави Job досаден и той също не е без грешки. Така че за да сте сигурни, че вашият макрос работи перфектно, без да ви дава грешка, ще използваме втория метод, който е лесен за работа и няма да ви даде грешка, дори когато не помните името на пътя или дори когато името на файла се промени,

Метод №2 - Вземете отворено име на файл

Както знаете предизвикателствата, с които се сблъскваме в Първия метод на промяната в пътя и името на файла, този метод избягва и двете предизвикателства. Този метод дава възможност да прегледате в компютъра си до мястото, където е записан файлът ви, и отваря конкретните работни книги, които искате да отворите.

Този метод всъщност работи в две части.

Първата част на този метод е Application.GetOpenFileName. Тази част ви позволява да прегледате компютъра си и да изберете пътя, където е записан файлът ви. Първата част не отваря файла, който искате да отворите.

Втората част е да отворите файла, за който все още трябва да сте зависим от първия метод (метод на VBA Workbooks.open). В Application.GetOpenFileName има 5 аргумента, но ще разгледаме само основите, както го направихме в първия метод. Сега нека се опитаме да разберем този метод с помощта на пример.

пример

Да предположим, че искате да отворите „Тест файл“, запазен в D устройството на компютъра, тогава просто трябва да следвате стъпките по-долу.

Стъпка 1: Следвайте стъпка 1, спомената в първия пример за отваряне на Visual Basic Editor или Open Visual Basic Editor от раздела Developer.

Стъпка 2: Въведете кода по-долу, който осигурява името на вашия макрос.

Код:

 Sub Open_workbook_example2 () Край Sub

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

Код:

 Sub Open_workbook_example2 () Dim Myfile_Name като вариант на края Sub

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

Код:

 Sub Open_workbook_example2 () Dim Myfile_Name като вариант Myfile_Name = Application.GetOpenFilename (FileFilter: = "Файлове в Excel (*. Xl *), *. Xl *)") Край Sub

Стъпка 5: Въведете кода по-долу. Това изявление е If If оператор, който се използва, когато файлът .Name не е равно на false, отворете избрания файл на Excel.

Код:

 Под Open_workbook_example2 () Dim Myfile_Name като вариант Myfile_Name = Application.GetOpenFilename (FileFilter: = "Файлове в Excel (*. Xl *), *. Xl *)") Ако Myfile_Name False тогава Workbooks.Open Filename: = Myfile_Name End Sub

Стъпка 6: Въведете кода по-долу. Това изявление затваря условието If тогава в макроса.

Код:

 Под Open_workbook_example2 () Dim Myfile_Name като вариант Myfile_Name = Application.GetOpenFilename (FileFilter: = "Файлове в Excel (*. Xl *), *. Xl *)") Ако Myfile_Name False тогава Workbooks.Open Filename: = Myfile_Name End If End Sub

Стъпка 7: Сега стартирайте кода, като натиснете клавиша F5 или кликнете върху бутона за възпроизвеждане. Ще видите диалоговия прозорец за разглеждане на файла, който ще се отвори. Прегледайте работния плот, където е записан файлът ви. Сега ще можете да видите файла в D Drive. Изберете файла и щракнете върху отвори.

Както вече видяхме в нашия пример, няма нужда да се притесняваме за името на файла и името на пътя, където е записан файлът. Можем лесно да се ориентираме до папката, в която е записан нашият файл, и да изберем файла, който искаме да отворим. Така че лесно можем да заключим, че този метод е много по-ефективен в сравнение с първия метод.

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

  • Уверете се, че името на файла и името на файла е правилно, докато използвате първия метод. Макросът няма да работи, когато има промяна по буква или интервал в пътя или името на файла.
  • Уверете се, че филтрите, споменати в кода във втория метод, са правилни. Има много формати на Excel, които може да не се виждат поради филтър.
  • Уверете се, че декларацията и кодът, използван в VBA, са правилни, за да избегнете грешки.

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

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

  1. Пълно ръководство за VBA Workbook
  2. HYPERLINK Формула в Excel
  3. Отваряне на файлове с VBA FileDialog
  4. Примери за електронни таблици в Excel

Категория:

VBA