Attachmate to Excel, SaveAs the open Workbook

[tps14334]

I have done alittle poking around on here and trying different resources that I know of and still end up with a scripting error when trying to save the open workbook.

Here is the code to call the Excel session:

        Dim xlApp As Object, xlSheet As Object
        Set xlApp = CreateObject("excel.application")
        xlApp.Application.DisplayAlerts = False 'Turn off Warning Messages'
        xlApp.Visible = True
        xlApp.Workbooks.Open FileName:=" file location "
        Set xlSheet = xlApp.activesheet

Here is method one I tried that faild after trying to use information from a post on here:

        xlApp.displayalterts=false
        xlApp.workbookobject.save

Here is method two I tried that also failed after trying to immitate excel's macro recorder:

        xlApp.SaveAs Filename:= " file location ", FileFormat:=xlExcel8, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False

Can someone help shed some light on this?

 

[lmbayley]

Hi,

I think the problem is that you haven't declared the workbook itself as an object.

Try this:

In your declarations:

dim xlWorkbook as object

Then to open and save the workbook:

Set xlWorkbook = xlApp.Workbooks.Open("Test.xls")
xlWorkbook.SaveAs("TestSave.xls")

-LB

 

[tps14334]

This worked perfectly, thank you!