Save Excel Workbook

[vzachin]

hi,
the following code creates a workbook. i want to save it to "C:\TestFile\test.xls". i'm not having any luck saving this file.

i tried xl.save but i get an error "A file name 'RESUME.XLW' already exists in this location. Do you want to replace it? "

how can i code this properly?

   Dim xl As Object, xl_workbook As Object, xl_sheet As Object

   Set xl = CreateObject("Excel.Application")
   xl.visible = True 
   Set Wk = xl.Workbooks.Add

thanks
zach

 

[SkipVought]

So where is your workbook save code statement?

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}

 

[link99sbc]

ActiveWorkbook.SaveCopyAs "C:\TestFile\test.xls"
or
ActiveWorkbook.SaveAs "C:\TestFile\test.xls"

 

[SkipVought]

   Dim xl As Object, [b]xl_workbook[/b] As Object, xl_sheet As Object

   Set xl = CreateObject("Excel.Application")
   xl.visible = True 
   Set [b]xl_workbook[/b] = xl.Workbooks.Add 

   [b]xl_workbook[/b].SaveAs "C:\TestFile\test.xls"
  


Skip,
[sub]
[glasses]Just traded in my old subtlety...
[b]for a NUANCE![/b][tongue][/sub]

 

[vzachin]

skip,

thanks for spotting this:
Set xl_workbook = xl.Workbooks.Add

didn't realize it was this simple:

xl_workbook.SaveAs "C:\TestFile\test.xls"

my original statement which was incorrect was

xl_workbook.Save

link 99sbc:
ActiveWorkbook.SaveAs "C:\TestFile\test.xls"
didn't work with extra but should work in excel

thanks again
zach

 

[link99sbc]

Oops. Oh yea, HuH!