Excel VB / SQL服务器： - 腾讯云开发者社区

文章/答案/技术大牛

发布

VB.NET 创建Excel表格对象

Dim xlapp As Excel.Application '定义Excel程序 Dim xlbook As Excel.Workbook '定义Excel工作簿 Dim xlsheet...As Excel.Worksheet '定义Excel工作表 Sub Excel() xlapp = CreateObject("excel.Application") '创建...Excel表对象 xlbook = xlapp.ActiveWorkbook '设置XLBOOK 为活动工作簿 xlsheet = xlbook.ActiveSheet

2.2K3 0

VB.NET DATAGRIDVIEW数据导出Excel

sub datagridviewtoExcel() Dim xlapp As New Excel.Application() xlapp.Visible = True Dim...xlapp.Application.Workbooks.Add(True) xlapp.Caption = pdt_coding.Text & " - " & Now Dim xlbook As Excel.Workbook...Dim xlsheet As Excel.Worksheet xlbook = xlapp.ActiveWorkbook xlsheet = xlbook.ActiveSheet...Color.Black .Font.Name = "微软雅黑" .Font.Size = 11 .HorizontalAlignment = Excel.XlHAlign.xlHAlignCenter....VerticalAlignment = Excel.XlHAlign.xlHAlignCenter End With With xlsheet.Range

2.9K2 0

您找到你想要的搜索结果了吗？

是的

没有找到

VB6 调用Excel，并进行操作

VB6 调用Excel，并进行操作！！...---- ---- Dim excel As Application Dim excelbook As Workbook Dim excelsheet As Worksheet Dim x(1 To...= excel.Charts.Add '制成图表 excelsheet.Application.Visible = True '使Excel处于可见的状态 excelsheet.SaveAs...CreateObject("Excel.application") Set excelbook = excel.Workbooks().Add Set excelsheet = excelbook.Worksheets...) excelsheet.Application.Quit '关闭 Excel Set excelsheet = Nothing '释放对象 End Sub ?

3.2K2 0

使用vb将excel导入PowerDesigner，生成表结构

PowerDesigner导入Excel 1、设计表 ?...Nothing) Then MsgBox "There is no Active Model" End If Dim HaveExcel Dim RQ RQ = vbYes 'MsgBox("Is Excel...vbYesNo + vbInformation, "Confirmation") If RQ = vbYes Then HaveExcel = True ' Open & Create Excel...Document Dim x1 ' Set x1 = CreateObject("Excel.Application") x1.Workbooks.Open "D:\docs\...data\bid.xlsx" '指定 excel文档路径 Else HaveExcel = False End If a x1, mdl sub a(x1, mdl) dim rwIndex

2.5K3 0

VB.NET 直接调用打开的Excel表格

Dim xlapp As Excel.Application '定义Excel程序 Dim xlbook As Excel.Workbook '定义Excel工作簿 Dim xlsheet...As Excel.Worksheet '定义Excel工作表 Sub Excel() xlapp = GetObject("excel.Application") '获取打开的表

3.1K2 0

VB.NET OLEDB创建Excel数据库

VB.NET OLEDB创建Excel数据库 Imports System.Data.OleDb Public Class Form1 Private Sub Button1_Click(sender...Dim cnstr As String = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=c:/test.xls;Extended Properties='Excel...8.0'" Dim cn As New OleDbConnection(cnstr) Dim sqlCreate As String = "CREATE TABLE vb...INTEGER,[用户名] VarChar,[密码] VarChar)" Dim ocmd As New OleDbCommand(sqlCreate, cn) '创建Excel...= "INSERT INTO vb小源码 VALUES(1,'VB小源码','123456')" ocmd.ExecuteNonQuery() cn.Close()

3.4K4 0

VB.net datagridview转Excel,datatable转数组

