How to give the file name dynamically using variable name

[vnsk]

[i]

Code:

Dim xlApp
Dim xlBook
Dim xlSheet
Dim x
x= sanity
Set xlApp=CreateObject("Excel.Application")
Set xlBook=xlApp.workbooks.add
Set xlSheet=xlBook.activesheet
xlSheet.cells(1,1)="Oppurtunity Id"
xlSheet.cells(1,2)= MSG16
xlBook.saveas "C:\[color=#FF0000]"x".[/color]xls"
xlApp.quit

Here iam trying to save file name as sanity.xls
Where i am taking file name from variable x
But iam getting error
How to save the file name like this

[parminderdhiman84]

try this:

xlBook.saveas "C:\"&x&".xls"

[vnsk]

Getting:
SaveAs method of Workbook class failedLine (14): "xlBook.saveas "C:\Documents and Settings\SXCHA19\Desktop\"&x&".xls""

[sreekanth chilam]

Hi,

Here we go...

Code:

Dim xlApp
Dim xlBook
Dim xlSheet
Dim x
x= "sanity"
Set xlApp=CreateObject("Excel.Application")
Set xlBook=xlApp.workbooks.add
Set xlSheet=xlBook.Activesheet
xlSheet.cells(1,1)="Oppurtunity Id"
xlSheet.cells(1,2)= "MSG16"
xlBook.saveas "C:\"&x&".xls"
xlApp.quit
Set xlApp=Nothing

[vnsk]

Thank you