Excel VBA көмегімен айнымалы аты бар жұмыс кітабын қалай ашуға болады

Hugh West

10-08-2023 Макростар & Excel VBA
  • Мұны Бөлісіңіз
Hugh West

Әрине, VBA арқылы басқа каталогта файлды негізгі Excel файлынан ашу қажет болуы мүмкін. Бірақ сонымен бірге бізде жұмыс кітабын қалай ашқымыз келетіні туралы әртүрлі критерийлер бар. Егер сіз айнымалы атауы бар жұмыс кітабын қалай ашуға болатынын білгіңіз келсе, бұл мақала сізге пайдалы болуы мүмкін. Бұл мақалада біз Excel бағдарламасында VBA көмегімен айнымалы атауы бар жұмыс кітабын егжей-тегжейлі түсіндірмелермен қалай ашуға болатынын талқылаймыз.

Тәжірибе жұмыс кітабын жүктеп алу

Осы тәжірибе жұмыс кітабын төменде жүктеп алыңыз.

VBA.xlsm арқылы ауыспалы аты бар жұмыс кітабын ашу

Sample.xlsx

4 оңай Excel бағдарламасында VBA көмегімен айнымалы атаумен жұмыс кітабын ашу жолдары

Біз демонстрация үшін төмендегі деректер жинағын қолданамыз. Бізде идентификаторы бар бірнеше өнімнің өнімі туралы ақпарат бар. бұл VBA кодын пайдаланып ашатын үлгі файл.

1. Жұмыс кітабын пайдалану.Сипатты ашу

Жұмыс кітабын пайдалану .Open сипаты, біз файлдарды каталогты атап, немесе орналасқан жерін айтпай ашуға болады. Біз сондай-ақ ашылған файлды тек оқуға арналған етіп жасай аламыз.

1.1 Жұмыс кітабын ашу Файл жолын атап өту

Келесі әдісте біз Жұмыс кітабы.Open қасиетін қолданамыз. файлды тікелей аталған файл орны каталогынан ашу үшін. Файл қай жерде орналасқанына қарамастан, біз файлды аша аламызол Sub Open_File_with_Add_Property()

⮚ Содан кейін File_Path айнымалы мәнін String түрі.

3173

⮚ және Файл_жолы айнымалы мәнін файлдың орнына орнатыңыз.

3462

⮚ Біз wb айнымалы ретінде Жұмыс кітабы түрінде жариялаймыз.

9700

⮚ Жұмыс кітабы Файл_жолы орнында сақталған каталогтан Жұмыс кітабы.Қосу сипаты арқылы қосылады.

5805

⮚ Соңында, біз аяқтаймыз. осы кодтың ішкі процедурасы.

Толығырақ оқу: [Бекітілді!] Әдіс Нысан жұмыс кітаптарын ашу сәтсіз аяқталды (4 шешім)

Қорытынды

Қорытындылай келе, VBA көмегімен айнымалы атаулары бар жұмыс кітаптарын қалай ашуға болады деген сұраққа мұнда 4 түрлі мысал арқылы жауап берілген. VBA Macro әдісі нөлден бастап түсіну үшін алдын ала VBA-ға қатысты білімді қажет етеді.

Бұл мәселе үшін макрос қосылған жұмыс кітабын жүктеп алуға болады, онда жаттығуға болады. осы әдістер.

Пікірлер бөлімі арқылы кез келген сұрақтарды немесе кері байланыстарды қоюға болады. Exceldemy қауымдастығын жақсартуға арналған кез келген ұсыныс өте бағаланатын болады

оңай.

Қадамдар

  • Бізде құжаттар қалтасында сақталған файл бар, оны ашу керек.
  • Файлды қолданамыз. атын айнымалы ретінде енгізіңіз, содан кейін шағын VBA макросын пайдаланып файлды ашыңыз.
  • Файлдың нақты файл каталогы төменде сипаттар терезесінде көрсетілген.

  • Алдымен Әзірлеуші ​​ қойындысына өтіп, Visual Basic түймесін басыңыз. Егер ол жоқ болса, Әзірлеуші ​​қойындысын қосу керек. Немесе Visual Basic өңдегішін ашу үшін ' Alt+F11' пернелерін басуға да болады.

  • Содан кейін жаңа диалогтық терезе пайда болады, сол диалогтық терезеде Кірістіру > Модуль түймесін басыңыз.

  • Кейін, Модуль редакторының терезесінде келесі кодты теріңіз: 
9735

  • Сосын <жабыңыз. 6>Модуль терезесі.
  • Одан кейін Көру қойындысына > Макростар өтіңіз.
  • Одан кейін Көру түймесін басыңыз. Макростар .

  • Макростарды көру түймешігін басқаннан кейін дәл қазір жасаған макростарды таңдаңыз. Мұндағы атау Файл_жолымен_ашық . Содан кейін Орындау түймесін басыңыз.

  • Одан кейін Үлгі файл ашылады.

