Excel导出数据
来源:互联网 发布:淘宝外套女装新款 编辑:程序博客网 时间:2024/05/18 00:22
'Private Sub BtnExport_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnExport.Click
' Dim dt_Export As DataTable
' 'RowCount统计行数,ColumnCount统计列数
' Dim RowCount, ColumnCount As Integer
' dt_Export = DGVExport.DataSource.tables(0)
' If (IsNothing(dt_Export)) Then
' MsgBox("exit")
' Exit Sub
' End If
' '定义Excel应用程序的对象
' Dim xlsApp As Excel.Application
' '定义Excel工作区的对象
' Dim xlsSheet As Excel.Worksheet
' xlsApp = CreateObject("Excel.Application")
' xlsApp.Application.Workbooks.Add(True)
' xlsSheet = xlsApp.Worksheets(1)
' RowCount = dt_Export.Rows.Count
' ColumnCount = dt_Export.Columns.Count
' xlsSheet.Columns.NumberFormat = "@"
' For i = 0 To ColumnCount - 1
' xlsSheet.Cells(1, i + 1) = dt_Export.Columns(i).ColumnName.ToString
' Next
' For i = 0 To RowCount - 1
' For j = 0 To ColumnCount - 1
' xlsSheet.Cells(i + 2, j + 1) = dt_Export.Rows(i).Item(j).ToString
' Next
' Next
' SaveFileForm.InitialDirectory = "D:/graduate file/"
' SaveFileForm.Filter = "xls files|*.xls|all files|*.*"
' SaveFileForm.FilterIndex = 1
' If SaveFileForm.ShowDialog() = Windows.Forms.DialogResult.OK Then
' xlsSheet.SaveAs(SaveFileForm.FileName)
' MsgBox("导出成功")
' End If
' xlsSheet = Nothing
' xlsApp.Quit()
'end sub
- excel导入、导出数据
- Ilist导出Excel数据
- 数据导出excel文件
- Excel数据导入导出
- 数据导出至excel
- C#Excel数据导出
- C# Excel数据导出
- 导出页面数据Excel
- List导出数据Excel
- 数据导出到Excel
- Excel导出数据
- wimform 导出数据 excel
- sql数据导出Excel
- 数据导出Excel表
- 将数据导出EXCEL
- 数据导出Excel
- 万能数据导出Excel
- SQL数据 导出Excel
- 怎样成为优秀软件模型设计者
- 网络协议编写的三层境界
- C#第三章 对象和类型
- pthread_cond_timedwait及Linux下与时间有关的结构体
- 使用存储过程进行基本的增删改查
- Excel导出数据
- 批处理for命令详解
- Little endian和Big endian的区别
- 如何将V4L2映射的内存地址转换成物理地址?
- 搭建WEB服务器集群(apache+tk+tomcat)
- 常用数据库(MsSql,Oralce,MySql)用SQL实现分页查询
- 初次登陆CSDN,在这里开的博客主要是学习和发牢骚用。
- VC中操作INI文件的函数
- Java的SimpleDateFormat常用方法说明整理