problem of save in excel

nazimghori

hello i am developing an application where i generate my report in excel and have to save in some folder in c drive i wrote my code like

Dim xl As New Excel.Application
xl = CreateObject("Excel.Application")
Workbooks.Add()
xl.Visible = True

    xl.Columns("A").columnwidth = 5
    xl.Columns("C").columnwidth = 25
    xl.Columns("B").columnwidth = 25

With xl.Range("A" & ii, "C" & ii)
.Interior.ColorIndex = 5
End With

'please suggest also how to change forecolor of cell from "A" to "C"' i get my data from data base and load it in excel and it is working but now i want to save this file in some folder for that i wrote code like

If Not IO.Directory.Exists("C:\Backup") Then
IO.Directory.CreateDirectory("C:\Backup")
End If
xl.SaveWorkspace(" C:\Backup ")

but this code is not working so,please suggest what shall i do to save it in this directory... :) :)

Ray Cassick

nazimghori wrote:

but this code is not working

So what errors are you getting? Any exceptions? Do you have rights to save there? What OS are you running on, and under what type of user account?

LinkedIn[^] | Blog[^] | Twitter[^]

Ray Cassick

nazimghori wrote:

please suggest also how to change forecolor of cell from "A" to "C"'

Try using: range.interior.color =

LinkedIn[^] | Blog[^] | Twitter[^]

Dave Kreskowiak

Well, the save fails because you haven't provided a file name. You gave it the anme of a folder, but no filename...

A guide to posting questions on CodeProject[^]
Dave Kreskowiak Microsoft MVP Visual Developer - Visual Basic
2006, 2007, 2008