🔎 Кодтың бөлінуі 

1650

⮚ Алдымен біз ішкі бөлімнің атауын береміз. процедура, ол Файл_жолымен_ашық .

3759

⮚ Содан кейін файлдың орнын Файл_жолы айнымалысына 

6323

⮚ қоямыз.Содан кейін біз wrkbk айнымалысын жариялаймыз, оның түрі жұмыс кітабы.

7367

⮚ Содан кейін Файл_Жол айнымалы каталогында аталған файлды ашып, файлды орнатамыз. wrkbk айнымалысы ретінде.

2084

⮚ Соңында, осы кодтың ішкі процедурасын аяқтаймыз.

Толығырақ оқу: Қалай Excel VBA көмегімен жолдан жұмыс кітабын ашу (4 мысал)

1.2 Жұмыс кітабын файл жолын айтпай ашу

Келесі әдісте файлды негізгі қалтадан ашамыз, мұндағы негізгі файл сақталады. Файлды кодта ешбір орынды айтпай-ақ ашуға болады. Бұл файл тек негізгі қалтамен бір қалтада болуы керек.

Қадамдар

  • Бізде ата-аналық қалта орналасқан каталогта сақталған басқа файл бар. Excel файлы енді сақталды.
  • Файл атауы 1.

  • Алдымен Әзірлеуші<7 бөліміне өтіңіз> қойындысын таңдап, Visual Basic түймесін басыңыз. Егер ол жоқ болса, Әзірлеуші ​​қойындысын қосу керек. Немесе Visual Basic өңдегішін ашу үшін " Alt+F11 " пернелерін басуға болады.

  • Содан кейін жаңа диалогтық терезе пайда болады, сол диалогтық терезеде Кірістіру > Модуль түймесін басыңыз.

  • Кейін, Модуль редакторының терезесінде келесі кодты теріңіз: 
3952

  • Сосын <жабыңыз. 6>Модуль терезесі.
  • Одан кейін Көру қойындысына > Макростар өтіңіз.
  • Одан кейін Көру түймесін басыңыз.Макростар .

  • Макростарды көру түймешігін басқаннан кейін дәл қазір жасаған макростарды таңдаңыз. Мұндағы атау Файл_жолсыз_ашық . Содан кейін «Іске қосу» түймесін басыңыз.

  • Орындау түймесін басқаннан кейін 1 деп аталатын файлдың қазір ашық екенін байқайсыз.
  • Міне, Excel бағдарламасындағы VBA көмегімен айнымалы атауы бар жұмыс кітабын ашамыз.

🔎 Бөлім Код 

4868

⮚ Алдымен біз ішкі процедураның атауын береміз, ол Sub Open_without_File_Path() 

2971

⮚ Біз wrkbk<деп жариялаймыз. 7> жұмыс кітабының түріндегі айнымалы мән ретінде 

2308

⮚ 1.xlsx деп аталатын басты каталогтан файлды ашамыз.

9121

⮚ Соңында ішкі процедураны аяқтаймыз. осы кодтың.

1.3 Жұмыс кітабын тек оқылатын ретінде ашу

Әдіс бірінші әдіске өте ұқсас, бірақ бұл жерде біз файлды тек оқуға арналған режимде ашамыз, яғни ашпаймыз. Excel файлындағы кез келген деректерді немесе мәнді өзгерте алады.

Қадамдар

  • Біз ашқымыз келетін файл құжат қалтасында сақталады.
  • Және бұл біз тек оқуға арналған файл ретінде ашқымыз келеді.

  • Алдымен Әзірлеуші ​​ бөліміне өтіңіз. қойындысын басып, Visual Basic<7 түймесін басыңыз>. Егер ол жоқ болса, Әзірлеуші ​​қойындысын қосу керек. Немесе Visual Basic өңдегішін ашу үшін ' Alt+F11 ' пернелерін басуға болады.

  • Содан кейін жаңа болады. тілқатысу терезесінде сол диалогтық терезеде түймесін басыңызКірістіру > Модуль .

  • Келесі Модуль редакторының терезесінде теріңіз келесі код: 
7100
  • Одан кейін Модуль терезесін жабыңыз.
  • Одан кейін Көру қойындысына өтіңіз > Макростар .
  • Одан кейін Макростарды көру түймесін басыңыз.

  • Көру түймесін басқаннан кейін Макростар, дәл қазір жасаған макростарды таңдаңыз. Мұндағы атау Файлмен_ашық_тек_оқу . Содан кейін Орындау түймесін басыңыз.

  • Орындау түймесін басқаннан кейін файлдың ашылғанын көреміз. тек оқуға арналған, тақырып жолағында көрсетілгендей.

