Excel Vbook Workbook deschis
Cele mai frecvente operațiuni în viața de zi cu zi este să deschideți un manual de lucru excel atunci când lucrați cu Excel. Nu puteți lucra în Excel fără a deschide fișierele Excel sau fișierul Excel. Așadar, în acest articol, vom acoperi modul în care putem deschide o carte de lucru Excel cu ajutorul VBA.
Metode de deschidere a cărților de lucru Exel în VBA
Există două metode pentru a deschide cărți de lucru excel în VBA și vom acoperi ambele metode din acest articol.
Puteți descărca acest șablon VBA Workbook Open Excel aici - Modelul VBA Workbook Open ExcelMetoda # 1 - Metoda Excel VBA Workbooks.open
Prima metodă din VBA este utilizarea funcției incorporate Workbooks.open . Există 15 argumente opționale în funcția „Workbooks.open” și pentru a acoperi toate cele 15 argumente va dura mult timp. Vom încerca doar să înțelegem câteva elemente de bază ale Workbooks.open și să vedem cum putem folosi această funcție în VBA pentru a deschide manualele.
Așadar, primul pas în această metodă este să știți numele fișierului din cărțile de lucru Excel. Mai jos este instrucțiunea pentru a deschide cărțile de lucru. ”Workbooks.open„ File_Name ”
Sau
Workbooks.Open Filename: = "File_Name"
„File_Name” este numele cărților de lucru pe care doriți să le deschideți. Dar trebuie să fiți atenți aici, deoarece trebuie să furnizați calea completă unde este salvat fișierul și numele fișierului cu extensia fișierelor (.XLS, .XLSX, .xlsm, etc). Putem lua exemplul de mai jos macro pentru a înțelege această funcție.
Exemplu
Să presupunem că doriți să deschideți un fișier excel cu numele „Fișier de testare”, care este salvat în unitatea D a computerului. Creați o Macro într-un manual de lucru activat cu macro. Urmați pașii de mai jos pentru a utiliza metoda Excel VBA Workbooks.open.
Pasul 1: Faceți clic pe File.
Pasul 2: Faceți clic pe Opțiuni .
Pasul 3: Faceți clic pe Personalizare panglică .
Pasul 4: Asigurați-vă că câmpul pentru dezvoltator este marcat ca mai jos și faceți clic pe ok.
Pasul 5: După ce ai fila dezvoltatorului, faceți clic pe Visual Basic așa cum se arată în imaginea de mai jos.
După ce faceți clic pe Vizualul de bază, trebuie să începeți codarea pentru macro.
Pasul 6: Introduceți codul de mai jos în modulul VBA.
Cod:
Sub Open_workbook () End Sub
Acest cod furnizează numele cărții de lucru.
Pasul 7: Introduceți codul care poate deschide cartea de lucru salvată în unitatea D a computerului.
Cod:
Sub Open_workbook () Workbooks.Open Denumire fișier: = "D: \ Test File.xlsx" End Sub
Pasul 8: Rulați codul apăsând tasta F5 sau făcând clic pe butonul Redare. După rularea macro, veți găsi că fișierul excel este deschis automat. După cum puteți vedea în codul de mai sus, macro-ul va deschide fișierul Excel cu numele „Test File.xlsx” care este salvat în unitatea D a computerului. Calea menționată mai sus este destul de simplă, deoarece nu există foldere și subfoldere pentru a obține cărțile de lucru.
Acest lucru devine dificil, deoarece mulți oameni nu își amintesc calea și dacă Calea fișierului în care este salvat se schimbă puțin, macrocomanda nu va funcționa. Macro nu va funcționa chiar dacă numele fișierului se schimbă cu o singură literă. Deci, dacă se modifică calea / numele fișierului, trebuie să schimbați codul VBA al Macro. Acest lucru face ca Jobul să fie obositor și, de asemenea, nu este fără erori. Așadar, pentru a vă asigura că macro-ul dvs. rulează perfect fără să vă dea o eroare, vom folosi a doua metodă care este ușor de gestionat și nu vă va da o eroare chiar și atunci când nu vă amintiți numele de fișier sau chiar când numele fișierului se schimbă. .
Metoda 2 - Obțineți numele de fișier deschis
După cum știți provocările cu care ne confruntăm în prima metodă de schimbare a căii și numele fișierului, această metodă evită ambele provocări. Această metodă oferă opțiunea de a naviga în computerul dvs. în locația în care fișierul dvs. este salvat și deschide acele anumite cărți de lucru pe care doriți să le deschideți.
Această metodă funcționează de fapt în două părți.
Prima parte a acestei metode este Application.GetOpenFileName. Această parte vă permite să răsfoiți pe computer și să selectați calea în care fișierul dvs. este salvat. Prima parte nu deschide fișierul pe care doriți să îl deschideți.
A doua parte este să deschideți fișierul pentru care mai trebuie să depindeți de prima metodă (VBA Workbooks.open Method). Există 5 argumente în Application.GetOpenFileName, dar nu va privi decât elementele de bază așa cum am făcut-o în prima metodă. Acum să încercăm să înțelegem această metodă cu ajutorul unui exemplu.
Exemplu
Să presupunem că doriți să deschideți „Fișierul de testare” salvat în unitatea D a computerului, atunci trebuie doar să urmați pașii de mai jos.
Pasul 1: Urmați pasul 1 menționat în primul exemplu pentru deschiderea editorului Visual Basic sau Open Visual Basic Editor din fila Dezvoltator.
Pasul 2: Introduceți codul de mai jos care furnizează numele pentru macro-ul dvs.
Cod:
Sub Open_workbook_example2 () End Sub
Pasul 3: Introduceți codul de mai jos. Această declarație declară numele de fișier ca variabilă, deoarece aici nu specificăm nicio cale sau nume de fișier, deoarece se poate schimba din când în când.
Cod:
Sub Open_workbook_example2 () Dim Myfile_Name ca Sub Variant End Sub
Pasul 4: Introduceți codul de mai jos. Această afirmație deschide caseta de dialog de mai jos și puteți răsfoi folderele pentru a merge la calea în care este salvat fișierul. De asemenea, va afișa fișierul Excel în timp ce navigați, deoarece am pus un filtru pentru fișierele Excel.
Cod:
Sub Open_workbook_example2 () Dim Myfile_Name ca variantă Myfile_Name = Application.GetOpenFilename (FileFilter: = "Fișiere Excel (*. Xl *), *. Xl *)")
Pasul 5: Introduceți codul de mai jos. Această afirmație este instrucțiunea If Atunci, care este folosită atunci când fișierul .Name nu este egal cu fals, atunci deschideți fișierul Excel selectat.
Cod:
Sub Open_workbook_example2 () Dim Myfile_Name ca variantă Myfile_Name = Application.GetOpenFilename (FileFilter: = "Fișiere Excel (*. Xl *), *. Xl *)") Dacă Myfile_Name False Atunci Workbooks.Open Filename: = Myfile_Name End Sub
Pasul 6: Introduceți codul de mai jos. Această declarație închide condiția If atunci în Macro.
Cod:
Sub Open_workbook_example2 () Dim Myfile_Name ca variantă Myfile_Name = Application.GetOpenFilename (FileFilter: = "Fișiere Excel (*. Xl *), *. Xl *)") Dacă Myfile_Name False Atunci Workbooks.Open Filename: = Myfile_Name End If End Sub Sub
Pasul 7: Acum rulați codul apăsând tasta F5 sau făcând clic pe butonul Redare. Veți vedea că se va deschide caseta de dialog pentru a naviga în fișier. Căutați pe desktopul în care fișierul dvs. este salvat. Acum veți putea vedea fișierul în unitatea D. Selectați fișierul și faceți clic pe Deschide.
Acum, cum am văzut în exemplul nostru, nu trebuie să ne facem griji pentru numele fișierului și numele căii în care este salvat fișierul. Putem naviga cu ușurință în folderul în care este salvat fișierul nostru și selectăm fișierul pe care dorim să îl deschidem. Deci, putem concluziona cu ușurință că această metodă este mult mai eficientă comparativ cu prima metodă.
Lucruri de amintit
- Asigurați-vă că numele de fișier și numele fișierului sunt corecte în timpul utilizării primei metode. Macro nu va funcționa atunci când există o modificare prin literă sau spațiu în calea sau Nume fișier.
- Asigurați-vă că filtrele menționate în cod în a doua metodă sunt corecte. Există multe formate de Excel, care nu pot fi vizibile din cauza unui filtru.
- Asigurați-vă că declarația și codul utilizat în VBA sunt corecte pentru a evita erorile.
Articole recomandate
Acesta este un ghid pentru VBA Workbook Open. Aici discutăm două metode diferite pentru a deschide fișa de lucru folosind codul Excel VBA, împreună cu exemple practice și șablon excel descărcabil. De asemenea, puteți consulta următoarele articole pentru a afla mai multe -
- Ghid complet pentru VBA Workbook
- HYPERLINK Formula în Excel
- Deschideți fișierele cu VBA FileDialog
- Exemple de foi de calcul Excel