[Okta Webinar] Learn how to a build a cloud-first strategyRegister Now

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 208
  • Last Modified:

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?
0
edskee
Asked:
edskee
1 Solution
 
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.
0
 
ChrynobleCommented:
Sorry forgot one
1)
 xlapp.activesheet.name = "thename"
 ' You may also what to use "thename.xls"
0
 
ChrynobleCommented:
Sorry, I am brain dead today. You only want to use "thename.xls" if you are renaming the workbook, not the sheet.
0
Technology Partners: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 
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


0
 
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
0
 
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 :)

0
 
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
0

Featured Post

Free Tool: Subnet Calculator

The subnet calculator helps you design networks by taking an IP address and network mask and returning information such as network, broadcast address, and host range.

One of a set of tools we're offering as a way of saying thank you for being a part of the community.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now