🔎 Кодтың бөлінуі 

6864

⮚ Біріншіден, біз ішкі процедураның атауын береміз, ол Open_with_File_Read_Only() 

3284

⮚ Біз wrkbk мәнін Жұмыс кітабы түріндегі<айнымалы ретінде жариялаймыз

7700

⮚ Содан кейін файл тағайындалған каталогтан ашылады және файл соңғы аргумент арқылы тек оқуға орнатылады.

4827

⮚ Соңында, біз аяқтаймыз. осы кодтың ішкі процедурасы.

Толығырақ оқу: Жұмыс кітабын Excel VBA бағдарламасымен тек оқуға арналған етіп ашу жолы

2. Хабарлама жолағын пайдалану

Алдыңғы әдіске дерлік ұқсас, біз Excel бағдарламасында VBA коды арқылы файлдарды аша аламыз, бірақ бұл жағдайда біз мұнда шағын хабар терезесін қосамыз.

Қадамдар

  • Алдымен Әзірлеуші ​​ қойындысына өтіп, Visual Basic түймесін басыңыз. Егер сізде бұл болмаса, қосу керекӘзірлеуші ​​қойындысы . Немесе Visual Basic өңдегішін ашу үшін ' Alt+F11' пернелерін басуға да болады.

  • Содан кейін жаңа диалогтық терезе пайда болады, сол диалогтық терезеде Кірістіру > Модуль түймесін басыңыз.

  • Кейін, Модуль редакторының терезесінде келесі кодты теріңіз: 
6725

  • Содан кейін Модуль терезесі.
  • Одан кейін Көру қойындысына > Макростар өтіңіз.
  • Одан кейін Көру түймесін басыңыз. Макростар .

  • Макростарды көру түймешігін басқаннан кейін дәл қазір жасаған макростарды таңдаңыз. Мұндағы атау Open_File_with_Messege_Box . Содан кейін Орындау түймесін басыңыз.

  • Содан кейін біз Файл сәтті ашылғанын көрсететін ескерту терезесін алдық .
  • Одан кейін Жарайды түймесін басыңыз.

  • Содан кейін файлдың қазір екенін көреміз. ашыңыз.

  • Содан кейін кодты аздап өзгертуге тырысамыз.
  • Файл атын етіп өзгертеміз. Үлгі10 және құжаттар қалтасында шын мәнінде Үлгі10 атты файл жоқ.

  • Сосын біз Кодты қайта іске қосыңыз және Файлды ашу сәтсіз аяқталды хабар терезесі пайда болады.
  • Осыдан кейін OK түймесін басыңыз.

🔎 Кодтың бөлінуі 

8996

⮚ Алдымен біз ішкі процедураның атауын береміз. Файлмен_тек_оқуға_ашу() 

4025

⮚ Біз wrkbk түрін жұмыс кітабында айнымалы ретінде жариялаңыз 

4658
3221

⮚ Бұл жол Sample деп аталатын файл каталогта бар-жоғын тексереді. Егер файл бар болса, ол файлды ашыңыз және сол уақытта хабарды көрсетеді.

2225

⮚ Егер каталогта Үлгі атты файл болмаса, онда бұл хабарлама жеткізіледі.

7811

⮚ Соңында біз осы кодтың қосалқы процедурасын аяқтаймыз.

9367

⮚ Соңында осы кодтың қосалқы процедурасын аяқтаймыз.

Толығырақ оқу: Жұмыс кітабын ашу және VBA көмегімен макросты іске қосу (4 мысал)

3. Файлды ашу үшін диалогтық терезені пайдалану

Файл орны каталогын шығарып алу және оларды әр жолы импорттау VBA кодында өте қиын. Мәселені шешу үшін біз кез келген каталогтан файлды таңдау үшін диалогтық терезені қалай пайдалануға болатынын көрсетеміз.

Қадамдар

  • Енді біз файлды ашамыз. файл шолғышының тілқатысу терезесін пайдаланып.
  • Алдымен Әзірлеуші ​​ қойындысына өтіп, Visual Basic түймесін басыңыз. Егер ол жоқ болса, Әзірлеуші ​​қойындысын қосу керек. Немесе Visual Basic өңдегішін ашу үшін ' Alt+F11' пернелерін басуға да болады.

  • Содан кейін жаңа диалогтық терезе пайда болады, сол диалогтық терезеде Кірістіру > Модуль түймесін басыңыз.

  • Кейін, Модуль редакторының терезесінде келесі кодты теріңіз: 
