VB将datagrid的数据导出到Excel中
 

 
(2008-11-20 17:13:40)
 
标签：
 
杂谈
 
这是一个非常实用的例子，它可以将你查询出来的数据导出到Excel表格中，具体步骤如下：
 
1、这里使用的Access数据库，所以先建一个数据库，这个数据库要和工程文件和窗体文件放在同一个文件夹(所以建议先在某个磁盘下建一个文件夹)，数据库的名字叫“学生.mdb”，里面创建一个表叫“学生信息表”，表中有三个字段(学号、姓名、性别)。(当然用SQL数据库也可以，你自己可以试一试)
 
2、创建一个窗体，在窗体上添加一个datagrid控件(这个控件需要加载，方法是：“工程”菜单——》“部件”——》“microsoft
 
datagrid control
 
6.0(oledb)”选中前面的复选框，打上对勾即可)，然后到工具箱里面选中它，在窗体上画一个；然后添加两个按钮，将第一个的caption改为“查询”，将第二个的caption改为“导出”，再将第二个的enabled属性改为false(这是因为只有你查询到了数据才能导出，如果datagrid里没有数据，是不能导出的)
 
3、所有代码如下：
 
Option Explicit
 
Dim i, j, k As Integer
 
Dim xlapp As Variant
 
Dim xlBook As Variant
 
Dim xlSHEET As Variant
 
Dim cn As New ADODB.Connection
 
Dim rs As New ADODB.Recordset
 
Private Sub Command1_Click()
 
If rs.RecordCount <= 0 Then
 
MsgBox "没有可输出的数据，请选择数据"
 
Exit Sub
 
Else
 
Set xlapp = CreateObject("excel.application")
 
Set xlBook = xlapp.workbooks.Add
 
Set xlSHEET = xlBook.worksheets(1)
 
xlapp.Visible = True
 
On Error Resume Next
 
If Err.Number <> 0 Then Set xlapp =
 
CreateObject("Excel.Application")
 
Set xlBook = xlapp.workbooks.Add
 
Set xlSHEET = xlBook.ActiveSheet
 
For k = 1 To DataGrid1.Columns.Count
 
xlSHEET.Cells(1, k) = DataGrid1.Columns(k - 1).Caption
 
Next k
 
For i = 1 To rs.RecordCount + 1
 
For j = 0 To DataGrid1.Columns.Count
 
xlSHEET.Cells(i + 1, j + 1) = rs(j)
 
Next j
 
rs.MoveNext
 
Next i
 
End If
 
End Sub
 
Private Sub Command2_Click()
 
Set cn = Nothing
 
Set rs = Nothing
 
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
 
& App.Path & "\学生.mdb;Persist
 
Security Info=False"
 
rs.CursorLocation = adUseClient
 
rs.Open "学生信息表", cn, adOpenDynamic, adLockOptimistic
 
Set DataGrid1.DataSource = rs
 
if rs.recordcount>0 then
 
Command1.Enabled = True
 
end if
 
End Sub
 
4、现在你就可以运行了，祝你好运
 

 
分享：
 
喜欢
 
0
 
赠金笔
 
加载中，请稍候......
 
评论加载中，请稍候...
 
发评论
 
登录名： 密码： 找回密码 注册记住登录状态
 
昵   称：
 
评论并转载此博文
 

 
发评论
 
以上网友发言只代表其个人观点，不代表新浪网的观点或立场。

 
公告： 为响应国家净网行动，部分内容已经删除，感谢读者理解。
 
话题：用VB做怎么将Excel数据导入SQL数据库中?
 
问题详情：用VB做怎么将Excel数据导入SQL数据库中?回答：方法一:可以试着用VB书写一段调用SQL Server数据库DTS的码,然后就可以像直接使用DTS进行数据导入一样就行Excel与SQL Server数据之间的迁移了。 方法二:可以用VB来作EXCEL,然后一条数据一条数据的入到数据库中,这种方法不使用,因为VB作EXCEL是非常慢的,如果数据量太大,很有可能会造成机。
 
