Kod VBA otwierający plik Excel z folderu

Kod VBA otwierający plik Excel z folderu
Spis treści

Otwórz plik Excel z folderu za pomocą kodu VBA

Co czy to:

Ten kod VBA pomoże Ci przeglądać i otwierać plik Excel z folderu lub katalogu.

Dlaczego:

Kiedy tworzysz program i chcesz zapewnić użytkownikowi możliwość wybrania konkretnego pliku Excel i otwarcia, ten kod może zostać użyty do tego samego.

Jak aby otworzyć plik Excel z folderu za pomocą kodu VBA:

Krok 1: Otwórz skoroszyt i naciśnij Alt + F11, aby wstawić kod.

Otwórz plik Excel z folderuPin

Krok 2: Skopiuj i wklej poniższy kod w oknie edytora VBA i zapisz skoroszyt.




Pod OpenSpecificWorkbook()

Ciemny xlNazwa Jako wariant

xlName = Application.GetOpenFilename(FileFilter:=”Skoroszyty programu Excel,*.xl*”, Title:=”Wybierz skoroszyt do otwarcia”, MultiSelect:=FAŁSZ)  'Metoda GetOpenFilename aktywuje okno dialogowe

Jeśli xlNazwa <> Fałsz Wtedy

Workbooks.Open Nazwa pliku:=xlName

Zakończ jeśli

Napis końcowy

Krok 3: Wstaw przycisk polecenia w pliku Przewyższać File lub UserForm i przypisz to makro.
Anson Antoni
Anson Antoni
Anson jest współautorem i założycielem w www.askeygeek.com. Uczenie się czegokolwiek nowego zawsze było jego pasją, ASKEYGEEK.com jest wynikiem jego pasji do technologii i biznesu. Posiada dziesięcioletnie wszechstronne doświadczenie w outsourcingu procesów biznesowych, finansach i księgowości, technologiach informatycznych, doskonałości operacyjnej i inteligencji biznesowej. W trakcie swojej kadencji pracował dla takich organizacji jak Genpact, Hewlett Packard, M*Modal i Capgemini, zajmując różne role i obowiązki. Poza biznesem i technologią jest miłośnikiem kina, który spędza razem godziny, oglądając i ucząc się kina, a także Twórcy Filmowego!

Dodaj komentarz

Twój adres e-mail nie zostanie opublikowany. Wymagane pola są oznaczone *

Gratulacje!
Zrobiłeś to,
Nie zamykaj!
Podaj swoją szansę na wygraną 100 000 kredytów na postacie UberTTS
Dziękujemy za wizytę!

To wyskakujące okienko nie pokaże zależy od Ciebie Ponownie!!!

Jajko wielkanocne UberTTS 100 tys
Share to...