3550
  • Содан кейін Модульді жабыңыз. терезе.
  • Одан кейін Көру қойындысына > Макростар өтіңіз.
  • Одан кейін Макростарды көру<7 түймесін басыңыз>.

  • Макростарды көру түймесін басқаннан кейін, дәл қазір жасаған макростарды таңдаңыз. Мұндағы атау Open_File_with_Dialog_Box . Содан кейін Орындау түймесін басыңыз.

  • Содан кейін жаңа терезе ашылады. Файл зерттеушісі тілқатысу терезесінде Үлгі тармағын таңдап, Жарайды түймесін басыңыз.

  • Содан кейін файл атауы Үлгі ашылды.
  • Міне, Excel бағдарламасындағы VBA көмегімен айнымалы атауы бар жұмыс кітабын ашамыз.

🔎 Кодтың бөлінуі 

8936

⮚ Алдымен біз ішкі процедураның атауын береміз, ол Sub Open_File_with_Dialog_Box()

болып табылады.
4263

⮚ Dbox айнымалы ретінде FileDialog түрі

9358

⮚ File_Path <6 ішінде айнымалы ретінде жариялаймыз>Файл_жолы Асында Жол түр 

8519

⮚ Бірінші жолдан диалогтық терезе пайда болады. Келесі жол диалогтық терезенің атын және файл түрін білдіреді.

⮚ Dbox.Title диалогтық терезенің тақырыбын орнатады. және FileType файл түрін орнатыңыз.

9340

⮚ Dbox.Filters.Clear диалог терезесінде қолданылған алдыңғы сүзгіні тазартады

8035

⮚ Dbox.Show диалогтық терезе файлда пайда болады.

⮚ Бұл жол пайдаланушының бірнеше файлды таңдағанын немесе таңдамағанын анықтайды. Пайдаланушы мынадан көп таңдасабір файл болса, бүкіл процедура тоқтайды.

9798

⮚ Соңында біз осы кодтың ішкі процедурасын аяқтаймыз.

Толығырақ оқу: Қалай ашу керек Excel VBA көмегімен қалта және файлды таңдау (4 мысал)

4. Жұмыс кітабын пайдалану.Сипатты қосу

Алдыңғы әдістерге қайшы, біз алдын ала анықталған каталогта жаңа Excel файлын жасаймыз. содан кейін оны Жұмыс кітабы арқылы ашамыз. сипатын қосыңыз.

Қадамдар

  • Алдымен Әзірлеуші ​​ қойындысына өтіп, Visual Basic<түймесін басыңыз. 7>. Егер ол жоқ болса, Әзірлеуші ​​қойындысын қосу керек. Немесе Visual Basic өңдегішін ашу үшін ' Alt+F11' пернелерін басуға да болады.

  • Содан кейін жаңа диалогтық терезе пайда болады, сол диалогтық терезеде Кірістіру > Модуль түймесін басыңыз.

Кейін, Модуль редакторының терезесінде келесі кодты теріңіз:

2735
  • Одан кейін Модуль терезесін жабыңыз.
  • Кейін ол үшін Көру қойындысына > Макростар өтіңіз.
  • Одан кейін Макростарды көру түймесін басыңыз.

  • Макростарды көру түймешігін басқаннан кейін дәл қазір жасаған макростарды таңдаңыз. Мұндағы атау Ашық_файл_қосу_сипатымен . Содан кейін Орындау түймесін басыңыз.

  • Іске қосу түймесін басқаннан кейін жаңа файлдың енді екенін байқайсыз. құрылды және ашылды.

🔎 Кодекстің бөлінуі

⮚ Біріншіден, біз қамтамасыз етеміз. қосалқы процедураның атауы

Алдыңғы пост Excel бағдарламасында ашылмалы тізіммен пішінді қалай жасауға болады
Келесі пост Excel бағдарламасында тінтуір дөңгелегі арқылы тегіс айналдыру (толық талдау)

Хью Уэст – салада 10 жылдан астам тәжірибесі бар жоғары тәжірибелі Excel тренері және талдаушысы. «Бухгалтерлік есеп және қаржы» мамандығы бойынша бакалавр дәрежесі және іскерлік әкімшілендіру магистрі дәрежесі бар. Хью оқытуға құмар және ұстануға және түсінуге оңай бірегей оқыту әдісін әзірледі. Оның Excel бағдарламасындағы сараптамалық білімі бүкіл әлем бойынша мыңдаған студенттер мен мамандарға біліктіліктерін арттыруға және мансаптық жетістіктерге жетуге көмектесті. Блогы арқылы Хью өз білімін әлеммен бөліседі, жеке адамдар мен бизнеске толық әлеуетін ашуға көмектесу үшін тегін Excel оқулықтары мен онлайн тренингтерін ұсынады.