×
INTELLIGENT WORK FORUMS
FOR COMPUTER PROFESSIONALS

Contact US

Log In

Come Join Us!

Are you a
Computer / IT professional?
Join Tek-Tips Forums!
  • Talk With Other Members
  • Be Notified Of Responses
    To Your Posts
  • Keyword Search
  • One-Click Access To Your
    Favorite Forums
  • Automated Signatures
    On Your Posts
  • Best Of All, It's Free!

*Tek-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail.

Posting Guidelines

Promoting, selling, recruiting, coursework and thesis posting is forbidden.

Students Click Here

Attachmate to Excel, SaveAs the open Workbook

Attachmate to Excel, SaveAs the open Workbook

Attachmate to Excel, SaveAs the open Workbook

(OP)
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:

CODE

        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:

CODE

        xlApp.displayalterts=false
        xlApp.workbookobject.save

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

CODE

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

Can someone help shed some light on this?

RE: Attachmate to Excel, SaveAs the open Workbook

Hi,

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

Try this:

In your declarations:

CODE

dim xlWorkbook as object

Then to open and save the workbook:

CODE

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

-LB

RE: Attachmate to Excel, SaveAs the open Workbook

(OP)
This worked perfectly, thank you!

Red Flag This Post

Please let us know here why this post is inappropriate. Reasons such as off-topic, duplicates, flames, illegal, vulgar, or students posting their homework.

Red Flag Submitted

Thank you for helping keep Tek-Tips Forums free from inappropriate posts.
The Tek-Tips staff will check this out and take appropriate action.

Reply To This Thread

Posting in the Tek-Tips forums is a member-only feature.

Click Here to join Tek-Tips and talk with other members! Already a Member? Login

Close Box

Join Tek-Tips® Today!

Join your peers on the Internet's largest technical computer professional community.
It's easy to join and it's free.

Here's Why Members Love Tek-Tips Forums:

Register now while it's still free!

Already a member? Close this window and log in.

Join Us             Close