参考回答：在VB中,定义excel对象。把数据存到变量数组里,然后连接数据,将数组中的数据写到数据库的表中。具体使用及定义方法,在VB帮话题：EXCEL 导入SQL2005 提示 找不到可安装的 ISAM。 (
 
问题详情：我的是SQL2005,在2000上升级的,不可能重装数据库的,前台回答：楼主,这种事情我做过. Excel可以接SQL数据库,且还能做可以按条件,实时地做动态更新.如果您需要了解这个的话,我可以给您个我自己做的演示档, 如需要,您Hi我一下吧 回答者: lxlzmh2002 - 下位魔导师 十一级 200--24 12:06 =================================================================== 再复本贴: EXCEL 导入SQL2005 这句话我理解错误,不好意思。 我给您的例是在Excel上,不借助任何码从SQL Server 实现时实现动态取数。就其原理上,首先Excel是建立与SQL的ODBC或ADO连接,然后它从数据库表上的数据读取出来。您是做数据库的会知道,只要这个连接建立了,读和写仅话题：VB 如何实现数据的EXCEL导入到SQL及SQL导出? 假设导回答：Private Sub mand2_Click() If Adodc1.Recordset.RecordCount = 0 Then '数据源的为空,则提示无,更改条件 MsgBox "所得数据为空,请更改条件", 4, "RFID生產管理系統" Else Dim i As Integer Dim j As Integer Dim excelApp As Excel.Application Set excelApp = New Excel.Application excelApp.Workbooks.Add excelApp.Visible = True Adodc1.Recordset.MoveFirst For i = 0 To Adodc1.Recordset.RecordCount - 1 For j = 0 To Adodc1.Recordset.Fields.Count - 1 excelApp.Cells(i + 2, j + 1) = Adodc1.Recordset(j) & "" Next j Adodc1.Recordset.MoveNext Next i End IfEnd Sub
 
参考回答：人帮你顶下哈!!话题：在excel中用vba实现与sql数据库的数据比较
 
问题详情：我想将excel中,一个字段中的数据与sql中某个表中的某个字段中回答：可以做到,但不是三言两语能说清楚的。至少VBA程序不会太短 如果用手工作,不借助VBA,可以利用Excel的“数据-导入外部数据”菜单将SQL中的表先导入到Excel中,那么Excel数据与SQL数据的比较就变成了两个Excel表列的比较,很容易用数组公式或相关函数标识出重复的数据项的。话题：如何使用vba
 
问题详情：如何使用vba 将excel指定行的数据导入到sql200中?要具体实例回答：你在EXCEL中增加一个列名为ID,后在VBA中写以下码,并引用Microsoft ActiveX Data Objects 2.后执行Public Sub 写入SQL200() Dim cnn As New ADODB.Connection Dim SQL As String, mydata As String, mytable As String Dim i% mydata = "KKKK" '指定要修改的数据库 mytable = "aaaa" '指定数据表 '建立与指定SQL Server数据库的连接 cnn.ConnectionString = "Provider=SQLOLEDB;" _ & "User ID=sa;" _ 'sa改成你SQL(通常不用改) & "Password =123;" _ '123改成你SQL200 & "Data Source=sowin;" _ 'sowin改成你的SQL200的电脑名, '如sql200在网络上,则sowin改成IP(如12.16.0.1) & "
 
参考回答：为什么不用openrowset或者opendatasource?话题：VBA实现EXCEL导入到SQL有严重问题回答：Sub 按钮2_单击()Dim connSet conn = CreateObject("ADODB.Connection")conn.Open ("driver={SQL Server};server=localhost;uid=sa;pwd=sa;database=yw;")FileName = Application.GetOpenFilename("Excel Files (*.xls), *.xls", , "请选择", , MultiSelect:=False)If Filename = False Then Exit Sub'加这一行试下Sql = "SELECT * into GENERALDATA FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0','Data Source=""" & FileName & """;User ID=Admin;Password=;Extended properties=Excel 5.0')[录入模板$]"conn.Execute (Sql)conn.CloseSet conn = NothingEnd Sub话题：vba access 将Access数据导入到sqlserver
 
问题详情：access窗体,使用VBA将指定的 '-------------------------- 数据导入最回答：吧sqlserver作为数据源,可以直接导的。你查查docmd.exprot.话题：.将Excel数据导入到sql2005
 
问题详情：.将Excel数据导入到sql2005,有多种方法更好回答：一、在程序中,用ADO.。码如下: 连接串string strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel .0;Data Source=" + [EXCEL,含路径] + ";";OleDbConnection conn = new OleDbConnection(strConn); conn.Open(); DataTable dtSchema = conn.GetOleDbSchemaTable(OleDbSchemaGuid.Tables,new object[] {null, null, null, "TABLE"});DataSet ds = new DataSet(); 一个EXCEL可能有多个表,遍历之foreach( DataRow dr in dtSchema.Rows ){ string table = dr["TABLE_NAME"].ToString(); string strExcel = "SELECT * FROM [" + table + "]"; ds.Tables.Add(table);话题：怎么将Excel数据导入SQLserver200数据库表中?
 
