Imports Microsoft.Office.Interop
来源:互联网 发布:一起来做淘宝 编辑:程序博客网 时间:2024/05/16 14:38
然后导入命名空间:
Imports Microsoft.Office.Interop
Imports System.Data.SqlClient
最后建立一个ImportToExcel的函数,函数代码如下:
'''
''' 将Datagridview中的数据导出至Excel中
'''
''' Datagridview类型
''' 布尔值类型,导出是否成功
'''
Public Function ImportToExcel(ByVal DGV As DataGridView) As Boolean
'不允许导出空数据
If DGV.RowCount = 0 Then
MsgBox("记录为空,请重新查询!", vbOKOnly + vbInformation, "系统提示")
Else
'创建Excel
Dim bln As Boolean
Dim xlApp, xlBook, xlSheet As Object
xlApp = CreateObject("Excel.Application")
xlBook = xlApp.Workbooks.Add
xlSheet = xlBook.Worksheets(1)
'打开Sheet1
Dim rowindex, colindex As Integer
rowindex = 1 '行
colindex = 0 '列
xlSheet = xlApp.Worksheets("sheet1") '打开Sheet1那一页
'将Datagridview的数据添加到DataTable中
Dim table As New DataTable
table = DGV.DataSource 'Datagridview数据源
Dim row As DataRow '定义Row为表格的行
Dim col As DataColumn '定义col为表格的列
- Imports Microsoft.Office.Interop
- Microsoft.Office.Interop.OneNote OCR
- 解决引用Microsoft.Office.Core 和Microsoft.Office.Interop.Word
- 关于Microsoft.Office.Interop.Word类库
- 使用Microsoft.Office.Interop.Owc11进行绘图
- 系统找不到 Microsoft.Office.Interop.Word ---解决方案
- 引用Microsoft.Office.Interop.Excel的解决方法
- Microsoft.Office.Interop.Word 创建word
- Microsoft.Office.Interop.Word 创建word
- 求解Microsoft.Office.Interop.Excel.Application引用
- Word转Html ( Microsoft.Office.Interop.Word )
- 编程经验:Microsoft.Office.Interop.Owc11 Error
- ” Microsoft.Office.Interop.Excel”无法引用
- Microsoft.Office.Interop.Excel的用法
- VS.添加不了引用Microsoft.Office.Interop
- Microsoft.Office.Interop.Excel的用法
- Microsoft.Office.Interop.Excel的用法
- Microsoft.Office.Interop.Word 创建word
- Intent调用系统拍照程序,返回图片太小的问题
- Android OpenGL ES 开发教程(4):OpenGL ES API 命名习惯
- popupWindow简单用法实例
- 写给新入职的毕业生们
- DSP芯片的定点运算
- Imports Microsoft.Office.Interop
- LeetCode-Word Search
- IOS 用数据库收藏
- ios中KeyChain用途
- codeforces #260 A. Laptops(水)
- VS2013常用快捷键
- VS2012常用设置
- Android OpenGL ES 开发教程(5):关于EGL
- Codeforces Round #260 (Div. 2)C. Boredom(dp)