zoukankan      html  css  js  c++  java
  • VB 导出数据到Excel

    Option Explicit

    Private Sub Form_Load()
        Dim i As Long, j As Long
        
        Me.MSHFlexGrid1.Rows = 2000
        Me.MSHFlexGrid1.Cols = 10
        For i = 0 To Me.MSHFlexGrid1.Rows - 1
            For j = 0 To Me.MSHFlexGrid1.Cols - 1
                Me.MSHFlexGrid1.TextMatrix(i, j) = i & "行" & j & "列"
            Next
        Next
        Debug.Print Me.MSHFlexGrid1.TextArray(100)
    End Sub

    Private Sub cmdExport_Click()
        Dim i As Long, j As Long
        Dim CellsData() As String
        
        Dim objApp As Excel.Application
        Dim objWorkbook As Excel.Workbook
        Dim objWorksheet As Excel.Worksheet
        Dim objRange As Excel.Range
        
        '构造二维数组
        ReDim CellsData(1 To Me.MSHFlexGrid1.Rows, 1 To Me.MSHFlexGrid1.Cols)
        For i = 1 To Me.MSHFlexGrid1.Rows
            For j = 1 To Me.MSHFlexGrid1.Cols
                CellsData(i, j) = Me.MSHFlexGrid1.TextMatrix(i - 1, j - 1)
            Next
        Next
        
        '导出到Excel中
        Set objApp = New Excel.Application
        objApp.ScreenUpdating = False '禁止屏幕刷新
        Set objWorkbook = objApp.Workbooks.Add
        Set objWorksheet = objWorkbook.Sheets.Add
        Set objRange = objWorksheet.Range(objWorksheet.Cells(1, 1), objWorksheet.Cells(Me.MSHFlexGrid1.Rows, Me.MSHFlexGrid1.Cols))
        objRange.Value = CellsData
        objApp.Visible = True
        objApp.ScreenUpdating = True
        
        '销毁二维数组
        Erase CellsData
        
        Me.SetFocus
        MsgBox "导出完毕"
    End Sub

  • 相关阅读:
    php的webservice的soapheader认证问题
    训练与解码
    ajax 图片上传
    js倒计时
    数据分析有价值的博客
    [Luogu P5675][GZOI2017]取石子游戏
    [BZOJ4558/LOJ2025/Luogu3271][GZOI2016/JLOI2016/SHOI2016]方
    [BZOJ4557/LOJ2024/Luogu3267][GZOI2016/JLOI2016/SHOI2016]侦察守卫
    PKUWC2019游记
    随机带权选取文件中一行 分类: linux c/c++ 2014-06-02 00:11 344人阅读 评论(0) 收藏
  • 原文地址:https://www.cnblogs.com/xbj-hyml/p/5533647.html
Copyright © 2011-2022 走看看