asked on

Close a file vba

Using the code below to open a file. How would I close the file?

DIV = Application.GetOpenFilename(FileFilter:="xls*.Files (*.xls*), *.xls*", Title:="Please select a file")

'browse boxes may be on the main parm sheet i.e. Sheets("Main").VAR_DIV = DIV
' Application.EnableEvents = False
'Application.DisplayAlerts = False
Sheets("Variances").VAR_DIV = DIV

Workbooks.Open (DIV)

rspahitz

Have you tried something like this:

    ActiveWorkbook.Close
    application.Quit

Open in new window

ASKER CERTIFIED SOLUTION

byundt

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

Start Free Trial

leezac

ASKER

Brad - this is in relation to last post you helped with

This is what I am using to close. the close line did not work until I added the Set line. Is that correct though?
__________________________________________________________
Lastrow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).row

Range("G4:G7" & Lastrow).Select
Application.CutCopyMode = False
Selection.Copy
Windows("Cap Gain Div Cust Variance Template.xlsm").Activate
Range("L3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'Close the workbook without displaying a warning about unsaved file. Two alternatives are shown.

Set wb = Workbooks.Open(DIV)
wb.Close SaveChanges:=False 'Close the file using a workbook
End Sub

rspahitz

In VBA, "Set" is required whenever assigning objects (such as workbooks and Sheets) to variables.
It's not needed for lines like this:
Application.CutCopyMode = False
because the property is not an object.