Excel Automation - Calling 'SaveAS'

Hi there , I am a newbie with this software and I think it superb.

My problem is that I would like to open an existing excel spreadsheet and 'SaveAS' to a new excel sheet.

I can open no problem , just can't do the Save AS !

Any ideas on the correct call for 'SaveAs' ?

Best regards

Reza

something like this should work
xlsObj.SaveAs ( "file name here", -4143 , , , , , True )

for more details please see

http://msdn2.microsoft.com/en-us/library/microsoft.office.tools.excel.workbook.saveas(VS.80).aspx

Thanks Sysop , will try.
Reza[/quote]

Hi SysOp , tried the code and error says 'Cannot use paranthesis when calling sub'

Set objXL = CreateObject("Excel.Application")

FileName = "C:\\247\test.xls"

'Open template excel workbook
objXL.Workbooks.Open(FileName)

'Shove some data into sheet
set xlSheet = objXL.sheets(1)

'send test data into cells
xlSheet.Cells(1,1) = "Hello world"

'Save spreadsheet
objXL.SaveAs("C:\\247\test1.xls",-4143,,,,,true)

'close and release from memory
objXL.application.Quit
set objXL = nothing

Hi,

Please try it without parentesis

	Code:
	objXL.SaveAs "C:\247\test1.xls",-4143,,,,,true

By the way, in VBScript you don't need to use escape symbols for back-slashes.

.

Hi SysOp , made the change as you suggested.

The error now says 'Object doesn't support this property OR method' ?

Best regards

Reza

Code:

Sub Main()
Set objXL = CreateObject("Excel.Application")

FileName = "C:\test.xls"

'Open template excel workbook
objXL.Workbooks.Open(FileName)

'Shove some data into sheet
set xlSheet = objXL.sheets(1)

'send test data into cells
xlSheet.Cells(1,1) = "Hello world"

'Save spreadsheet
objXL.ActiveWorkBook.SaveAs "C:\test1.xls",-4143,,,,,true

'close and release from memory
objXL.application.Quit
set objXL = nothing
End Sub

Please note that in addition to "saveas" change, I also changed file names just because I don't have the referenced subfolder. This change is not required.

Hi SysOp , many thanks and have a good day.

Reza