Przejdź do głównej zawartości

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

🤖 Pomocnik AI Kutools: Zrewolucjonizuj analizę danych w oparciu o: Inteligentne wykonanie   |  Wygeneruj kod  |  Twórz niestandardowe formuły  |  Analizuj dane i generuj wykresy  |  Wywołaj funkcje Kutools...
Popularne funkcje: Znajdź, wyróżnij lub zidentyfikuj duplikaty   |  Usuń puste wiersze   |  Łącz kolumny lub komórki bez utraty danych   |   Okrągły bez wzoru ...
Super wyszukiwanie: Wiele kryteriów VLookup  |   Wiele wartości VLookup  |   Przeglądanie pionowe na wielu arkuszach   |   Wyszukiwanie rozmyte ....
Zaawansowana lista rozwijana: Szybko twórz listę rozwijaną   |  Zależna lista rozwijana   |  Lista rozwijana wielokrotnego wyboru ....
Menedżer kolumn: Dodaj określoną liczbę kolumn  |  Przesuń kolumny  |  Przełącz stan widoczności ukrytych kolumn  |  Porównaj zakresy i kolumny ...
Polecane funkcje: Fokus siatki   |  Widok projektu   |   Duży pasek formuły   |  Menedżer skoroszytów i arkuszy   |  Biblioteka zasobów (Automatyczny tekst)   |  Selektor dat   |  Połącz arkusze   |  Szyfruj/odszyfruj komórki   |  Wysyłaj e-maile według listy   |  Super filtr   |   Specjalny filtr (filtruj pogrubienie/kursywa/przekreślenie...) ...
15 najlepszych zestawów narzędzi:  12 Tekst Tools (Dodaj tekst, Usuń znaki, ...)   |   50 + Wykres rodzaje (Wykres Gantta, ...)   |   40+ Praktyczne Wzory (Oblicz wiek na podstawie urodzin, ...)   |   19 Wprowadzenie Tools (Wstaw kod QR, Wstaw obraz ze ścieżki, ...)   |   12 Konwersja Tools (Liczby na słowa, Przeliczanie walut, ...)   |   7 Połącz i podziel Tools (Zaawansowane wiersze łączenia, Podział komórki, ...)   |   ... i więcej

Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas.  Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...

Opis

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!
Comments (1)
No ratings yet. Be the first to rate!
sarada
sarada
This comment was minimized by the moderator on the site
Sub mail_merge()

On Error Resume Next

Dim xStrFile As String
Dim xFilePath As String
Dim xFileDlg As FileDialog
Dim xFileDlgItem As Variant
Dim xOutApp As Outlook.Application
Dim xMailOut As Outlook.MailItem
Application.ScreenUpdating = False
Dim data_file As Workbook

'Set WB_Data_file = Workbooks.Open(ThisWorkbook.Sheets("sheet1").Range("h11").Value)
'WB_Data_file.Activate
'WB_Data_file.Sheets("sheet1").Activate
lastrow = ActiveWorkbook.Sheets("Data ").Range("a" & Rows.Count).End(xlUp).Row
'username1 = Environ.UserName
For i = 2 To lastrow

'******please change your files path here***********************
'C:\Users\BodapatiSarada\Desktop\Maxi project2\checking files
Path = "C:\Users\000H6P744\Desktop\Test project\" & ActiveWorkbook.Sheets("Data ").Range("E" & i).Value & ".xlsx" ' we need to change path
Set xOutApp = CreateObject("Outlook.Application")
Set xMailOut = xOutApp.CreateItem(olMailItem)
'If xFileDlg.Show = -1 Then
With xMailOut
.BodyFormat = olFormatRichText
.To = ActiveWorkbook.Sheets("Data ").Cells(i, 1).Value
.CC = ActiveWorkbook.Sheets("Data ").Cells(i, 2).Value
.Subject = ActiveWorkbook.Sheets("Data ").Cells(i, 3).Value
.body = ActiveWorkbook.Sheets("Data ").Cells(i, 4).Value
.Display
.Attachments.Add Path
.Display
.Send

Application.Wait (Now() + TimeValue("0:00:01"))
End With
ActiveWorkbook.Sheets("Data ").Cells(i, 6).Value = "completed"

Next

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

Set xMailOut = Nothing
Set xOutApp = Nothing
Application.ScreenUpdating = True

MsgBox "Completed"

End Sub




Reply
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations