Protams, mums var būt nepieciešams atvērt failu no mātes Excel faila, izmantojot VBA citā direktorijā. Bet tajā pašā laikā mums ir arī dažāda veida kritēriji par to, kā mēs vēlamies atvērt darbgrāmatu. Ja jums ir interesanti uzzināt, kā jūs varat atvērt darbgrāmatu ar mainīgo nosaukumu, tad šis raksts jums var noderēt. Šajā rakstā mēs apspriežam, kā jūs varat atvērt darbgrāmatu ar mainīgo nosaukumu.izmantojot VBA programmā Excel ar detalizētiem paskaidrojumiem.

Lejupielādēt Practice Workbook

Lejupielādējiet šo prakses darba burtnīcu zemāk.

Atvērt darbgrāmatu ar mainīgo nosaukumu, izmantojot VBA.xlsm

Sample.xlsx

4 vienkārši veidi, kā atvērt darbgrāmatu ar mainīgo nosaukumu, izmantojot VBA programmā Excel

Demonstrēšanai izmantosim tālāk norādīto datu kopu. Mums ir vairāku produktu informācija ar to Id. šis ir parauga fails, kuru atvērsim, izmantojot VBA kodu.

1. Izmantojot Workbook.Open īpašību

Izmantojot Darbgrāmata.Atvērt īpašību, mēs varam atvērt failus, norādot direktoriju vai nenorādot atrašanās vietu. Varam arī padarīt atvērto failu tikai lasāmo.

1.1 Atvērt darbgrāmatu, minot faila ceļu

Nākamajā metodē mēs izmantosim Workbook.Open īpašība lai atvērtu failu tieši no minētā faila atrašanās vietas direktorija. Neatkarīgi no tā, kur atrodas fails, mēs varam viegli atvērt failu.

Soļi

• Dokumentu mapē ir saglabāts fails, kas mums ir jāatver.
• Mēs izmantosim faila nosaukumu kā mainīgo un pēc tam atvērsim failu, izmantojot nelielu VBA makro.
• Tālāk īpašību logā ir parādīts precīzs faila direktorijs.

• Vispirms dodieties uz Izstrādātājs cilni un noklikšķiniet uz Visual Basic . Ja jums tā nav, jums ir nepieciešams. iespējot cilni Izstrādātājs . Vai arī varat nospiest Alt+F11' lai atvērtu Visual Basic redaktors .

• Pēc tam tiks atvērts jauns dialoglodziņš, kurā noklikšķiniet uz Ievietot > Modulis .

• Tālāk, sadaļā Modulis redaktora logā ievadiet šādu kodu:

 Sub Open_with_File_Path() Dim Open_File As String: File_path = "C:\Users\User\OneDrive\Documents\Sample" Dim wrkbk As Workbook Set wrkbk = Workbooks.Open(Filename:=File_path) End Sub 

• Pēc tam aizveriet Modulis logs.
• Pēc tam dodieties uz Skatīt cilne> Makroprocesori .
• Pēc tam noklikšķiniet uz Apskatīt makrouzdevumus .

• Noklikšķinot uz Apskatīt makrokomplektus, atlasiet nupat izveidotos makrouzdevumus. Nosaukums šeit ir Open_with_File_Path . Pēc tam noklikšķiniet uz Palaist .

• Pēc tam Paraugs tiks atvērts fails.

🔎 Koda sadalījums

 Apakšsadaļa Open_with_File_Path() 

⮚ Vispirms mēs norādām apakšprocedūras nosaukumu, kas ir Open_with_File_Path .

 Dim Open_File As String: Faila_ceļš = "C:\Users\User\OneDrive\Documents\Sample" 

⮚ Tad mēs ieliekam faila atrašanās vietu File_Path mainīgais

 Dim wrkbk kā darbgrāmata 

⮚ Tad mēs deklarējam mūsu mainīgo wrkbk , kura tips ir darbgrāmata.

 Set wrkbk = Workbooks.Open(Filename:=File_path) 

⮚ Tad mēs atveram failu ar nosaukumu File_Path direktoriju mainīgo un iestatiet failu kā wrkbk mainīgs.

 Beigu apakšsadaļa 

