vb,筑excel有不明白的地方，求注释

vb,建excel有不明白的地方，求注释

 Dim lRow As Long
 Dim sXLSPath As String
 Dim MyExcel As New Excel.Application
 Dim MyBook As Excel.workbook
 Dim MySheet As Excel.worksheet
 Screen.MousePointer = 11
 sXLSPath = appdisk & "maindata.xls" 'appdisk为路径
 Open sXLSPath For Output As #1   '求注释
 Close #1
 Set MyExcel = CreateObject("excel.application")
 Set MyBook = MyExcel.Workbooks.Open(sXLSPath)
 Set MySheet = MyExcel.ActiveSheet
 MySheet.Range("A1:O1").Select   '求注释
 With MyExcel.Selection.Interior  '求注释
 .ColorIndex = 15
 .Pattern = xlSolid
 End With

Excel 注释
[解决办法]

Open sXLSPath For Output As #1

这是打开文件的操作。表示打开变量sXLSPath所存储的路径下的文件。即打开这个maindata.xls文件：

sXLSPath = appdisk & "maindata.xls" 'appdisk为路径

OutPut表示顺序文件的写入，对应的还有InPut用于读取。As #1，As是关键字，是一种格式，跟那个For一样，后面的#1是文件号，跟索引一样，可以用这个来操作文件，例如Close #1，关闭当前打开的这个文件。

MySheet.Range("A1:O1").Select

Range即单元格，在Excel中的单元格都有唯一的编号，列编号是A，B，C这样下去的，行编号是1,2,3这样下去的。select表示选择这个单元格，表示对这个单元格进行操作。

With MyExcel.Selection.Interior
 .ColorIndex = 15
 .Pattern = xlSolid
 End With

这样才是完整的一套语句，With语句可以让语句内的方法省略掉对象名，所以上面这四行等价与下面的语句：

MyExcel.Selection.Interior.ColorIndex = 15
MyExcel.Selection.Interior.Pattern = xlSolid

说白了就是为了偷懒的。MyExcel代表的是整个Excel程序，Selection指的是被选择的内容，因为前面的

MySheet.Range("A1:O1").Select

语句，使到"A1:O1"单元格被选择，所以Selection指的就是"A1:O1"单元格。Interior这个单词表示内部，意思是通过这个对象下面的属性调整单元格的格内的样式（与之区分的就是还有边框的样式，文本的样式之类的）。

还有别的吗？懂了就结贴给分吧~
[解决办法]
补充一下，在Excel中A1:O1表示的是从A1单元格开始拖选到O1格结束。不懂啊，打开Excel，在A1格按住鼠标左键一直移动鼠标到O1格松开，你所选择的所有单元格，就是A1:O1所表示的单元格范围。

所以不要误解我上面说的例如“Selection指的就是‘A1:O1’单元格”中所说的“‘A1:O1’单元格”是一个单元格，其实是很多个单元格的组合。
[解决办法]
Open sXLSPath For Output As #1   '以二进制打开maindata.xls文件，在你这好象没有什么用，打开后又马开关闭了

MySheet.Range("A1:O1").Select      '选择A1:O1范围，应是列头，程序自动完成，不需要手动去选择
 With MyExcel.Selection.Interior  '上面选择的对象
　.ColorIndex = 15　　　　　　　　'选择灰色填充列头　　
 .Pattern = xlSolid　　　　　　　　'设置该区域的内部图案，xlSolid表示纯色

查看更多 下一篇