How do I create a new workbook programmatically and then assign it to aWB?

Thanks

Create With the Excel.Application object or WITHOUT it?

"Barb Reinhardt" wrote:

> How do I create a new workbook programmatically and then assign it to aWB?
>
> Thanks

Not entirely sure what you are after, but here is a selection of wokboo and
worksheet creation stuff....

Sub Demo()
Dim wb as workbook
Dim ws as Worksheet

Set wb = Application.Workbooks.Add
wb.Sheets(1).Name = "test"
Set ws = wb.Worksheets.Add
ws.Range("A1").Formula = "test2"
wb.SaveAs "C:\test.xls"
wb.Close SaveChanges:=False
End Sub

Cheers,
Dave
"Barb Reinhardt" wrote:

> How do I create a new workbook programmatically and then assign it to aWB?
>
> Thanks

Thanks. That gave me what I needed.

"Dave Ramage" wrote:

> Not entirely sure what you are after, but here is a selection of wokboo and
> worksheet creation stuff....
>
> Sub Demo()
> Dim wb as workbook
> Dim ws as Worksheet
>
> Set wb = Application.Workbooks.Add
> wb.Sheets(1).Name = "test"
> Set ws = wb.Worksheets.Add
> ws.Range("A1").Formula = "test2"
> wb.SaveAs "C:\test.xls"
> wb.Close SaveChanges:=False
> End Sub
>
> Cheers,
> Dave
> "Barb Reinhardt" wrote:
>
> > How do I create a new workbook programmatically and then assign it to aWB?
> >
> > Thanks

We discovered the problem. There was a style that had a background included
in it.

"Dave Ramage" wrote:

> Not entirely sure what you are after, but here is a selection of wokboo and
> worksheet creation stuff....
>
> Sub Demo()
> Dim wb as workbook
> Dim ws as Worksheet
>
> Set wb = Application.Workbooks.Add
> wb.Sheets(1).Name = "test"
> Set ws = wb.Worksheets.Add
> ws.Range("A1").Formula = "test2"
> wb.SaveAs "C:\test.xls"
> wb.Close SaveChanges:=False
> End Sub
>
> Cheers,
> Dave
> "Barb Reinhardt" wrote:
>
> > How do I create a new workbook programmatically and then assign it to aWB?
> >
> > Thanks