问个VB.NET2005的简单问题
我想用EXCEL 2003 对DATAGRIDVIEW1进行数据导出,写了以下代码:
Public Sub ExportToExcel()
If DataGridView1.RowCount > 0 Then
Try
Dim ds As New DataSet
ds = DataGridView1.DataSource
Dim i, j As Integer
Dim rows As Integer = ds.Tables(0).Rows.Count
Dim cols As Integer = ds.Tables(0).Columns.Count
Dim DataArray(rows - 1, cols - 1) As String
For i = 0 To rows - 1
For j = 0 To cols - 1
If ds.Tables(0).Rows(i).Item(j) Is System.DBNull.Value Then
Else
DataArray(i, j) = ds.Tables(0).Rows(i).Item(j)
End If
Next
Next
Dim myExcel As Excel.Application = New Excel.Application
myExcel.Application.Workbooks.Add(True)
myExcel.Visible = True
For j = 0 To cols - 1
myExcel.Cells(1, j + 1) = ds.Tables(0).Columns(j).ColumnName
Next
myExcel.Range("A2").Resize(rows, cols).Value = DataArray
Catch exp As Exception
MessageBox.Show("数据导出失败!请查看是否已经安装了Excel", Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Warning)
End Try
Else
MessageBox.Show("没有数据!", Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
End Sub
但是Dim myExcel As Excel.Application = New Excel.Application这一句会出现错误,错误提示是:未定义类型EXCEL.application.改怎样改呢?
Public Sub ExportToExcel()
If DataGridView1.RowCount > 0 Then
Try
Dim ds As New DataSet
ds = DataGridView1.DataSource
Dim i, j As Integer
Dim rows As Integer = ds.Tables(0).Rows.Count
Dim cols As Integer = ds.Tables(0).Columns.Count
Dim DataArray(rows - 1, cols - 1) As String
For i = 0 To rows - 1
For j = 0 To cols - 1
If ds.Tables(0).Rows(i).Item(j) Is System.DBNull.Value Then
Else
DataArray(i, j) = ds.Tables(0).Rows(i).Item(j)
End If
Next
Next
Dim myExcel As Excel.Application = New Excel.Application
myExcel.Application.Workbooks.Add(True)
myExcel.Visible = True
For j = 0 To cols - 1
myExcel.Cells(1, j + 1) = ds.Tables(0).Columns(j).ColumnName
Next
myExcel.Range("A2").Resize(rows, cols).Value = DataArray
Catch exp As Exception
MessageBox.Show("数据导出失败!请查看是否已经安装了Excel", Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Warning)
End Try
Else
MessageBox.Show("没有数据!", Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
End Sub
但是Dim myExcel As Excel.Application = New Excel.Application这一句会出现错误,错误提示是:未定义类型EXCEL.application.改怎样改呢?
...全文
相关推荐
问查网源代码-vvcha
问查网使用.NET2.0开发,开发工具是Visual Studio 2005,网站发布工具使用的是微软Add Web Deployment插件
VB.NET 2005中邮件发送功能的实现
在当今的数字化时代,邮件发送技术已成为企业及个人沟通的关键部分。从基本的文本邮件到包含多媒体的复杂通信,邮件发送系统不断进步,以满足日益增长的需求。开发者需要对邮件发送技术有深入的理解,以便在应用程序中集成这一功能。本章我们将探讨邮件发送的基础知识,为后续章节中的具体实现和优化提供理论基础。邮件发送技术涉及到的几个关键组成部分包括邮件客户端、邮件服务器和邮件传输协议。在应用开发中,常用的技术包括POP3, IMAP, SMTP等协议,以及基于这些协议的邮件发送库和API。
简单实用的调查问卷系统(vb.net2005)
简单实用的投票系统(vb.net2005+Access).可设置投票(调查)项目、题目内容、题型(单选、多选、填空)等。并可以查看调查结果
vb.net2005简单计算器
vb.net2005 编写的windows下的计算器程序,实现简单功能
VB.Net 2005 的录音源代码
VB.Net 2005 的录音源代码,看起来还行。



