Close and Save another workbook doesn't work?

[sanantonio]

Hi All,

Happy holidays!

Was hoping someone could help me out with this code.

The first part of the code is where I have SAP exporting and auto saving a file. When SAP exports and saves a file it also opens it automatically. So I have put in an "Application.wait" code to wait for the file to open before attempting to close it, then coming back to my original excel and refreshing all. It is the code in red that doesn't work. I just get a debug.

session.findById("wnd[1]/usr/ctxtDY_PATH").Text = "J:\filepath"
session.findById("wnd[1]/usr/ctxtDY_FILENAME").Text = "ZMMX118.XLSX"
session.findById("wnd[1]/usr/ctxtDY_PATH").SetFocus
session.findById("wnd[1]/usr/ctxtDY_PATH").caretPosition = 102
session.findById("wnd[1]/tbar[0]/btn[11]").press
session.findById("wnd[0]/tbar[0]/btn[12]").press
session.findById("wnd[0]/tbar[0]/btn[12]").press

Application.Wait (Now + TimeValue("0:01:00")) 'Waiting for ZMMX118 export to open

Application.DisplayAlerts = False
Workbooks("ZMMX118.xlsx").Close SaveChanges:=False 'Closes the export without saving

 ActiveWorkbook.RefreshAll 'returns to macro enabled workbook where this code lives and refreshes all

What I need to do is just wait for the export to open, the "ZMMX118.XLSX", then close it without saving, return to the macro workbook where this code lives and refresh all.

Am I missing something obvious?

 

[breynolds0431]

Hi. So, both the Workbooks("ZMMX118.xlsx").Close SaveChanges:=False part and the ActiveWorkbook.RefreshAll part don't work? I'm thinking you'd want to use ThisWorkbook instead of ActiveWorkbook, but not sure what's going on with the external workbook close part. What's the debug error message and which line does it occur on?

 

[mohadin]

Hi
May try

Windows("Book3").Close False

 

[sanantonio]

Hi. So, both the Workbooks("ZMMX118.xlsx").Close SaveChanges:=False part and the ActiveWorkbook.RefreshAll part don't work? I'm thinking you'd want to use ThisWorkbook instead of ActiveWorkbook, but not sure what's going on with the external workbook close part. What's the debug error message and which line does it occur on?

Hi. Sorry for the late reply, been off for the holidays!


These are the errors I'm getting. The macro works until here, it just will not close this other workbook.

 

[sanantonio]

Hi
May try

Windows("Book3").Close False

Hi thank.s But I cannot get this to work either

 

[mohadin]

Hi
I Thought you would noticed the you have to change Book2 to the name of your file you want to close

Windows("ZMMX118").Close False

 

[JEC]

worbooks(your complete path).close False

 

[sanantonio]

worbooks(your complete path).close False

Unfortunately this still doesn't work.

My exact code is this and it still hits the debug here:

Sub test()
Application.DisplayAlerts = False
Workbooks("K:\Supply_Chain\Reporting\ZMMX118.xlsx").Close False
End Sub

 

[sanantonio]

Any fresh ideas chaps?

 

[breynolds0431]

You should not need the full path of the file if the file is open. But the file's extension is needed. At least with my testing. Workbooks("ZMMX118.xlsx").Close False works for me.

What does the message box display when you run this code?

Sub vba_check_workbook()

Dim WB As Workbook
Dim myWB As String

myWB = "ZMMX118.xlsx"

For Each WB In Workbooks
    If WB.Name = myWB Then
        WB.Activate
        MsgBox "Workbook Found!"
        Exit Sub
    End If
Next WB

MsgBox "Not Found"

End Sub