mshflexgrid的一些用法

1.隔行显示不同颜色
with ms
for m=1 to rows-1 step 2  '跳行
　　for n=1 to.cols-1
　　　.Row=m '确定行
　　　.Col=n '确定列
　　　.Cellbackcolor=vbBlue
Next n
Next m
End With
2.将内容导入到excel表
'引用excel对象
'定义对象

Dim xapp As New Excel.Application
Dim xbook As Excel.Workbook
Dim xsheek As Excel.Worksheet
xapp.Visible = False
Set xbook = xapp.Workbooks.Open("C:/1.xls") '打开文件
Set xsheet = xbook.Worksheets("Sheet1")  '打开工作表
  For r = 0 To Ms.Rows - 1
    For c = 0 To Ms.Cols - 1
      Ms.Col = c
      Ms.Row = r
      xsheet.Cells(r + 1, c + 1) = Ms.Text
    Next c
  Next r
xbook.Close (True)
xapp.Quit
Set xapp = Nothing
Set xbook = Nothing