How Excel VBA opens, closes multiple workbooks

Write to open and close multiple workbooks with Excel VBA, and the appropriate code is as follows:

1, open the specified workbook

Dim wb As Workbook

Set wb = "File path and filename"

Workbooks.Open filename:= WB

2. Close all workbooks and save

Workbooks.close

3, open a number of work-thin program code:

Sub Openworkbooks ()

On Error Resume Next

Dim Selectfiles as Variant

' Show open File dialog box

Selectfiles = Application.getopenfilename ("Excel file (*.xl*)," & "*.xl*",, "open", True)

' Not selected

If TypeName (selectfiles) = "Boolean" Then

Exit Sub

End If

' Open the selected workbook

For i = 1 to UBound (selectfiles)

Workbooks.Open Selectfiles (i)

Next I

End Sub

Classification:

• Excel Tutorials