Excel modify in VB6

[shaiful]

Hi all, I have some code to open an Excel file and I can edit the Excel file easily,

Dim xlapp As excel.Application
Dim xlbook As excel.WorkBook
Dim xlsheet As excel.WorkSheet
 
Set xlbook = GetObject("d:\TEST.xls")
Set xlapp = xlbook.Parent
 
 
xlapp.Visible = True
xlapp.Windows("TEST.XLS").Visible = True
Set xlsheet = xlbook.Sheets("Sheet1")
xlsheet.Cells(1,1) = "TEXT"

I have some problem with particular case, such as : How i can make Bold of text in the excel sheet, how it is possible to make a table or line,
and change color of text in excel sheet? Thanks a lot 4 your time.

[MikeTheBike]

Hi all, I have some code to open an Excel file and I can edit the Excel file easily,

Dim xlapp As excel.Application
Dim xlbook As excel.WorkBook
Dim xlsheet As excel.WorkSheet
 
Set xlbook = GetObject("d:\TEST.xls")
Set xlapp = xlbook.Parent
 
 
xlapp.Visible = True
xlapp.Windows("TEST.XLS").Visible = True
Set xlsheet = xlbook.Sheets("Sheet1")
xlsheet.Cells(1,1) = "TEXT"

I have some problem with particular case, such as : How i can make Bold of text in the excel sheet, how it is possible to make a table or line,
and change color of text in excel sheet? Thanks a lot 4 your time.

Hi

You need something like this

xlsheet.Cells(1,1) .Font.ColorIndex = 5 'Blue
xlsheet.Cells(1,1) .Font.Bold = True

Hint; The easiest way to find out Excel syntax is to record macros and adapt the resulting code.


MTB

[tomarvijay80]

Dim xlapp As Excel.Application
Dim xlbook As Excel.WorkBook
Dim xlsheet As Excel.WorkSheet
Set xlbook = GetObject("d:\visual basic\TEST.xls")
Set xlapp = xlbook.Parent
xlapp.Visible = True
xlapp.Windows("TEST.XLS").Visible = True
Set xlsheet = xlbook.Sheets("Sheet1")
xlsheet.Cells(1, 1) = "TEXT"
xlsheet.Cells(1, 1).Font.Bold = True ' Make text bold
xlsheet.Cells(1, 1).Font.ColorIndex = 8 ' Color
xlsheet.Shapes.AddLine(236.25, 217.5, 351#, 291#).Select ' Line




Hope this code will help you.