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

最新推荐文章于 2020-01-31 20:14:56 发布

世代庄少主

最新推荐文章于 2020-01-31 20:14:56 发布

阅读量529

点赞数

分类专栏： ——【第一次机房收费系统】 ●VB与数据库学习

本文链接：https://blog.csdn.net/fjt123068/article/details/52596146

版权

——【第一次机房收费系统】同时被 2 个专栏收录

5 篇文章 0 订阅

订阅专栏

●VB与数据库学习

2 篇文章 0 订阅

订阅专栏

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

引用了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