VB.net datagridview转Excel,datatable转数组,简单说就是通过datatable转换成二维数组,然后导出数据到Excel文件,可以瞬间导出N多条数据; 用法1:传入一个datatable...就能导出数据到Excel 用法2: 把datagridview 数据转换成datatable传入然后导出Excel datagridview 用法如下: sub dgvtoexcel() Dim dt...As New DataTable dt = prt_dgv.DataSource xl.datatable2excel(dt) end sub '-----------...''' ''' 导出Excel ''' ''' datagridview '...Dim xlbook As Excel.Workbook Dim xlsheet As Excel.Worksheet '---------------

2.9K2 0

excel转换sql

F2&"');") 日期格式，所以在使用Excel批量生成sql时，首先得设置引用的列为文本格式或常规格式修改为文本格式复制D列—>粘贴到文本编辑器中—>设置一个新的空白列(G列)为文本格式

9233 0

VB.NET 不打开Excel文件直接读取数据

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim Sql = "SELECT...Dim cn As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\A.xls;Extended Properties='Excel...OleDb.OleDbDataAdapter Dim cnole As New OleDb.OleDbConnection(cn) ad.SelectCommand = New OleDb.OleDbCommand(Sql

3.8K2 0

【重温经典】VB6 创建Excel Com加载项

VB6在Win10/Win11安装教程请看第二篇文章！！！...前置说明： 1.Office 建议安装32位，否则开发的过程中会出现很多意想不到的问题 2.VB6 IDE 需要完整版，精简版的不行第一步，新建外接程序第二步，整理新建的Com加载项项目代码 2.1....删除frmAddiIn窗体 2.2.删除Connect里面的代码第三步，添加Excel引用及Ribbon菜单相关的引用 3.1.先删除默认的Microsoft 0ffice 8.0 object Library...类库 3.2.引用Excel类库 # Office 2024 默认路劲 C:\Program Files (x86)\Microsoft Office\root\Office16\EXCEL.EXE 3.3...表应用，这是就会在菜单栏见到刚刚创建的UI菜单 5.4.注意每次，编写代码后重新运行代码，均要关闭Excel重新打开，才能加载到最新的代码 5.5.卸载注册表，只要新建复制一份Install.reg注册表

6101 0

VB.NET 直接读取打开的Excel数据到DataGridView

Imports Microsoft.Office.Interop Imports System.Data.OleDb Public Class Form1 Dim xlapp As Excel.Application...Dim xlbook As Excel.Workbook Dim xlsheet As Excel.Worksheet Dim xlrange As Excel.Range...Dim dt As New DataTable() DataGridView1.DataSource = "" xlapp = GetObject(, "Excel.Application...Microsoft.Jet.OLEDB.4.0;" + "Data Source=" + xlbook.Path.ToString & "\" & xlbook.Name + ";" + "Extended Properties=Excel

6.8K2 0

VB.NET 文件上传FTP服务器

VB.NET 文件上传FTP服务器方法 ---- Private Function 上传文件(FTP路径 As String, 文件 As Byte(), FTP用户名 As String, FTP密码

3.4K2 0

Sql Server数据导出EXCEL

*--数据导出EXCEL 导出查询中的数据到Excel,包含字段名,文件为真正的Excel文件如果文件不存在,将自动创建文件如果表不存在,将自动创建表基于通用性考虑,仅支持导出标准数据类型... #tb where a=1) set@constr='DRIVER={Microsoft Excel Driver (*.xls)};DSN='''';READONLY=FALSE' +';CREATE_DB...="'+@sql+'";DBQ='+@sql else set@constr='Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties="Excel 8.0...if@err0goto lberr set@sql='openrowset(''MICROSOFT.JET.OLEDB.4.0'',''Excel 8.0;HDR=YES ;DATABASE...@pagesize)+''+@fdlist+' from ['+@tbname+']' set@sql='openrowset(''MICROSOFT.JET.OLEDB.4.0'',''Excel 8.0

8471 0

机房收费系统——VB将MSHflexgrid控件中的数据导出为Excel

在做机房收费系统的时候，许多窗体用到的一个功能，就是将从数据库中提取出来的数据导出到Excel中。 ...首先，引用Microsoft Excel 14.0 Object Library 然后，写代码 Public Sub OutDataToExcel(Flex As MSHFlexGrid) '导出至...Excel Dim i As Integer Dim j As Integer Dim Line As Integer Dim outExcel As Excel.Application...Set outExcel = New Excel.Application '实例化Excelapp '返回或设置插入microsoft excel 新工作薄中工作表的数目...outExcel.SheetsInNewWorkbook = 1 '添加新的工作薄 outExcel.Workbooks.Add 'excel刚打开时

2.1K1 0

t-sql导出EXCEL语句

/*=================== 导入/导出 Excel 的基本方法 ===================*/ 从Excel文件中,导入数据到SQL数据库中,很简单,直接用下面的语句:...,注意大小写: --导出表的情况 EXEC master..XP_cmdshell 'bcp 数据库名.dbo.表名 out "c:test.xls" /c -/S"服务器名" /U"用户名" -P"密码...'bcp "SELECT au_fname, au_lname FROM pubs..authors ORDER BY au_lname" queryout "c:test.xls" /c -/S"服务器名...Microsoft.Jet.OLEDB.4.0;Extended Properties="Excel 8.0;HDR=YES' +';DATABASE='+@sql+'"' --连接数据库...=FALSE' +';CREATE_DB="'+@sql+'";DBQ='+@sql --生成Excel的列 set @sql = '

7550 0

使用Excel批量生成SQL脚本

