• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 458
  • Last Modified:

Programmatically Creating/Deleting/Renaming Excel Worksheets

I am currently developing a project in Access that takes data and stores it in arrays, and then spits out an Excel Report that can be edited.  What I need to be able to do is delete sheet2 and sheet3 from the newly created object and rename Sheet1.  The following is a snipet of code that I have been using.

   Set ExcelApp = New Excel.Application
   ExcelApp.Visible = True
     
   ExcelApp.Workbooks.Add
   Set Excelbook = ExcelApp.ActiveWorkbook
   
   Set ExcelSheet = Excelbook.Worksheets("Sheet2")

   ExcelSheet.Delete
   ExcelSheet.Activate

this works for deleting but Excel wants an answer if deleting is okay, is there a param I send send like I do when I save.  Also I would like to know how to change the Sheet name from Sheet1 to like Test1.  Thanks in advance, any help is greatly appreciated.

-John
0
jforbes
Asked:
jforbes
1 Solution
 
Éric MoreauSenior .Net ConsultantCommented:
What do you think about that?

Private Sub Command1_Click()
Dim ExcelApp As Excel.Application
Dim ExcelBook As Workbook
Dim intI As Integer

   Set ExcelApp = New Excel.Application
   ExcelApp.Visible = True
   
   ExcelApp.Workbooks.Add
   Set ExcelBook = ExcelApp.ActiveWorkbook
   
   ExcelApp.Application.DisplayAlerts = False
   For intI = ExcelBook.Worksheets.Count To 2 Step -1
        ExcelBook.Worksheets(intI).Delete
   Next intI
   ExcelApp.Application.DisplayAlerts = True

   ExcelBook.Worksheets(1).Name = "New Name"

End Sub
0
 
jforbesAuthor Commented:
Thanks Bro!! Works like a charm.
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Cloud Class® Course: C++ 11 Fundamentals

This course will introduce you to C++ 11 and teach you about syntax fundamentals.

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