⮚ Visbeidzot, mēs pabeidzam šī koda apakšprocedūru.

Lasīt vairāk: Kā atvērt darbgrāmatu no ceļa, izmantojot Excel VBA (4 piemēri)

1.2 Atvērt darbgrāmatu, neminot faila ceļu

Nākamajā metodē mēs atvērsim failu no vecākās mapes, kurā ir saglabāts galvenais fails. Failu var atvērt, nenorādot kodu, kurā vietā tas atrodas. Šim failam vienkārši jāatrodas tajā pašā mapē, kurā atrodas vecākā mape.

Soļi

• Mums ir cits fails, kas saglabāts tajā pašā direktorijā, kurā tagad ir saglabāts vecākais Excel fails.
• Faila nosaukums ir 1.

• Vispirms dodieties uz Izstrādātājs cilni un noklikšķiniet uz Visual Basic . Ja jums tā nav, jums ir nepieciešams. iespējot cilni Izstrādātājs . Vai arī varat nospiest Alt+F11 ', lai atvērtu Visual Basic redaktors .

• Pēc tam tiks atvērts jauns dialoglodziņš, kurā noklikšķiniet uz Ievietot > Modulis .

• Tālāk, sadaļā Modulis redaktora logā ievadiet šādu kodu:

 Sub Open_without_File_Path() Dim wrkbk As Workbook Set wrkbk = Workbooks.Open(Filename:="1.xlsx") End Sub 

• Pēc tam aizveriet Modulis logs.
• Pēc tam dodieties uz Skatīt cilne> Makroprocesori .
• Pēc tam noklikšķiniet uz Apskatīt makrouzdevumus .

• Pēc tam, kad noklikšķinājāt uz pogas Apskatīt makrouzdevumus, atlasiet tikko izveidotos makrouzdevumus. Nosaukums šeit ir šāds. Open_without_File_Path . Pēc tam noklikšķiniet uz Palaist.

• Pēc nospiešanas Palaist , redzēsiet, ka tagad ir atvērts fails ar nosaukumu 1.
• Un lūk, kā mēs atveram darbgrāmatu ar mainīgo nosaukumu, izmantojot VBA programmā Excel.

🔎 Koda sadalījums

 Apakšsadaļa Open_without_File_Path() 

⮚ Vispirms mēs norādām apakšprocedūras nosaukumu, kas ir Apakšsadaļa Open_without_File_Path()

 Dim wrkbk kā darbgrāmata 

⮚ Mēs paziņojam wrkbk kā mainīgais darbgrāmatas tipa

 Set wrkbk = Workbooks.Open(Filename:="1.xlsx") 

⮚ Mēs atveram failu no mātes direktorija ar nosaukumu 1.xlsx .

 Beigu apakšsadaļa 

⮚ Visbeidzot, mēs pabeidzam šī koda apakšprocedūru.

1.3 Atvērt darbgrāmatu tikai lasīšanai

Šī metode ir diezgan līdzīga pirmajai metodei, bet šeit mēs atvērsim failu tikai lasīšanas režīmā, kas nozīmē, ka mēs nevarēsim mainīt datus vai vērtības Excel failā.

Soļi

• Failiņš, ko vēlamies atvērt, ir saglabāts dokumentu mapē.
• Un šis ir fails, kuru vēlamies atvērt tikai lasīšanai.

• Vispirms dodieties uz Izstrādātājs cilni un noklikšķiniet uz Visual Basic . Ja jums tā nav, jums ir nepieciešams. iespējot cilni Izstrādātājs . Vai arī varat nospiest Alt+F11 ', lai atvērtu Visual Basic redaktoru.

• Pēc tam tiks atvērts jauns dialoglodziņš, kurā noklikšķiniet uz Ievietot > Modulis .

• Tālāk, sadaļā Modulis redaktora logā ievadiet šādu kodu:

 Sub Open_with_File_Read_Only() Dim wrkbk As Workbook Set wrkbk = Workbooks.Open("C:\Users\User\OneDrive\Documents\Sample", ReadOnly:=True) End Sub 

