精华内容
下载资源
问答
  • vb中将数据保存excel

    2012-07-18 14:18:39
    实现数据从MSFlexgrid中保存excel中,自动创建excel
  • vb读取Excel数据

    2018-09-26 15:52:27
    对于样本行数(列数)小于10的,可将Excel表格数据全部显示在VB窗体上,如对于有大数据需要显示,不建议使用该源代码。
  • 内容索引:VB源码,报表打印,Excel VB数据导出到Excel表格文件在VB程序数据是以LIST列表的形式存在,导出为Excel表时,会对应每列每行的数据,程序原型是老外写的,经过了少量翻译,注意,导出生成时,...
  • VBexcel中写入数据

    2013-06-24 10:06:33
    通过VB窗体的text,向excel中指定位置写入数据
  • VB将Listview数据导出到Excel表格的实例
  • 读取串口数据记录到excel中,access中,以及生成波形图。成熟界面设计,详细代码注释。 读取串口数据记录到excel中,access中,以及生成波形图。成熟界面设计,详细代码注释。
  • VB快速导入数据Excel

    2013-01-16 13:53:54
    VB来错做Excel 来实现大批量数据的 录入
  • VB6 DataGrid数据导出到Excel

    热门讨论 2013-03-05 09:24:42
    把DataGridView导出到Excel文件的示例,己经经过调试,下载即可使用~
  • vb程序调用excel数据

    2014-01-23 16:51:38
    最近笔者为单位开发“土工试验数据整理”的某个模块时,涉及到复杂数据表格的输出问题,经过笔者的摸索,用VB调用EXCEL,取得了很好的效果。本文从编程实践的角度对使用VB控制EXCEL的技术作简要说明。
  • VB listview导出数据EXCEL

    热门讨论 2013-03-01 13:15:07
    由Listview数据直接导入到EXCEL并打开,并显示表头,可以直接加入到开发代码去而省去单独编写代买的精力跟时间。
  • 使用vb.net语言编写的excel文件数据读取和保存,可以实现读取数据的显示,希望大家可以多学习交流下。
  • 内容索引:VB源码,报表打印,Listview,Excel VB将Listview数据输出到Excel表格的实例,用到了控件:MSCOMCTL.OCX和COMDLG32.OCX,仅供学习者参考一下。
  • VB将datagrid的数据导出到Excel中(2008-11-20 17:13:40)标签:杂谈这是一个非常实用的例子,它可以将你查询出来的数据导出到Excel表格中,具体步骤如下:1、这里使用的Access数据库,所以先建一个数据库,这个数据库...

    VB将datagrid的数据导出到Excel中

    a4c26d1e5885305701be709a3d33442f.png

    (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、现在你就可以运行了,祝你好运

    a4c26d1e5885305701be709a3d33442f.png

    分享:

    a4c26d1e5885305701be709a3d33442f.png喜欢

    0

    a4c26d1e5885305701be709a3d33442f.png赠金笔

    加载中,请稍候......

    评论加载中,请稍候...

    发评论

    登录名: 密码: 找回密码 注册记住登录状态

    昵   称:

    评论并转载此博文

    a4c26d1e5885305701be709a3d33442f.png

    发评论

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

    展开全文
  • 读取VB中OLE的EXCEL模版数据....自己看吧
  • VB把Listview中显示的内容导出到Excel中,用到了控件:MSCOMCTL.OCX和COMDLG32.OCX,我觉得挺实用的一个报表显示实例。
  • vb.net将excel中数据导入到数据库

    热门讨论 2012-05-07 00:52:00
    vb.net将如何将excel中数据导入到数据库
  • Python爬虫抓取福彩网站双色球开奖数据保存excel,Python3.7环境运行。
  • vb.net把datagridview的数据保存到excle,高效,快捷,简单!
  • VB 实现将Access数据库转换到Excel文件,VB转换成excel
  • ", vbYesNoCancel + vbExclamation, "VB 保存数据 Excel") If X = 6 Then '单击“是”则保存 Set ExcelApp = CreateObject("Excel.Application") ExcelApp.Workbooks.Add With ExcelApp.ActiveSheet ....
  • VB代码 从数据库快速导出数据EXCEL

    热门讨论 2011-12-21 16:12:37
    代码实现,从数据库快速导出数据EXCEL文件
  • 利用VB存取数据库BLOB数据,此文档仅提供了一种方法,仅供需要者参考(文档来源于网络,供大家参考学习使用)
  • 话题:用VB做怎么将Excel数据导入SQL数据库?问题详情:用VB做怎么将Excel数据导入SQL数据库?回答:方法一:可以试着用VB书写一段调用SQL Server数据库DTS的码,然后就可以像直接使用DTS进行数据导入一样就行Excel...

    公告: 为响应国家净网行动,部分内容已经删除,感谢读者理解。

    话题:用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中的模块中加入了...

    我在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

    展开

    展开全文
  • VB导出excel的三种方法

    2018-09-04 16:27:15
    VB6导出到Excel的三种方法全部编译通过,可以放心下载,文字描述较少,基本都是代码。
  • VBExcel在数据采集系统的应用.pdf
  • vb.net读取excel表格

    2018-12-03 15:38:26
    vb.net读取excel表格内容,vb2005引用excel2007读取表格内容。
  • 程序操作office文档是常有的事,这是以前写得VB操作Excel文件的例子。 所需资源: VBExcel 源码: DECLARE @RC int DECLARE @server nvarchar(128) DECLARE @srvproduct nvarchar(128) DECLARE @...

    编者:李国帅

    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
    
    

     

    展开全文

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 15,675
精华内容 6,270
关键字:

vb中的数据如何保存在excel