Using VB to manipulate Excel

I asked a question a while back, and I know how to add values to cells, etc, but I want to know the following:

1) How do I copy a sheet and rename it using VB?

2) How can I save under a different filename?

3) How can I do a Application.Quit without having it ask me if I want to save my changes?

Basically I have a workbook with a template framework, I want a VB 6.0 app to fill in values, the 'save as' it to a different name.

Anyone?
LVL 2
edskeeAsked:
Who is Participating?

[Product update] Infrastructure Analysis Tool is now available with Business Accounts.Learn More

x
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

ChrynobleCommented:
This answer assumes you know how to create an excel object.

1)
 xlapp.worksheets(yoursheet).copy Before:=Sheets(thesheet)
' You can also use the keyword after here

2)
 xlapp.activeworksheet.save as "C:\Whatever"

3)
 xlapp.displayalerts = false
 ' Add the above line before quiting.
ChrynobleCommented:
Sorry forgot one
1)
 xlapp.activesheet.name = "thename"
 ' You may also what to use "thename.xls"
ChrynobleCommented:
Sorry, I am brain dead today. You only want to use "thename.xls" if you are renaming the workbook, not the sheet.
Determine the Perfect Price for Your IT Services

Do you wonder if your IT business is truly profitable or if you should raise your prices? Learn how to calculate your overhead burden with our free interactive tool and use it to determine the right price for your IT services. Download your free eBook now!

calacucciaCommented:
2) Just a syntax correction (as Chrynoble is brain dead ;-)):

xlapp.ActiveWorksheet.SaveAs "C:\Whatever"

(no space between "Save" & "As")

3) A better way to disable the 'Save Changes?" dialog is to set the Saved property of all open workbooks to Yes.
xlapp.DisplayAlerts = False will remain that way the next time you (or someone else who would like to see that alert) opens Excel.
In that cas, put this before the xlapp.Quit line:

For Each wb in xlapp.Workbooks
wb.Saved=True
Next wb

If you only have the single workbook opened:

xlapp.ActiveWorkbook.Saved = True

Good Luck
Calacuccia


Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
MarineCommented:
Here is what i tried.

say you already have values in your worksheet. Then you want to copy these values into another sheet, it will create another sheet for you.

so what you do is this.
'xlSheet is Excel.WorkSheet
'xlBook is Excel.WorkBook
when using Copy Method you have there 2 parameters you might want to use them.If you want to copy certain rows only. This will copy an entire WorkSheet.

xlSheet.Copy
xlSheet.SaveAs FileName:="YourFile.xls"
xlBook.Close SaveChanges:=False
edskeeAuthor Commented:
Awesome, just about all I was looking for. Can you reccomend a website that has this info? Every time I try to do something new I gotta ask another question on here :)

calacucciaCommented:
I don't know or use any websites for this kind of stuff. Just practice, and participation on this site (try to comment on questions too, specificically in the MSOffice section if you'll need to work with Excel a lot).

Calacuccia
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Visual Basic Classic

From novice to tech pro — start learning today.