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

Hogyan nyitható meg egy Excel fájl a böngészőablak használatával?

Könnyen és gyorsan nyithat meg egy excel fájlt egy böngészőablakból, amikor munkafüzettel foglalkozik, ahelyett, hogy minimalizálná az aktivált munkafüzetet egy másik munkafüzet kiválasztásához és megnyitásához. Ez az oktatóanyag arról szól, hogyan nyitható meg egy Excel fájl az Excel munkafüzet böngészőablakának használatával.

Nyisson meg egy Excel fájlt a VBA kóddal ellátott böngészőablak használatával


Nyisson meg egy Excel fájlt a VBA kóddal ellátott böngészőablak használatával

Az Excel munkafüzet böngészőablak használatával történő megnyitásához a következő VBA-kód segíthet, kérjük, tegye a következőket:

1. Tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.

2. Kattints betétlap > Modulok, és illessze be a következő makrót a Modulok Ablak.

VBA kód: Nyissa meg az Excel munkafüzetet a böngészőablak használatával:

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. A fenti kód beillesztése után nyomja meg a gombot F5 kulcs a kód futtatásához, és a Tallózás ablak jelenik meg, majd válassza ki a megnyitni kívánt Excel-munkafüzetet, majd kattintson a gombra OK gomb, lásd a képernyőképet:

doc fájlböngésző megnyitása 1

4. A konkrét munkafüzet pedig azonnal kinyitásra kerül.


A legjobb irodai termelékenységi eszközök

A Kutools for Excel megoldja a legtöbb problémát, és 80% -kal növeli a termelékenységet

  • újrafelhasználás: Gyorsan helyezze be összetett képletek, diagramok és bármi, amit korábban használt; Cellák titkosítása jelszóval; Levelezőlista létrehozása és e-maileket küldeni ...
  • Szuper Formula Bár (könnyedén szerkeszthet több szöveget és képletet); Olvasás elrendezés (könnyen olvasható és szerkeszthető nagyszámú cella); Beillesztés a Szűrt tartományba...
  • Cellák / sorok / oszlopok egyesítése az adatok elvesztése nélkül; Osztott cellák tartalma; Kombinálja a duplikált sorokat / oszlopokat... megakadályozza az ismétlődő cellákat; Hasonlítsa össze a tartományokat...
  • Válassza a Másolat vagy az Egyedi lehetőséget Sorok; Válassza az Üres sorok lehetőséget (az összes cella üres); Super Find és Fuzzy Find sok munkafüzetben; Véletlenszerű kiválasztás ...
  • Pontos másolás Több cella a képletreferencia megváltoztatása nélkül; Automatikus referenciák létrehozása több lapra; Helyezze be a golyókat, Jelölőnégyzetek és még sok más ...
  • Kivonat szöveg, Szöveg hozzáadása, Eltávolítás pozíció szerint, Hely eltávolítása; Hozz létre és nyomtasson személyhívó részösszegeket; Konvertálás a cellatartalom és a megjegyzések között...
  • Szuper szűrő (mentse el és alkalmazza a szűrősémákat más lapokra); Haladó rendezés hónap / hét / nap, gyakoriság és egyebek szerint; Speciális szűrő félkövér, dőlt betűvel ...
  • Kombinálja a munkafüzeteket és a munkalapokat; Táblázatok egyesítése kulcsoszlopok alapján; Az adatok felosztása több lapra; Kötegelt konvertálás xls, xlsx és PDF...
  • Több mint 300 hatékony funkció. Támogatja az Office / Excel 2007-2021 és 365 verziókat. Minden nyelvet támogat. Könnyű üzembe helyezés vállalatában vagy szervezetében. Teljes funkciók 30 napos ingyenes próbaverzió. 60 napos pénzvisszafizetési garancia.
kte lap 201905

Az Office fül a füles felületet hozza az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
officetab alja
A megjegyzések rendezése szerint
Hozzászólások (1)
Még nincs értékelés. Legyen Ön az első, aki értékel!
A weboldal moderátora ezt a megjegyzést minimalizálta
Sub mail_merge()

On Error Resume Next

Dim xStrFile As String
Dim xFilePath karakterláncként
Dim xFileDlg mint FileDialog
Dim xFileDlgItem As Variant
Dim xOutApp mint Outlook.Application
Dim xMailOut mint Outlook.MailItem
Application.ScreenUpdating = Hamis
Dim data_file munkafüzetként

'Set WB_Data_file = Workbooks.Open(ThisWorkbook.Sheets("sheet1").Tartomány("h11").Érték)
'WB_Data_file.Activate
'WB_Data_file.Sheets("lap1"). Aktiválja
lastrow = ActiveWorkbook.Sheets("Data").Tartomány("a" & Rows.Count).End(xlUp).Sor
'felhasználónév1 = Environ.UserName
Ha i = 2 Az utolsó sorba

'****** Kérjük, változtassa meg a fájl elérési útját***********************
'C:\Users\BodapatiSarada\Desktop\Maxi projekt2\fájlok ellenőrzése
Path = "C:\Users\000H6P744\Desktop\Test project\" & ActiveWorkbook.Sheets("Data ").Range("E" & i).Value & ".xlsx" ' meg kell változtatnunk az elérési utat
Set xOutApp = CreateObject("Outlook.Application")
Állítsa be az xMailOut = xOutApp.CreateItem(olMailItem)
'Ha xFileDlg.Show = -1 Akkor
Az xMailOut segítségével
.BodyFormat = olFormatRichText
.To = ActiveWorkbook.Sheets("Adatok ").Cells(i, 1).Érték
.CC = ActiveWorkbook.Sheets("Data"). Cells(i, 2).Érték
.Subject = ActiveWorkbook.Sheets("Data"). Cells(i, 3).Érték
.body = ActiveWorkbook.Sheets("Adatok "). Cells(i, 4).Érték
.Kijelző
.Attachments.Add Path
.Kijelző
.Küld

Application.Wait (Now() + TimeValue("0:00:01"))
Vége
ActiveWorkbook.Sheets("Adatok").Cells(i, 6).Érték = "befejezve"

Következő

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

Set xMailOut = Semmi
Állítsa be az xOutApp = Semmit
Application.ScreenUpdating = Igaz

MsgBox "Befejezve"

End Sub




Még senki sem írt megjegyzést
Hagyja meg észrevételeit
Feladás vendégként
×
Értékeld ezt a bejegyzést:
0   Karakterek
Javasolt helyek

Kövess minket

Copyright © 2009 - www.extendoffice.com. | Minden jog fenntartva. Powered by ExtendOffice. | Oldaltérkép
A Microsoft és az Office logó a Microsoft Corporation védjegyei vagy bejegyzett védjegyei az Egyesült Államokban és / vagy más országokban.
Sectigo SSL védi