Hur öppnar jag en Excel-fil med hjälp av bläddringsfönstret?

Det kan vara enkelt och snabbt för dig att öppna en excel-fil från ett bläddringsfönster när du arbetar med en arbetsbok istället för att minimera den aktiverade arbetsboken för att välja och öppna en annan arbetsbok. Denna handledning kommer att prata om hur man öppnar en Excel-fil med hjälp av bläddringsfönstret i Excel-arbetsbok.

Öppna en Excel-fil med hjälp av bläddringsfönstret med VBA-kod

Öppna en Excel-fil med hjälp av bläddringsfönstret med VBA-kod

För att öppna en Excel-arbetsbok med hjälp av bläddringsfönstret kan följande VBA-kod hjälpa dig, gör så här:

1. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

2. Klicka Insert > Modulernaoch klistra in följande makro i Modulerna Fönster.

VBA-kod: Öppna Excel-arbetsbok med hjälp av bläddringsfönstret:

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. När du har klistrat in ovanför koden trycker du på F5 för att köra den här koden och Bläddra fönstret visas, välj sedan en Excel-arbetsbok som du vill öppna och klicka sedan på OK knapp, se skärmdump:

4. Och den specifika arbetsboken öppnas omedelbart.