• Pēc tam aizveriet Modulis logs.
• Pēc tam dodieties uz Skatīt cilne> Makroprocesori .
• Pēc tam noklikšķiniet uz Apskatīt makrouzdevumus .

• Pēc tam, kad noklikšķinājāt uz pogas Apskatīt makrouzdevumus, atlasiet nupat izveidotos makrouzdevumus. Nosaukums šeit ir šāds. Open_with_File_Read_Only . Pēc tam noklikšķiniet uz Palaist .

• Noklikšķinot uz Palaist , mēs redzēsim, ka fails tagad ir atvērts tikai lasīšanai, kā parādīts nosaukuma joslā.

🔎 Koda sadalījums

 Apakšsadaļa Open_with_File_Read_Only() 

⮚ Vispirms mēs norādām apakšprocedūras nosaukumu, kas ir Open_with_File_Read_Only()

 Dim wrkbk kā darbgrāmata 

⮚ Mēs paziņojam wrkbk kā mainīgais darbgrāmatas tipā

 Set wrkbk = Workbooks.Open("C:\Users\User\OneDrive\Documents\Sample", ReadOnly:=True) 

⮚ Pēc tam fails tiks atvērts no norādītā direktorija, un fails tiks iestatīts. tikai lasīšanai ar pēdējo argumentu.

 Beigu apakšsadaļa 

⮚ Visbeidzot, mēs pabeidzam šī koda apakšprocedūru.

Lasīt vairāk: Kā atvērt darbgrāmatu kā tikai lasāmgrāmatu, izmantojot Excel VBA

2. Izmantojot ziņojumu lodziņu

Gandrīz tāpat kā iepriekšējā metodē, mēs varam atvērt failus, izmantojot VBA kodu šeit programmā Excel, bet šajā gadījumā mēs šeit iekļausim nelielu ziņojumu lodziņu.

Soļi

• Vispirms dodieties uz Izstrādātājs cilni un noklikšķiniet uz Visual Basic . Ja jums tā nav, jums ir nepieciešams. iespējot cilni Izstrādātājs . Vai arī varat nospiest Alt+F11' lai atvērtu Visual Basic redaktors .

• Pēc tam tiks atvērts jauns dialoglodziņš, kurā noklikšķiniet uz Ievietot > Modulis .

• Tālāk, sadaļā Modulis redaktora logā ievadiet šādu kodu:

 Sub Open_File_with_Messege_Box() Dim path As String: path = "C:\Users\User\OneDrive\Documents\Sample.xlsx" If Dir(path) "" Then Workbooks.Open (path) MsgBox "Faila atvēršana izdevās" Else MsgBox "Faila atvēršana neizdevās" End If End Sub 

• Pēc tam aizveriet Modulis logs.
• Pēc tam dodieties uz Skatīt cilne> Makroprocesori .
• Pēc tam noklikšķiniet uz Apskatīt makrouzdevumus .

• Noklikšķinot uz Apskatīt makrokomplektus, atlasiet nupat izveidotos makrouzdevumus. Nosaukums šeit ir Open_File_with_Messege_Box . Pēc tam noklikšķiniet uz Palaist .

• Pēc tam parādās brīdinājuma lodziņš, kurā tiek parādīts, ka Failiņš ir veiksmīgi atvērts .
• Pēc tam noklikšķiniet uz LABI .

• Un tad mēs redzēsim, ka fails tagad ir atvērts.

• Un tad mēs mēģinām mazliet mainīt kodu.
• Mēs mainām faila nosaukumu uz Paraugs10 , un faktiski nav faila ar nosaukumu Paraugs10 dokumentu mapē.

• Tad mēs Palaist vēlreiz ievadiet kodu, un tiek parādīts ziņojuma lodziņš, kurā teikts. Faila atvēršana neizdevās .
• Noklikšķiniet uz LABI pēc tam.

🔎 Koda sadalījums

 Apakšsadaļa Open_File_with_Messege_Box() 

⮚ Vispirms mēs norādām apakšprocedūras nosaukumu, kas ir Open_with_File_Read_Only()

 Dim ceļš kā virkne: 

