Exporting and formating Excel Spreadsheet from VB6

[pqsoftware]

Hi, I have the following code to export to a new Excel spreadsheet. What I need to do is format the cells. How can I change the font, font size and colour and most importantly the cells background color.
Thanks in advance.

Private Sub Command1_Click()
Dim appxl
Dim Book As Excel.Workbooks
Dim Wsheet As Excel.Worksheet
FileName = "c:\new.xls"
Set appxl = CreateObject("Excel.Application")
Set Book = appxl.Workbooks
Set Wsheet = Book.Add.Worksheets(1)
appxl.Visible = True

Wsheet.Cells(1, 1) = Text1.Text


End Sub

[9815402440]

hi
use following code to format cells

Dim cellRange As String
cellRange = ws.Cells(1, 1).Address
cellRange = cellRange & ":" & ws.Cells(intStartRow, intCol + 1).Address
ws.Range(cellRange).Select
With Selection
.Font.Bold = True
End With

similarly you can apply other settings such as color etc. the easiest way is, open microsoft excel. start macro recording then do whatever you want in the sheet. then open the macro in visual basic editor. all the code will be there. you can use this code in your application

regards
manpreet singh dhillon hoshiarpur