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

Kako odpreti datoteko excel z brskalnikom?

Ko se ukvarjate z delovnim zvezkom, lahko preprosto in hitro odprete datoteko excel iz brskalnega okna, namesto da zmanjšate aktivirani delovni zvezek, da izberete in odprete drug delovni zvezek. Ta vadnica bo govorila o tem, kako odpreti datoteko excel z brskalnim oknom v Excelovem delovnem zvezku.

Datoteko Excel odprite z brskalnim oknom s kodo VBA


Datoteko Excel odprite z brskalnim oknom s kodo VBA

Če želite odpreti Excelov delovni zvezek z brskalnim oknom, vam lahko pomaga naslednja koda VBA, naredite tako:

1. Držite tipko ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. Kliknite Vstavi > Moduliin v mapo prilepite naslednji makro Moduli Okno.

Koda VBA: Odprite Excelov delovni zvezek z brskalnim oknom:

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. Ko prilepite zgornjo kodo, pritisnite F5 tipko za zagon te kode in Brskanje prikaže se okno, nato izberite Excelov delovni zvezek, ki ga želite odpreti, in kliknite OK gumb, glej posnetek zaslona:

doc brskalnik odprte datoteke 1

4. Konkretni delovni zvezek se odpre takoj.


Najboljša orodja za pisarniško produktivnost

Kutools za Excel rešuje večino vaših težav in poveča vašo produktivnost za 80%

  • Ponovna uporaba: Hitro vstavite zapletene formule, grafikoni in vse, kar ste že uporabljali; Šifriraj celice z geslom; Ustvari poštni seznam in pošiljanje e-pošte ...
  • Vrstica Super Formula (enostavno urejanje več vrstic besedila in formule); Bralna postavitev (enostavno branje in urejanje velikega števila celic); Prilepite v filtrirani obseg...
  • Združi celice / vrstice / stolpce brez izgube podatkov; Vsebina razdeljenih celic; Združi podvojene vrstice / stolpce... prepreči podvojene celice; Primerjaj obsege...
  • Izberite Duplicate ali Unique Vrstice; Izberite prazne vrstice (vse celice so prazne); Super Find in Fuzzy Find v mnogih delovnih zvezkih; Naključna izbira ...
  • Natančna kopija Več celic brez spreminjanja sklica formule; Samodejno ustvarjanje referenc na več listov; Vstavi oznake, Potrditvena polja in še več ...
  • Izvleček besedila, Dodaj besedilo, Odstrani po položaju, Odstrani presledek; Ustvari in natisni vmesne seštevke strani Pretvarjanje med vsebino celic in komentarji...
  • Super filter (shranite in uporabite sheme filtrov za druge liste); Napredno razvrščanje glede na mesec / teden / dan, pogostost in drugo; Poseben filter s krepko, ležeče ...
  • Združite delovne zvezke in delovne liste; Spoji tabele na podlagi ključnih stolpcev; Razdelite podatke na več listov; Paketna pretvorba xls, xlsx in PDF...
  • Več kot 300 zmogljivih funkcij. Podpira Office / Excel 2007-2021 in 365. Podpira vse jezike. Enostavna uvedba v vašem podjetju ali organizaciji. 30-dnevna brezplačna preizkusna različica vseh funkcij. 60-dnevna garancija vračila denarja.
zavihek kte 201905

Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

  • Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
dno pisarniške mize
Komentarji (1)
Ocene še ni. Bodite prvi in ​​ocenite!
Ta komentar je moderator na spletnem mestu minimiziral
Submail_merge()

On Error Resume Next

Zatemni xStrFile kot niz
Dim xFilePath kot niz
Zatemni xFileDlg kot FileDialog
Zatemni xFileDlgItem kot različico
Zatemni xOutApp kot Outlook.Application
Zatemni xMailOut kot Outlook.MailItem
Application.ScreenUpdating = Napačno
Zatemni data_file kot delovni zvezek

'Nastavi WB_Data_file = Workbooks.Open(ThisWorkbook.Sheets("sheet1").Range("h11").Value)
'WB_Data_file.Activate
'WB_Data_file.Sheets("list1").Aktiviraj
lastrow = ActiveWorkbook.Sheets("Data ").Range("a" & Rows.Count).End(xlUp).Row
'username1 = Environ.UserName
Za i = 2 Do zadnjega

'***** Prosimo, spremenite pot do datotek tukaj*************************
'C:\Users\BodapatiSarada\Desktop\Maxi project2\preverjanje datotek
Pot = "C:\Users\000H6P744\Desktop\Test project\" & ActiveWorkbook.Sheets("Data ").Range("E" & i).Value & ".xlsx" ' moramo spremeniti pot
Nastavi xOutApp = CreateObject("Outlook.Application")
Nastavi xMailOut = xOutApp.CreateItem(olMailItem)
'Če je xFileDlg.Show = -1 Potem
Z xMailOut
.BodyFormat = olFormatRichText
.To = ActiveWorkbook.Sheets("Podatki ").Cells(i, 1).Value
.CC = ActiveWorkbook.Sheets("Podatki ").Cells(i, 2).Value
.Subject = ActiveWorkbook.Sheets("Podatki ").Cells(i, 3).Value
.body = ActiveWorkbook.Sheets("Podatki ").Cells(i, 4).Value
.Prikaz
.Priloge.Dodaj pot
.Prikaz
.Pošlji

Application.Wait (Zdaj() + TimeValue("0:00:01"))
Končaj s
ActiveWorkbook.Sheets("Podatki ").Cells(i, 6).Value = "completed"

Naslednji

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

Nastavite xMailOut = Nič
Nastavite xOutApp = Nič
Application.ScreenUpdating = Res

MsgBox "Končano"

End Sub




Tu še ni objavljenih komentarjev
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije

Sledi nam

Copyright © 2009 - www.extendoffice.com. | Vse pravice pridržane. Poganja ga ExtendOffice. | Kazalo
Microsoft in logotip Office sta blagovni znamki ali registrirani blagovni znamki družbe Microsoft Corporation v ZDA in / ali drugih državah.
Zaščiteno s Sectigo SSL