Macro to open and close an Excel file

[Guest]

I would like to create a macro that would open an Excel file based on file
path that is indicated in a cell, and then close it. For instance, open the
file for which the file path is indicated in cell A1, and then close it.

Any advice you could provide on this would be greatly appreciated.

Magnivy

 

[Bob Phillips]

workbooks.open Range("A1").Value
...
activeworkbook.close

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

 

[Guest]

Hi, try this:

Sub File_Open()
file=Range("A1")
Workbooks.Open Filename:= file
ActiveWindow.Close
End Sub

„Magnivy" napísal (napísala):

 

[Guest]

Try this...

Sub OpenClose()
Dim wbk As Workbook

On Error Resume Next
Set wbk = Workbooks.Open(Sheets("Sheet1").Range("A1"))
On Error GoTo 0

If wbk Is Nothing Then Exit Sub

MsgBox wbk.Name & " is open."
wbk.Close

MsgBox "And now it is closed."
Set wbk = Nothing
End Sub

 

[kwiklearner]

dim openwb as workbook
workbooks.open filename:=Range("A1")
set openwb=activeworkbook
openwb.close

 

[Guest]

Many thanks to everyone for your help!! kwiklearner's code seems to work best
for me.

Magnivy