[AccessD] Creating New Spreadsheet with Automation

Using late binding, I have used something like:

   strPath = GetFilePath(db.Name)
   Set xlApp = GetObject(strPath & "performancereporttemplate.xls")

   With xlApp

      .cells(l, 2).Value = rs![Company Name]
      .cells(l, 4).Value = Nz(rs![ActualPayroll], 0#)
      .cells(l, 3).Value = Nz(rs![Volume], 0#)
      .cells(l, 5).Value = Nz(rs![EstLabor], 0#)
	....
      .SaveAs strSaveAsName
      .Application.Visible = True
      .Parent.windows(1).Visible = True

	end with

Set xlApp = Nothing


Bobby

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin -
Beach Access Software
Sent: Friday, May 06, 2005 11:05 AM
To: AccessD at databaseadvisors.com
Subject: [AccessD] Creating New Spreadsheet with Automation


Dear List:

I have been manipulating existing spreadsheet from Access:

' Object variables for Automation stuff
Dim objXLApp As Excel.Application

Set objXLApp = New Excel.Application
objXLApp.Workbooks.Open "C:\Clients\Placement22"

Now I want to create a new spreadsheet instead of opening one that already
exists.  But I can't seem to find the method.  

Does anyone know the right syntax?

MTIA

Rocky Smolin
Beach Access Software
http://www.e-z-mrp.com
858-259-4334
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com