需求我们需要把Excel中的一些资料更新到数据库表中，比如学生的考试系统，在数据中已经有了考生的ID，这里有一份考生ID和考生成绩的Excel表，我们如何把考生成绩更新到数据库表中呢？...没错，这就是我通常使用的方法，但是有些人他们不按常理出牌，有时候客户说：我只会执行SQL，我不知道怎么把Excel导入到数据库中。这个时候我们如何把要更新的内容生产SQL语句给到客户呢？...如何是一两条记录，我们手动写SQL就可以了，但是如果有几百个学生，我们要手动写几百条语句吗？是否有批量生成SQL脚本的方法？这就是我们这里要讲到的：使用Excel批量生成SQL脚本。...过程这是一个原始的Excel表，它包括了一些ID值和需要更新字段的值： 1：确定需要生成的SQL语句模型。 ?...并按照需要生成的sql语句顺序进行排序。前面两个列是需要更新的值，后面两个是where的条件字段 ? 3：在Excel表插入空列，拷贝相关的语句进去。

2.4K2 0

excel_VB宏脚本_批量生成点餐宝接受的格式

Attribute VB_Name = "模块1" '作者：landv '开发时间：2015年12月28日18:09:34 '主要功能，为东风路小厨生成农行点餐宝所支持批量导入的格式。...Destination:=Range("H1:H395") Range("H1:H395").Select End Sub 处理几个小毛病，对其他人适用性不是很大，作为参考还是可以的嘛 Attribute VB_Name...Attribute VB_Name = "自动处理" '版本：1.0.3 '作者：landv '开发时间：2015年12月28日18:09:34 '主要功能，为东风路小厨生成农行点餐宝所支持批量导入的格式

1.2K2 0

办公用品管理系统VB——库存数量导出EXCEL，SaveEXCEL

办公用品管理系统VB——库存数量导出EXCEL，SaveEXCEL 总体来说，VB的EXCEL导出效率还是蛮低的，就是一个小型化的办公用品管理软件，不再优化了。...VB6.0编写的，蛮古老的开发语言，算是学习编程时第一个学会的语言，真是许久没有使用，有些生疏了。...'定义EXCEL对象 Dim XlsSheet As Excel.Worksheet '定义EXCEL表 Dim XlsBook As Excel.Workbook '定义EXCEL...Dim xlBook As Excel.Workbook Dim xlSheet As Excel.Worksheet Set xlApp = New Excel.Application...xlsBook As Excel.Workbook Set xlsApp = New Excel.Application Set xlsApp = CreateObject("Excel.Application

1.6K2 0

excel转sql小工具

一、说明公司要迁移历史数据到另一个数据库中，历史数据只能由Excel导出提供。因此写了这个小工具用于将Excel中的数据拼接为INSERT语句，用于项目初始化时一次性导入。...可以填写绝对路径 String configPath = "doc/config/model.yml"; // 生成的sql文件路径。...可以填写绝对路径 String outPath = "doc/db/model.sql"; EasyExcel.read(excelPath, new Excel2SqlListener...csvMapConfig.getEntryList().forEach(entry -> { Objects.requireNonNull(entry.getSqlField(), "the sql...java.io.IOException;import java.util.*;/** * 解析Excel文件，拼接成sql语句 */public class Excel2SqlListener extends

8941 0

使用 excel 批量生成 sql 语句

使用 excel 批量生成 sql 语句, 是通过 excel 函数完成在 sql 语句对应替换地方使用 "&&" 连接, 如下: ="update site_info si join site s...si.monitor_type = '"&G1&"', si.access_control_type = '"&H1&"' where s.site_itmd_code = '"&A1&"';" 然后拖动批量生成 sql

1.8K3 0

点击加载更多

VB.NET 创建Excel表格对象

VB.NET DATAGRIDVIEW数据导出Excel

VB6 调用Excel，并进行操作

使用vb将excel导入PowerDesigner，生成表结构

VB.NET 直接调用打开的Excel表格

VB.NET OLEDB创建Excel数据库

VB.net datagridview转Excel,datatable转数组

excel转换sql

VB.NET 不打开Excel文件直接读取数据

【重温经典】VB6 创建Excel Com加载项

VB.NET 直接读取打开的Excel数据到DataGridView

VB.NET 文件上传FTP服务器

Sql Server数据导出EXCEL

机房收费系统——VB将MSHflexgrid控件中的数据导出为Excel

t-sql导出EXCEL语句

使用Excel批量生成SQL脚本

excel_VB宏脚本_批量生成点餐宝接受的格式

办公用品管理系统VB——库存数量导出EXCEL，SaveEXCEL

excel转sql小工具

使用 excel 批量生成 sql 语句

相关资讯

热门标签

活动推荐

运营活动

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