close inactive file

**jseufert** · 09-21-2009, 01:02 PM

I'm using the

application.getopenfilename

method to browse and open a file. i then copy some data to another file. My problem is that I can't seem to close that same file I opened with the get mthod. i know how to use the

activewindow.close

proceedure to close the active window, but the file I want to close is not active at the time it needs to be closed, and I'll never know the name of the file since people name their files differently.

Heres my basic code:

NewFN1 = Application.GetOpenFilename(FileFilter:="Excel Files (*.xls), *.xls", Title:="Please Select Lock Detail Report")
If NewFN1 = False Then
' They pressed Cancel
MsgBox "Stopping, no file selected."
Exit Sub
Else
Workbooks.Open Filename:=NewFN1
End If

Sheets("DownLoadReports").Select
    Cells.Select
    Selection.Copy
    Windows("monthly servicing prep.xls").Activate
    Sheets("Sheet1").Select
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False

JS

**Leith Ross** · 09-21-2009, 01:15 PM

Hello JS,

Since the file you opened is a workbook, you can close the file this way...

NewFN1 = Application.GetOpenFilename(FileFilter:="Excel Files (*.xls), *.xls", Title:="Please Select Lock Detail Report")
If NewFN1 = False Then
' They pressed Cancel
MsgBox "Stopping, no file selected."
Exit Sub
Else
Workbooks.Open Filename:=NewFN1
End If

Sheets("DownLoadReports").Select
    Cells.Select
    Selection.Copy
    Windows("monthly servicing prep.xls").Activate
    Sheets("Sheet1").Select
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False

Workbooks(Workbooks(NewFN1).Name).Close SaveChanges:=True

**jseufert** · 09-21-2009, 05:17 PM

That doesn't work either.

**Leith Ross** · 09-21-2009, 05:41 PM

Hello jseufert,

I must have not looked at your profile. It says you are using Excel 2007. The code I provided works in 2003. Which version is the workbook running?