ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Open workbook with x number of sheets (https://www.excelbanter.com/excel-programming/316408-open-workbook-x-number-sheets.html)

Robert Christie[_3_]

Open workbook with x number of sheets
 
Hi
Using Office Pro 2003 & WinXP

Is it possible to set the number of sheets when opening a new Workbook
without changing the default .SheetsInNewWorkbook of 3.

I was searching this newsgroup and came across the following in a Jim Becker
post of 17-Dec 2002.

Is this the only way to open a new workbook with a specific number of sheets?

Code is courtesy of Ed Ferrero (12.02.02):

Dim curr_sheets As Integer
With Application
' save the no of sheets in new book that is currently set in options
curr_sheets = .SheetsInNewWorkbook
.SheetsInNewWorkbook = 3
Workbooks.Add
.SheetsInNewWorkbook = curr_sheets
End With


--
Thank you

Regards

Bob C
Using Windows XP Home + Office 2003 Pro

keepITcool

Open workbook with x number of sheets
 
that's the code I use too...
and I take it so does the rest as indeed there seems to be no other way.


--
keepITcool
| www.XLsupport.com | keepITcool chello nl | amsterdam

?B?Um9iZXJ0IENocmlzdGll?= wrote in message
:

Hi
Using Office Pro 2003 & WinXP

Is it possible to set the number of sheets when opening a new Workbook
without changing the default .SheetsInNewWorkbook of 3.

I was searching this newsgroup and came across the following in a Jim
Becker post of 17-Dec 2002.

Is this the only way to open a new workbook with a specific number of
sheets?

Code is courtesy of Ed Ferrero (12.02.02):

Dim curr_sheets As Integer
With Application
' save the no of sheets in new book that is currently set in options
curr_sheets = .SheetsInNewWorkbook
.SheetsInNewWorkbook = 3
Workbooks.Add
.SheetsInNewWorkbook = curr_sheets
End With




Robert Christie[_3_]

Open workbook with x number of sheets
 
Thanks keepITcool

Jim Beckers post nearly 2 years old - thought maybe the newer 2003 excel may
have included it.

Keep up the good work

Regards Bob C.

"keepITcool" wrote:

that's the code I use too...
and I take it so does the rest as indeed there seems to be no other way.


--
keepITcool
| www.XLsupport.com | keepITcool chello nl | amsterdam

?B?Um9iZXJ0IENocmlzdGll?= wrote in message
:

Hi
Using Office Pro 2003 & WinXP

Is it possible to set the number of sheets when opening a new Workbook
without changing the default .SheetsInNewWorkbook of 3.

I was searching this newsgroup and came across the following in a Jim
Becker post of 17-Dec 2002.

Is this the only way to open a new workbook with a specific number of
sheets?

Code is courtesy of Ed Ferrero (12.02.02):

Dim curr_sheets As Integer
With Application
' save the no of sheets in new book that is currently set in options
curr_sheets = .SheetsInNewWorkbook
.SheetsInNewWorkbook = 3
Workbooks.Add
.SheetsInNewWorkbook = curr_sheets
End With





keepITcool

Open workbook with x number of sheets
 

but then again...
would you code specifically for xl2003?


i'm trying to shake the habit of making things xl97 compatible,
but you dont wanna know how many people and companies are still
using it.

And let's be honest, MS has made so few significant changes since xl97,
there's no real reason to upgrade..
BUT i'm hearing rumors that xl12 may (finally!) be a MAJOR overhaul.


--
keepITcool
| www.XLsupport.com | keepITcool chello nl | amsterdam


Robert Christie wrote :

Thanks keepITcool

Jim Beckers post nearly 2 years old - thought maybe the newer 2003
excel may have included it.

Keep up the good work

Regards Bob C.

"keepITcool" wrote:

that's the code I use too...
and I take it so does the rest as indeed there seems to be no other
way.


--
keepITcool
www.XLsupport.com | keepITcool chello nl | amsterdam


?B?Um9iZXJ0IENocmlzdGll?= wrote in message
:

Hi
Using Office Pro 2003 & WinXP

Is it possible to set the number of sheets when opening a new
Workbook without changing the default .SheetsInNewWorkbook of 3.

I was searching this newsgroup and came across the following in a
Jim Becker post of 17-Dec 2002.

Is this the only way to open a new workbook with a specific
number of sheets?

Code is courtesy of Ed Ferrero (12.02.02):

Dim curr_sheets As Integer
With Application
' save the no of sheets in new book that is currently set in
options curr_sheets = .SheetsInNewWorkbook
.SheetsInNewWorkbook = 3
Workbooks.Add
.SheetsInNewWorkbook = curr_sheets
End With





Ron de Bruin

Open workbook with x number of sheets
 
If you want one sheet in a workbook you can use a one liner.

Sub test()
Workbooks.Add (1)
End Sub

Or

Sub test2()
Workbooks.Add (xlWBATWorksheet)
End Sub





--
Regards Ron de Bruin
http://www.rondebruin.nl


"keepITcool" wrote in message ft.com...

but then again...
would you code specifically for xl2003?


i'm trying to shake the habit of making things xl97 compatible,
but you dont wanna know how many people and companies are still
using it.

And let's be honest, MS has made so few significant changes since xl97,
there's no real reason to upgrade..
BUT i'm hearing rumors that xl12 may (finally!) be a MAJOR overhaul.


--
keepITcool
| www.XLsupport.com | keepITcool chello nl | amsterdam


Robert Christie wrote :

Thanks keepITcool

Jim Beckers post nearly 2 years old - thought maybe the newer 2003
excel may have included it.

Keep up the good work

Regards Bob C.

"keepITcool" wrote:

that's the code I use too...
and I take it so does the rest as indeed there seems to be no other
way.


--
keepITcool
www.XLsupport.com | keepITcool chello nl | amsterdam

?B?Um9iZXJ0IENocmlzdGll?= wrote in message
:

Hi
Using Office Pro 2003 & WinXP

Is it possible to set the number of sheets when opening a new
Workbook without changing the default .SheetsInNewWorkbook of 3.

I was searching this newsgroup and came across the following in a
Jim Becker post of 17-Dec 2002.

Is this the only way to open a new workbook with a specific
number of sheets?

Code is courtesy of Ed Ferrero (12.02.02):

Dim curr_sheets As Integer
With Application
' save the no of sheets in new book that is currently set in
options curr_sheets = .SheetsInNewWorkbook
.SheetsInNewWorkbook = 3
Workbooks.Add
.SheetsInNewWorkbook = curr_sheets
End With








All times are GMT +1. The time now is 06:00 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com