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

  • 相关阅读:
    MySQL批量更新字段url链接中的域名
    巧用Win+R
    斯坦福高效睡眠法
    chkconfig: command not found
    Nginx(./configure --help)
    Ubuntu16.04配置Tomcat的80端口访问
    Binary Tree Level Order Traversal
    java——Arrays.asList()方法
    python 发送邮件
    常用邮件协议
  • 原文地址:https://www.cnblogs.com/xbj-hyml/p/5533647.html
Copyright © 2011-2022 走看看