请问如何在VB6.0中设置EXCEL单元格的颜色和边框(请教各位高手)

[zhstar]

Set sApp = CreateObject("Excel.Application")
PathMap = App.Path & "\test.xls"
Set sBook = sApp.Workbooks.Open(PathMap)
Set sSheet = sBook.Worksheets("test")
sApp.Visible = True
sSheet.Cells(1, 1) = "编号"
sSheet.Cells(1, 2) = "姓名"
sSheet.Cells(1, 3) = "性别"
我想将上边的几个单元格填充上颜色并且加上边框线,应该如何操作呢?

[nik_Amis]

到Excel里面去录制宏

你要的代码都有

[czwwh]

这类问题问得比较多，在论坛中搜索一下。
也正如楼上所说，在Excel中录制宏，把你的操作全记下来，然后用VBA打开宏看看代码就知道了

[nik_Amis]

另外，建议你使用模板
这样有利于加快处理速度