Ga naar hoofdinhoud

Hoe open ik een Excel-bestand met het bladervenster?

Het kan voor u gemakkelijk en snel zijn om een ​​Excel-bestand te openen vanuit een bladervenster wanneer u met een werkmap werkt, in plaats van de geactiveerde werkmap te minimaliseren om een ​​andere werkmap te kiezen en te openen. In deze zelfstudie wordt beschreven hoe u een Excel-bestand opent met behulp van het bladervenster in de Excel-werkmap.

Open een Excel-bestand met behulp van het bladervenster met VBA-code

Open een Excel-bestand met behulp van het bladervenster met VBA-code

Om een ​​Excel-werkmap te openen met behulp van het bladervenster, kan de volgende VBA-code u helpen, doe dit als volgt:

1. Houd de ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

2. Klikken Invoegen > Moduleen plak de volgende macro in het Module Venster.

VBA-code: open Excel-werkmap met het bladervenster:

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. Druk na het plakken van bovenstaande code op F5 sleutel om deze code uit te voeren, en de Blader venster wordt weergegeven, selecteer vervolgens een Excel-werkmap die u wilt openen en klik op OK knop, zie screenshot:

doc open bestandsbrowser 1

4. En de specifieke werkmap wordt onmiddellijk geopend.

Beste Office-productiviteitstools

🤖 Kutools AI-assistent: Een revolutie teweegbrengen in de data-analyse op basis van: Intelligente uitvoering   |  Genereer code  |  Aangepaste formules maken  |  Analyseer gegevens en genereer grafieken  |  Roep Kutools-functies aan...
Populaire functies: Zoek, markeer of identificeer duplicaten   |  Verwijder lege rijen   |  Combineer kolommen of cellen zonder gegevens te verliezen   |   Ronde zonder formule ...
Super opzoeken: Meerdere criteria VLookup  |   VLookup met meerdere waarden  |   VOpzoeken over meerdere bladen   |   Fuzzy opzoeken ....
Geavanceerde vervolgkeuzelijst: Maak snel een vervolgkeuzelijst   |  Afhankelijke vervolgkeuzelijst   |  Multi-select vervolgkeuzelijst ....
Kolom Beheerder: Voeg een specifiek aantal kolommen toe  |  Kolommen verplaatsen  |  Schakel de zichtbaarheidsstatus van verborgen kolommen in  |  Vergelijk bereiken en kolommen ...
Uitgelichte functies: Raster focus   |  Ontwerpweergave   |   Grote formulebalk   |  Werkmap- en bladbeheer   |  resource Library (Auto-tekst)   |  Datumkiezer   |  Combineer werkbladen   |  Cellen coderen/decoderen   |  Stuur e-mails per lijst   |  Super filter   |   Speciaal filter (filter vet/cursief/doorhalen...) ...
Top 15 gereedschapsets:  12 Tekst Tools (toe te voegen tekst, Tekens verwijderen, ...)   |   50+ tabel Types (Gantt Chart, ...)   |   40+ Praktisch Formules (Bereken leeftijd op basis van verjaardag, ...)   |   19 Invoeging Tools (QR-code invoegen, Afbeelding invoegen vanaf pad, ...)   |   12 Camper ombouw Tools (Getallen naar woorden, Currency Conversion, ...)   |   7 Samenvoegen en splitsen Tools (Geavanceerd Combineer rijen, Gespleten cellen, ...)   |   ... en meer

Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen.  Klik hier om de functie te krijgen die u het meest nodig heeft...

Omschrijving

Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

  • Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!
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