⮚ Mēs paziņojam wrkbk kā mainīgo darbgrāmatas tipā

 Ja Dir(ceļš) "" Tad darbgrāmatas.Atvērt (ceļš) 

 MsgBox "Faili ir veiksmīgi atvērti" Else 

⮚ Šajā rindā tiks pārbaudīts, vai fails ar nosaukumu Sample ir pieejams direktorijā vai nē, Ja fails ir pieejams, tad tas atvērs failu un tajā pašā laikā parādīs ziņojumu.

 MsgBox "Faila atvēršana neizdevās" 

⮚ Ja nav faila ar nosaukumu Paraugs direktorijā, tad šis ziņojums tiks piegādāts.

 End If 

⮚ Visbeidzot, mēs pabeidzam šī koda apakšprocedūru.

 End Sub 

⮚ Visbeidzot, mēs pabeidzam šī koda apakšprocedūru.

Lasīt vairāk: Kā atvērt darbgrāmatu un palaist makrolokas, izmantojot VBA (4 piemēri)

3. Dialoglodziņa izmantošana, lai atvērtu failu

Failu atrašanās vietas direktorija izvilkšana un importēšana katru reizi VBA kodā ir diezgan apgrūtinoša. Lai atrisinātu šo problēmu, mēs parādīsim, kā jūs varat izmantot dialoglodziņu, lai atlasītu failu no jebkura direktorija.

Soļi

• Tagad mēs atvērsim failu, izmantojot failu pārlūka dialoglodziņu.
• Vispirms dodieties uz Izstrādātājs cilni un noklikšķiniet uz Visual Basic . Ja jums tā nav, jums ir nepieciešams. iespējot cilni Izstrādātājs . Vai arī varat nospiest Alt+F11' lai atvērtu Visual Basic redaktors .

• Pēc tam tiks atvērts jauns dialoglodziņš, kurā noklikšķiniet uz Ievietot > Modulis .

• Tālāk, sadaļā Modulis redaktora logā ievadiet šādu kodu:

 Sub Open_File_with_Dialog_Box() Dim Dbox As FileDialog Dim File_Path As String Dim wrkbk As Workbook Set Dbox = Application.FileDialog(msoFileDialogFilePicker) Dbox.Title = "Choose and Open " & amp; FileType Dbox.Filters.Clear Dbox.Show If Dbox.SelectedItems.Count = 1 Then File_Path = Dbox.SelectedItems(1) End If Set wrkbk = Workbooks.Open(Filename:=File_Path) End Sub 

• Pēc tam aizveriet Modulis logs.
• Pēc tam dodieties uz Skatīt cilne> Makroprocesori .
• Pēc tam noklikšķiniet uz Apskatīt makrouzdevumus .

• Noklikšķinot uz Apskatīt makrokomplektus, atlasiet nupat izveidotos makrouzdevumus. Nosaukums šeit ir Open_File_with_Dialog_Box . Pēc tam noklikšķiniet uz Palaist .

• Un tad atveras jauns logs. Failu pārlūka dialoglodziņā un atlasiet Paraugs un noklikšķiniet uz LABI .

• Tad fails ar nosaukumu Paraugs atvērts.
• Un lūk, kā mēs atveram darbgrāmatu ar mainīgo nosaukumu, izmantojot VBA programmā Excel.

🔎 Koda sadalījums

 Apakšsadaļa Open_File_with_Dialog_Box() 

⮚ Vispirms mēs norādām apakšprocedūras nosaukumu, kas ir Apakšsadaļa Open_File_with_Dialog_Box()

 Dim Dbox As FileDialog 

⮚ Mēs paziņojam Dbox kā mainīgo FileDialog tips

 Dim File_Path kā virkne 

⮚ Mēs paziņojam File_Path kā mainīgo lielumu File_Path Kā Virkne tips

 Set Dbox = Application.FileDialog(msoFileDialogFilePicker) Dbox.Title = "Izvēlieties un atveriet " & amp; FileType 

⮚ No pirmās rindas būs dialoglodziņš. Nākamajā rindā ir norādīts dialoglodziņa nosaukums un faila tips.

⮚ Dbox.Title tiks iestatīts dialoglodziņa virsraksts. un Failu veids iestatiet faila tipu.

 Dbox.Filters.Clear 