问题详情：怎么将Excel数据导入SQLserver200数据库表中?我需要详细的回答：SQL 200有一个工具 导入导出向导通过向导导入到SQL200中话题：vba将excel数据导入SQLServer?
 
问题详情：要求把excel中数据通过vba作导入到sqlserver 2000数据库中,不回答：通过VBA就用 adodb 吧 , 一次入一条,就能都进去了

 
我在VB6.0中的模块中加入了连接sql的语句，连接已经没有问题了，做登录系统和将sql的数据导入到excel中也没有问题，但就是不知如何实现将excel数据导入mssql数据库中，批量的导入，请...
 
我在VB6.0中的模块中加入了连接sql的语句，连接已经没有问题了，做登录系统和将sql的数据导入到excel中也没有问题，但就是不知如何实现将excel数据导入mssql数据库中，批量的导入，请高手指教下，谢谢了先！
 
Public SQL As String
 
Public rs As ADODB.Recordset
 
Public ConnStr As String
 
Public Conn As ADODB.Connection
 
Public Function Selectsql(SQL As String) As ADODB.Recordset
 
'Dim ConnStr As String '已公共申明
 
'Dim Conn As ADODB.Connection
 
'Dim rs As ADODB.Recordset
 
Set rs = New ADODB.Recordset
 
Set Conn = New ADODB.Connection
 
On Error GoTo MyErr:
 
ConnStr = "Provider=SQLOLEDB.1;Persist Security Info=True;User ID=sa;Password=******;Initial Catalog=wzglxt;Data Source=127.0.0.1" '这是连接SQL数据库的语句
 
Conn.Open ConnStr
 
rs.CursorLocation = adUseClient
 
rs.Open Trim$(SQL), Conn, adOpenDynamic, adLockOptimistic
 
Set Selectsql = rs
 
Exit Function
 
MyErr:
 
Set rs = Nothing
 
Set Conn = Nothing
 
MsgBox "系统出错，请联系开发人员怀哥，E-mail：slyjpsh@qq.com", vbInformation, "系统提示"
 
End Function
 
执行
 
Dim strSQL As String
 
CommonDialog1.Filter = "电子表格文件(.xls)|*.xls"
 
CommonDialog1.DialogTitle = "请选择要导入的文件"
 
CommonDialog1.ShowOpen
 
SQL = "INSERT INTO Family SELECT * FROM OpenRowSet('microsoft.jet.oledb.4.0','Excel 14.0;HDR=Yes;database=" & CommonDialog1.FileName & " ;','select * from [Sheet1$] ')"
 
Set rs = Selectsql(SQL)
 
Conn.Execute SQL, , adExecuteNoRecords
 
Conn.Close
 
Set Conn = Nothing
 
MsgBox "导入成功", vbExclamation + vbOKOnly
 
Exit Sub
 
展开

编者：李国帅
 
qq：9611153 微信lgs9611153
 
时间：2008-3-11
 
背景原因:
 
在程序中操作office文档是常有的事，这是以前写得VB操作Excel文件的例子。
 
 
 
所需资源：
 
VB，Excel
 
 
 
源码:
 
DECLARE @RC int
DECLARE @server nvarchar(128)
DECLARE @srvproduct nvarchar(128)
DECLARE @provider nvarchar(128)
DECLARE @datasrc nvarchar(4000)
DECLARE @location nvarchar(4000)
DECLARE @provstr nvarchar(4000)
DECLARE @catalog nvarchar(128)
-- Set parameter values
SET @server = 'XLTEST_SP'
SET @srvproduct = 'Excel'
SET @provider = 'Microsoft.Jet.OLEDB.4.0'
SET @datasrc = 'c:\book1.xls'
SET @provstr = 'Excel 8.0'
EXEC @RC = [master].[dbo].[sp_addlinkedserver] @server, @srvproduct, @provider,
@datasrc, @location, @provstr, @catalog
Private Sub Command1_Click()
    Dim s As SQLDMO.SQLServer
    Dim ls As SQLDMO.LinkedServer
    Set s = New SQLDMO.SQLServer
    s.Connect "(local)", "sa", "password"
    Set ls = New SQLDMO.LinkedServer
    With ls
        .Name = "XLTEST_DMO"
        .ProviderName = "Microsoft.Jet.OLEDB.4.0"
        .DataSource = "c:\book1.xls"
        .ProviderString = "Excel 8.0"
    End With
    s.LinkedServers.Add ls
    s.Close
End Sub