第一次机房收费系统——轻语

          写一点关于导出表的吧！就实现了一下功能，实力略低，请各位指教！

引用了Microsoft Excel 16.0 object library。基本上就可以了。

下面是代码：

Dim i As Integer
Dim j As Integer
MSHFlexGrid1.Redraw = False '关闭表格重画

Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
'打开已经存在的excel工作薄文件
Set xlBook = xlApp.Workbooks.Open(App.Path & "\新建 Microsoft Excel 工作表.xlsx")
xlApp.Visible = True '设置excel对象可见

Set xlSheet = xlBook.Worksheets("Sheet1") '设置活动工作表

For i = 0 To MSHFlexGrid1.Rows - 1 '行循环
For j = 0 To MSHFlexGrid1.Cols - 1 '列循环
MSHFlexGrid1.Row = i
MSHFlexGrid1.Col = j
'保存到EXCEL
xlBook.Worksheets("Sheet1").Cells(i + 1, j + 1) = MSHFlexGrid1.Text
Next j
Next i
MSHFlexGrid1.Redraw = True