⮚ Dbox.Filters.Clear izdzēsīs visus iepriekš diaog lodziņā piemērotos filtrus.

 Dbox.Show 

⮚ Dbox.Show dialoglodziņš tiks parādīts failā.

⮚ Šī rinda noteiks, vai lietotājs ir izvēlējies vairāk nekā vienu failu vai nē. Ja lietotājs ir izvēlējies vairāk nekā vienu failu, visa procedūra tiks pārtraukta.

 Beigu apakšsadaļa 

⮚ Visbeidzot, mēs pabeidzam šī koda apakšprocedūru.

Lasīt vairāk: Kā atvērt mapi un atlasīt failu, izmantojot Excel VBA (4 piemēri)

4. Izmantojot Workbook.Add Property

Atšķirībā no iepriekšējām metodēm mēs izveidosim jaunu Excel failu iepriekš noteiktā direktorijā un pēc tam to atvērsim, izmantojot Darba burtnīca. Pievienot īpašums.

Soļi

• Vispirms dodieties uz Izstrādātājs cilni un noklikšķiniet uz Visual Basic . Ja jums tā nav, jums ir nepieciešams. iespējot cilni Izstrādātājs . Vai arī varat arī nospiest Alt+F11' lai atvērtu Visual Basic redaktors .

• Pēc tam tiks atvērts jauns dialoglodziņš, kurā noklikšķiniet uz Ievietot > Modulis .

Tālāk, sadaļā Modulis redaktora logā ievadiet šādu kodu:

 Sub Open_File_with_Add_Property() Dim File_Path As String: File_Path = "C:\Users\User\OneDrive\Documents\Sample.xlsx" Dim wb As Workbook Set wb = Workbooks.Add(File_Path) End Sub 

• Pēc tam aizveriet Modulis logs.
• Pēc tam dodieties uz Skatīt cilne> Makroprocesori .
• Pēc tam noklikšķiniet uz Apskatīt makrouzdevumus .

• Noklikšķinot uz Apskatīt makrokomplektus, atlasiet nupat izveidotos makrouzdevumus. Nosaukums šeit ir Open_File_with_Add_Property . Pēc tam noklikšķiniet uz Palaist .

• Noklikšķinot uz Palaist, redzēsiet, ka ir izveidots un atvērts jauns fails.

🔎 Koda sadalījums

⮚ Vispirms mēs norādām apakšprocedūras nosaukumu, kas ir Apakšsadaļa Open_File_with_Add_Property()

⮚ Tad mēs deklarējam File_Path mainīgo lielumu kā Virknes tips.

 Dim File_Path As String: File_Path = "C:\Users\User\OneDrive\Documents\Sample.xlsx" 

⮚ Un iestatiet File_Path mainīgo uz faila atrašanās vietu.

 Dim wb kā darbgrāmata 

⮚ Mēs paziņojam wb kā mainīgo lielumu Darba burtnīca tips.

 Set wb = Workbooks.Add(File_Path) 

⮚ Darba burtnīca tiek pievienota no direktorija, kas glabājas direktorijā File_Path atrašanās vietu, izmantojot Darba burtnīca.Pievienot īpašums.

 Beigu apakšsadaļa 

⮚ Visbeidzot, mēs pabeidzam šī koda apakšprocedūru.

Lasīt vairāk: [Labots!] Objektu darbgrāmatu atvēršanas metode neizdevās (4 risinājumi)

Secinājums

Rezumējot, uz jautājumu par to, kā varam atvērt darbgrāmatas ar mainīgo nosaukumu, izmantojot VBA, šeit ir sniegta atbilde ar 4 dažādiem piemēriem. VBA makro programma metode prasa iepriekšēju Ar VBA saistīts zināšanas, lai saprastu no nulles.

Šai problēmai ir lejupielādējama darbgrāmata ar makroprogrammām, kurā varat praktizēt šīs metodes.

Jūtieties brīvi uzdot jebkādus jautājumus vai atsauksmes, izmantojot komentāru sadaļu. Jebkurš ieteikums, lai uzlabotu Exceldemy kopiena būs augsti vērtējama.