Note: The other languages of the website are Google-translated. Back to English

Jak otworzyć plik Excela za pomocą okna przeglądania?

Otwarcie pliku programu Excel z okna przeglądania podczas korzystania ze skoroszytu zamiast minimalizowania aktywowanego skoroszytu w celu wybrania i otwarcia innego skoroszytu może być łatwe i szybkie. W tym samouczku omówimy, jak otworzyć plik programu Excel za pomocą okna przeglądania w skoroszycie programu Excel.

Otwórz plik Excela, używając okna przeglądania z kodem VBA


Otwórz plik Excela, używając okna przeglądania z kodem VBA

Aby otworzyć skoroszyt programu Excel za pomocą okna przeglądania, pomoże Ci następujący kod VBA, wykonaj następujące czynności:

1. Przytrzymaj ALT + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.

2, Kliknij wstawka > Modułi wklej następujące makro w Moduł Okno.

Kod VBA: Otwórz skoroszyt programu Excel za pomocą okna przeglądania:

Sub OpenNewBox()
Dim xFilePath As String
Dim xObjFD As FileDialog
Set xObjFD = Application.FileDialog(msoFileDialogFilePicker)
  With xObjFD
        .AllowMultiSelect = False
        .Filters.Add "Excel Files", "*.xls; *.xlsx; *.xlsm; *.xlsb", 1
        .Show
        If .SelectedItems.Count > 0 Then
            xFilePath = .SelectedItems.Item(1)
        Else
            Exit Sub
        End If
    End With
    Workbooks.Open xFilePath
End Sub

3. Po wklejeniu powyższego kodu naciśnij F5 klucz do uruchomienia tego kodu i Przeglądaj zostanie wyświetlone okno, wybierz skoroszyt programu Excel, który chcesz otworzyć, a następnie kliknij OK przycisk, zobacz zrzut ekranu:

doc Otwórz przeglądarkę plików 1

4. Konkretny skoroszyt zostanie natychmiast otwarty.


Najlepsze narzędzia biurowe

Kutools dla programu Excel rozwiązuje większość problemów i zwiększa produktywność o 80%

  • Ponowne użycie: Szybko włóż złożone wzory, wykresy i wszystko, czego używałeś wcześniej; Szyfruj komórki z hasłem; Utwórz listę mailingową i wysyłaj e-maile ...
  • Pasek Super Formula (łatwo edytować wiele wierszy tekstu i formuły); Układ do czytania (łatwe odczytywanie i edytowanie dużej liczby komórek); Wklej do filtrowanego zakresu...
  • Scal komórki / wiersze / kolumny bez utraty danych; Podziel zawartość komórek; Połącz zduplikowane wiersze / kolumny... Zapobiegaj zduplikowanym komórkom; Porównaj zakresy...
  • Wybierz Duplikat lub Unikalny Wydziwianie; Wybierz puste wiersze (wszystkie komórki są puste); Super Find i Fuzzy Find w wielu zeszytach ćwiczeń; Losowy wybór ...
  • Dokładna kopia Wiele komórek bez zmiany odwołania do formuły; Automatyczne tworzenie odniesień do wielu arkuszy; Wstaw punktory, Pola wyboru i nie tylko ...
  • Wyodrębnij tekst, Dodaj tekst, Usuń według pozycji, Usuń przestrzeń; Tworzenie i drukowanie podsumowań stronicowania; Konwertuj zawartość komórek i komentarze...
  • Super filtr (zapisz i zastosuj schematy filtrów do innych arkuszy); Zaawansowane sortowanie według miesiąca / tygodnia / dnia, częstotliwości i innych; Specjalny filtr pogrubieniem, kursywą ...
  • Połącz skoroszyty i arkusze robocze; Scal tabele na podstawie kluczowych kolumn; Podziel dane na wiele arkuszy; Konwersja wsadowa xls, xlsx i PDF...
  • Ponad 300 zaawansowanych funkcji. Obsługuje Office / Excel 2007-2021 i 365. Obsługuje wszystkie języki. Łatwe wdrażanie w przedsiębiorstwie lub organizacji. Pełne funkcje 30-dniowa bezpłatna wersja próbna. 60-dniowa gwarancja zwrotu pieniędzy.
karta kte 201905

Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę

  • Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
  • Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
  • Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!
officetab dół
Sortuj komentarze według
Komentarze (1)
Brak ocen. Oceń jako pierwszy!
Ten komentarz został zminimalizowany przez moderatora na stronie
Submail_merge()

On Error Resume Next

Dim xStrFile jako ciąg
Dim xFilePath jako ciąg
Dim xFileDlg jako okno pliku
Dim xFileDlgItem jako wariant
Dim xOutApp jako Outlook.Application
Dim xMailOut jako Outlook.MailItem
Application.ScreenUpdating = Fałsz
Dim data_file jako skoroszyt

'Set WB_Data_file = Workbooks.Open(ThisWorkbook.Sheets("sheet1").Range("h11").Value)
'WB_Data_file.Aktywuj
'WB_Data_file.Sheets("arkusz1").Aktywuj
lastrow = ActiveWorkbook.Sheets("Dane ").Range("a" & Rows.Count).End(xlUp).Row
'nazwa_użytkownika1 = Środowisko.Nazwa_użytkownika
Dla i = 2 Do ostatniego

'**********proszę zmienić ścieżkę do swoich plików tutaj*************************
'C:\Użytkownicy\BodapatiSarada\Desktop\Projekt Maxi2\sprawdzanie plików
Path = "C:\Users\000H6P744\Desktop\Test project\" & ActiveWorkbook.Sheets("Data ").Range("E" & i).Value & ".xlsx" ' musimy zmienić ścieżkę
Ustaw xOutApp = CreateObject("Outlook.Application")
Ustaw xMailOut = xOutApp.CreateItem(olMailItem)
'Jeżeli xFileDlg.Show = -1 Wtedy
Dzięki xMailOut
.BodyFormat = olFormatRichText
.To = ActiveWorkbook.Sheets("Dane ").Cells(i, 1).Value
.CC = ActiveWorkbook.Sheets("Dane ").Cells(i, 2).Wartość
.Subject = ActiveWorkbook.Sheets("Dane ").Cells(i, 3).Value
.body = ActiveWorkbook.Sheets("Dane ").Cells(i, 4).Value
.Pokaz
.Załączniki.Dodaj ścieżkę
.Pokaz
.Wysłać

Application.Wait (Now() + TimeValue("0:00:01"))
Kończyć z
ActiveWorkbook.Sheets("Dane ").Cells(i, 6).Value = "ukończono"

Dalej

Application.Wait (Now() + TimeValue("0:00:01"))

Ustaw xMailOut = Nic
Ustaw xOutApp = Nic
Application.ScreenUpdating = True

MsgBox "Zakończono"

End Sub




Nie ma tu jeszcze żadnych komentarzy

Bądż na bieżąco

Prawa autorskie © 2009 - www.extendoffice.com. | Wszelkie prawa zastrzeżone. Zasilany przez ExtendOffice, | Mapa strony
Microsoft i logo Office są znakami towarowymi lub zastrzeżonymi znakami towarowymi Microsoft Corporation w Stanach Zjednoczonych i / lub innych krajach.
Chronione przez Sectigo SSL